Contoh Metode Penautan Tampilan (Visual Basic)
Kode berikut menunjukkan cara menggunakan objek Perintah dan metode Tambahkan koleksi Tampilan untuk membuat tampilan baru di sumber data yang mendasar.
' BeginCreateViewVB
Sub Main()
On Error GoTo CreateViewError
Dim cmd As New ADODB.Command
Dim cat As New ADOX.Catalog
' Open the Catalog
cat.ActiveConnection = _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Create the command representing the view.
cmd.CommandText = "Select * From Customers"
' Create the new View
cat.Views.Append "AllCustomers", cmd
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set cmd = Nothing
Exit Sub
CreateViewError:
Set cat = Nothing
Set cmd = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateViewVB
Lihat juga
Properti ActiveConnection (ADOX)
Metode Tambahan (Tampilan ADOX)
Objek Katalog (ADOX)
Lihat Objek (ADOX)
Koleksi Tampilan (ADOX)
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