Kumpulan Parameter, Contoh Properti Perintah (Visual Basic)
Kode berikut menunjukkan cara menggunakan properti Perintah dengan objek Perintah untuk mengambil informasi parameter untuk prosedur.
' BeginParametersVB
Sub Main()
On Error GoTo ProcedureParametersError
Dim cnn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim cat As New ADOX.Catalog
' Open the Connection
cnn.Open _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Open the catalog
Set cat.ActiveConnection = cnn
' Get the command object
Set cmd = cat.Procedures("CustomerById").Command
' Retrieve Parameter information
cmd.Parameters.Refresh
For Each prm In cmd.Parameters
Debug.Print prm.Name & ":" & prm.Type
Next
'Clean up
cnn.Close
Set cat = Nothing
Set cmd = Nothing
Set cnn = Nothing
Exit Sub
ProcedureParametersError:
Set cat = Nothing
Set cmd = Nothing
If Not cnn Is Nothing Then
If cnn.State = adStateOpen Then cnn.Close
End If
Set cnn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndParametersVB
Lihat juga
Properti ActiveConnection (ADOX)
Objek Katalog (ADOX)
Properti Perintah (ADOX)
Objek Prosedur (ADOX)
Koleksi Prosedur (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