Contoh Properti ActiveCommand (Visual Basic)
Contoh ini menunjukkan properti ActiveCommand .
Sub-rutin diberi objek Recordset yang properti ActiveCommand-nya digunakan untuk menampilkan teks perintah dan parameter yang membuat Recordset.
'BeginActiveCommandVB
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Public Sub Main()
On Error GoTo ErrorHandler
'recordset and connection variables
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim Cnxn As ADODB.Connection
Dim strCnxn As String
'record variables
Dim strPrompt As String
Dim strName As String
Set Cnxn = New ADODB.Connection
Set cmd = New ADODB.Command
strPrompt = "Enter an author's name (e.g., Ringer): "
strName = Trim(InputBox(strPrompt, "ActiveCommandX Example"))
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
'create SQL command string
cmd.CommandText = "SELECT * FROM Authors WHERE au_lname = ?"
cmd.Parameters.Append cmd.CreateParameter("LastName", adChar, adParamInput, 20, strName)
Cnxn.Open strCnxn
cmd.ActiveConnection = Cnxn
'create the recordset by executing command string
Set rst = cmd.Execute(, , adCmdText)
'see the results
Call ActiveCommandXprint(rst)
' clean up
Cnxn.Close
Set rst = Nothing
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndActiveCommandVB
Rutinitas ActiveCommandXprint hanya diberikan objek Recordset , namun harus mencetak teks perintah dan parameter yang membuat Recordset. Ini dapat dilakukan karena properti ActiveCommand objek Recordset menghasilkan objek Perintah terkait.
Properti CommandText objek Perintah menghasilkan perintah parameter yang membuat Recordset. Koleksi Parameter objek Perintah menghasilkan nilai yang digantikan untuk tempat penampung parameter perintah ("?").
Terakhir, pesan kesalahan atau nama dan ID penulis dicetak.
'BeginActiveCommandPrintVB
Public Sub ActiveCommandXprint(rstp As ADODB.Recordset)
Dim strName As String
strName = rstp.ActiveCommand.Parameters.Item("LastName").Value
Debug.Print "Command text = '"; rstp.ActiveCommand.CommandText; "'"
Debug.Print "Parameter = '"; strName; "'"
If rstp.BOF = True Then
Debug.Print "Name = '"; strName; "', not found."
Else
Debug.Print "Name = '"; rstp!au_fname; " "; rstp!au_lname; _
"', author ID = '"; rstp!au_id; "'"
End If
rstp.Close
Set rstp = Nothing
End Sub
'EndActiveCommandPrintVB
Lihat juga
Properti ActiveCommand (ADO)
Objek Perintah (ADO)
Objek Recordset (ADO)
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