新手求助,往高手出招!不胜感激。
想写一个 可以读取 .mdb /access 数据库指定条目的代码,不知道怎么写!本人刚接触并在学习VB,还望大侠们海涵哈!!
一下是范例
DATA.MDB Name:123 pw:456
读取 .mdb 里面的 第一行,第二条 的数据,并显示在 TEXT1里面
有哪位大侠好心伸伸援手,小弟不胜感激哈!!!!!!
再一次谢过啦!
[解决办法]
来个简单的代码:
Sub TestMDB()
On Error GoTo errs
Dim ConnStr As String, MyConn As ADODB.Connection
''打开数据库
ConnStr = "provider=microsoft.jet.oledb.4.0;data source=数据库路径"
ConnStr = ConnStr & ";jet oledb:database password=数据库密码"
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = ConnStr
MyConn.Open
''读取数据
Dim Rs As New ADODB.Recordset, mySQL As String
mySQL = "select * from 表名 where 字段名='指定的值'" '
Rs.Open mySQL, MyConn, adOpenKeyset, adLockOptimistic
With Rs
If .RecordCount > 0 Then
''.MoveFirst ''移动到第一条
MsgBox .Fields("字段名").Value
End If
End With
Rs.Close
Set Rs = Nothing
MyConn.Close
Set MyConn = Nothing
Exit Sub
errs:
MsgBox Err.Description
End Sub