vb 连接 access

最新推荐文章于 2021-08-06 11:50:48 发布

踏雪|无痕

最新推荐文章于 2021-08-06 11:50:48 发布

阅读量602

点赞数

分类专栏： vb

本文链接：https://blog.youkuaiyun.com/u014531707/article/details/49799919

版权

vb 专栏收录该内容

1 篇文章

订阅专栏

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connstr As String
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\2.mdb;"
conn.Open constr
sql = "select * from 认定 where nno='" & Text1.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
Text2.Text = sql
 If Not rs.EOF Then
        Text2.Text = rs.Fields("nid")
 Else
         MsgBox "数据不存在！"
         
 End If
    rs.Close
    conn.Close
End Sub