Visual Basic Contoh Pembentukan Data
' This application makes use of Microsoft Hierarchical FlexGrid
' Control, which is named as MSHFLexGrid.
Const SHAPER = "MSDataShape"
Const DP = "SQLOLEDB"
Const DS = "MySQLServer"
Const DB = "Northwind"
Private Sub Form_Load()
FirstExample
End Sub
Private Sub Form_Resize()
MSHFlexGrid.Top = 0
MSHFlexGrid.Left = 0
MSHFlexGrid.Width = Me.ScaleWidth
MSHFlexGrid.Height = Me.ScaleHeight
End Sub
Private Sub FirstExample()
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sCmd As String
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.ConnectionString = ConnectionString(SHAPER, DP, DS, DB)
con.Open
sCmd = "SHAPE {SELECT CustomerID, ContactName FROM Customers} " _
& "APPEND ({SELECT OrderID, OrderDate, CustomerID FROM Orders} " _
& "AS chapOrders " _
& "RELATE customerID TO customerID)"
rst.Open sCmd, con, adOpenStatic, 2
Set MSHFlexGrid.Recordset = rst
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
End Sub
Private Function ConnectionString(pr As String, _
dpr As String, _
dsr As String, _
dbs As String)
Dim s As String
If pr = "" Then
s = "Provider=" & dpr & _
";Data Source=" & dsr & _
";Initial Catalog=" & dbs & _
";Integrated Security=SSPI;"
Else
s = "Provider=" & pr & _
";Data Provider=" & dpr & _
";Data Source=" & dsr & _
";Initial Catalog=" & dbs & _
";Integrated Security=SSPI;"
End If
ConnectionString = s
End Function
Cobalah!
Membuat proyek aplikasi VISUAL Basic Standard EXE
Pilih Komponen dari menu Proyek di Visual Studio
Pilih "Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)" dari jendela popup Komponen lalu klik Simpan.
Klik dua kali Kontrol FlexGrid dari panel Kotak Alat di ruang kerja Visual Basic. Ubah nama instans ini menjadi MSHFLEXGRID.
Salin kode sebelumnya dan tempelkan ke halaman Kode untuk mengganti kode yang ada.
Pilih Mulai dari menu Jalankan untuk menjalankan aplikasi.
Saran dan Komentar
https://aka.ms/ContentUserFeedback.
Segera hadir: Sepanjang tahun 2024 kami akan menghentikan penggunaan GitHub Issues sebagai mekanisme umpan balik untuk konten dan menggantinya dengan sistem umpan balik baru. Untuk mengetahui informasi selengkapnya, lihat:Kirim dan lihat umpan balik untuk