关闭

vb与access2003数据库连接程序

标签: access数据库vbmicrosoftsecuritydatabase
2599人阅读 评论(2) 收藏 举报
分类:
'引用 Microsoft ActiveX Data Objects 2.8 Library
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'连接Access数据库
    Set cnn = New ADODB.Connection
        cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Dim cnnFile As String
        cnnFile = "Data Source=" & App.Path & "/data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=00000"
    cnn.Open cnnFile
'查询用户表,并将用户名显示在DataCombo控件中
    Set rs = New ADODB.Recordset
        strSQL = "SELECT * FROM TableName"
    rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:78896次
    • 积分:869
    • 等级:
    • 排名:千里之外
    • 原创:8篇
    • 转载:31篇
    • 译文:0篇
    • 评论:4条
    最新评论
    CPU厂商
    光驱厂商
    机箱电源厂商
    内存厂商
    声卡厂商
    显卡厂商
    显示器厂商
    硬盘厂商
    有事进来说
    主板厂商