网站首页 极客学院 视频课堂 极客论坛 下载专区 行业新闻 欢迎光临极客研究院,今天是2019-08-24 星期六
会员面板
帐号:
密码:
验证码:
极客学院
教程搜索
输入要搜索的内容:

下载专区
精品教程

VBA连接access数据库

假设 有个db.accdb放在d:根目录下,里面有个stu表,
下面用VBA把这个stu的sname字段读取出来.显示在当前工作表

  Dim Cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset  '加上这句
  Dim PthStr As String, SqlStr As String
  PthStr = "d:db.accdb" 'databasey06数据库文件名称
 
  Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & PthStr & ";Jet OLEDB:Database Password="
  
  Sql = "select * from stu"
  rs.Open Sql, Cnn, 1, 3
  r = 1   '行号
  While Not rs.EOF
    Cells(r, 1) = rs("sname")
    Cells(r, 2) = rs("email")
    r = r + 1
    rs.MoveNext
  Wend
  
  Set rs = Nothing
  相关文章
本文标题:VBA连接access数据库
对本文有疑问?现在就进入论坛提问>>
 
粤ICP备18090445号