• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Performs SQL query

Performs SQL query

Performs SQL query

Rate Performs SQL query

• 1
• 2
• 3
• 4
• 5

(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