首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

新手,往高手出招!不胜感激

2013-11-23 
新手求助,往高手出招!不胜感激。想写一个 可以读取 .mdb /access 数据库指定条目的代码,不知道怎么写!本人

新手求助,往高手出招!不胜感激。
想写一个 可以读取 .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


根据个人需要修改。

热点排行