Performs SQL query
Performs SQL query
Rate Performs SQL query
(2(2 Vote))
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
Performs SQL query Comments
No comments yet — be the first to post one!
Post a Comment