ADODC控件简单应用示例

来源：互联网发布：软件测试教程教学大纲编辑：程序博客网时间：2024/05/21 18:47

Dim strinp As String
Dim msgint As Integer
Dim intlen As Integer
strinp = InputBox("请输入您要查询的IMEI", "入库记录查询")
intlen = Len(strinp)
If strinp = "" Then
msgint = MsgBox("实在是佩服，空的IMEI号也要查询!请重新输入要查询的IMEI", vbOKOnly, "致词")
Exit Sub
End If
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/apkf.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from [apkf] where right(imei," & intlen & ")= '" & strinp & "'"
Adodc1.Refresh

参考:

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Text1.Text = Adodc1.Recordset.Fields("name")
End Sub

Private Sub DataGrid1_Click()
Text1.Text = Adodc1.Recordset.Fields("name")
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;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Publishers"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub