ADODC控件简单应用示例

最新推荐文章于 2021-12-03 10:55:24 发布

dzmiao

最新推荐文章于 2021-12-03 10:55:24 发布

阅读量4.3k

点赞数 2

分类专栏： VB 文章标签： datagrid integer security string c

本文链接：https://blog.csdn.net/dzmiao/article/details/231510

版权

本文提供了一个ADODC控件在VB中简单应用的示例，通过用户输入的IMEI进行查询。代码展示了如何设置控件连接字符串、构建SQL查询语句，并在DataGrid中显示结果。当用户点击DataGrid时，会显示当前选中记录的特定字段值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.Reco

最低0.47元/天解锁文章