百科知识

电脑/网络

关于VB连接ACCESS数据库的问题~

2008-11-30 15:57:00w***
关于VB连接ACCESS数据库的问题~：你有引用加载对象？在工程——引用里面勾选Microsoft ActiveX Data Objects Recordset?

最佳回答

  • 你有引用加载对象？在工程——引用里面勾选Microsoft ActiveX Data Objects Recordset 6.0和Microsoft ActiveX Data Objects 6.0 Library这样才可以用你上面的代码
    2008-12-01 09:34:00
  • 报下错误的具体信息......
    2008-11-30 23:40:00
  •   '在窗口上放一个grid,放一个adodc '这将成为你学习VB数据库编程最重要的，最有用的一步'其实其它语言也是这样的'他将使你走进编程的大门Public MyConnection As New ADODB。Connection '定义数据库对象Public MyRecordset As New ADODB。
      Recordset '定义记录集对象Public DBName As String '定义数据库名称变量Public Status As Boolean '定义连接数据库的状态变量Private Sub Form_Load() Dim sql As String '生成表上面部分的字符 DBName = App。
      Path & "\db1。mdb" '数据库路径 '设置连接的属性 With MyConnection 。Provider = "Microsoft。Jet。OLEDB。4。0" '连接引擎 。Mode = adModeShareExclusive '独占打开 。
      Open DBName '打开数据库 End With Set MyRecordset = Nothing '让结果集等于空 sql = "SELECT * FROM tab_dept AS t" '为查询部门数定义SQL '设置结果集的各种属性 With MyRecordset 。
      ActiveConnection = MyConnection 。CursorType = adOpenStatic 。LockType = adLockOptimistic 。CursorLocation = adUseClient 。
      Open sql, MyConnection, , , adCmdText End With Set DataGrid1。DataSource = MyRecordset '结果集赋结表格End Sub。
    2008-11-30 18:48:00
    • 很赞哦！ (160)

    相关文章