Private Sub dcButton1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 账户 where 账号 like '" & Text1.Text & "'"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Label1.Caption = Adodc1.Recordset.Fields("密码")
End If
-----------------------------------------------------
本人因自学很多不懂得地方,望指教!
& App.Path &中的&不明白什么意思!,还有Adodc1.Recordset.Fields()中VS提示ADODB.Fields转换String时可能发生运行错误,如何解决~!
发错了应该是Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & amp App.Path & amp "\数据库.mdb;Persist Security Info=False"中的
& amp不明白