切换到宽版
  • 2748Read
  • 0Replay

VB Access ----未测试 [复制链接]

上一主题 下一主题
离线Francis
 

只看楼主 倒序阅读 使用道具 楼主  posttime: 2015-12-28
    使用ADODB.Connection连接数据库,驱动类型版本为:Microsoft.Jet.OLEDB.4.0。
    在VB的数据库操作中,连接似乎数据库是第一步,也是最基本的,
    这个例子,可引导你学习如何在VB中连接Access数据库。

    1. VERSION 5.00
    2. Begin VB.Form 操作数据库
    3.    Caption         =   "VB操作数据库"
    4.    ClientHeight    =   3645
    5.    ClientLeft      =   4905
    6.    ClientTop       =   4260
    7.    ClientWidth     =   5895
    8.    LinkTopic       =   "Form1"
    9.    ScaleHeight     =   3645
    10.    ScaleWidth      =   5895
    11. End
    12. Attribute VB_Name = "操作数据库"
    13. Attribute VB_GlobalNameSpace = False
    14. Attribute VB_Creatable = False
    15. Attribute VB_PredeclaredId = True
    16. Attribute VB_Exposed = False
    17. Option Explicit
    18. Private Sub Form_Load()
    19. Dim 数据库 As Object
    20. Set 数据库 = New ADODB.Connection
    21. Call 数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '连接数据库
    22. If ((数据库.State) = (adStateOpen)) Then
    23.     MsgBox ("连接成功!")
    24. Else
    25.     MsgBox ("连接失败!")
    26. End If
    27. 数据库.Close
    28. Set 数据库 = Nothing
    29. End Sub




    这里建立了一个名为“数据库”的NewADODB.Connection对象,
    用此对象增连接数据库,在连接成功后,弹出消息框告之连接结果,
    大多数情况下,VB与Access2003之前版本的数据库连接,基本都这样。
    测试数据库请放在VB同级目录下,Data.mdb可根据自己实际的数据库路径进行修改。





快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个