by Inaam Ullah Azmat (1 Submission)
Category: OLE/COM/DCOM/Active-X
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 8th May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Performs SQL query
Adodc1.RecordSource = txtSQLCode
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "Titles"
Adodc1.Refresh
End Sub
Private Sub txtSQLCode_Change()
If Trim$(txtSQLCode) = "" Then
cmdExecute.Enabled = False
Else
cmdExecute.Enabled = True
End If
End Sub