连接ACCESS数据库

Question

才学VB没多久,在网上看了许多有关VB的文章后,感觉现在VB也还算可以,用的人也挺多.现在要做一个"学生管理公寓",但是还不知道如何具体的连接ACCESS数据库,在网上查了点资料看了,但有的看不明白.还请大师们指点指点.小菜在这里谢了.

Answer 1

将ACCESS数据库放在程序所在目录下，代码中用ADO对象连接
dim conn as new adodb.connection 
With conn 
    if .state <>adstateclosed then .close 
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\数据库名.mdb" 
    .Open 
    .CommandTimeout = 300 
End With

Answer 2

Public   gsOdbcName   As   String   
Public   ADOsdb   As   new   ADODB.Connection         gsOdbcName   =   "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data   Source= "   _ 
                &   app.path   &   "\db.mdb "   &   "; " 
        
With   ADOsdb 
                If   .State   <>   adStateOpen   Then 
                        .CursorLocation   =   adUseClient 
                        .ConnectionString   =   gsOdbcName 
                        .Open 
                End   If 
End   With 

Answer 3

这样简单的数据库应用，几乎不用写代码。在窗体上放一个 ADODC 控件和一个 DataGrid 控件（菜单 工程-组件，选 Microsoft ADO Data Control 6.0 (OLEDB) 和 Microsoft DataGrid Control 6.0 (OLEDB)）。（我的 VB 版本是英文版，所以有些文字可能说得不准确。）
右键点 ADODC 控件，选弹出菜单 ADODC 属性。缺省单选钮“使用连接字符串”，单击按钮“创建”。选 Microsoft Jet 4.0 OLE DB Provider。单击“下一步”按钮，选择数据库文件路径，点击“测试连接”，确定。回到属性页对话框，选“记录源”标签页，在命令文本（SQL）框中输入表名称或 SQL 语句。或者在“命令类型”中选 2-adCmdTable，在“表或存储过程名”中选择一张表。“确定”。点一下 DataGrid 控件，在属性窗口中选 DataSource 为 ADODC1。运行窗体，就可以看到数据显示了。如果想控制多一点，可以右键 DataGrid 控件，选属性。在属性对话框中对 DataGrid 控件进行预设。

Answer 4

'最简单的连接ACCESS数据库'添加 Adodc1 DataGrid1
'bwscale.mdb 与表名 bwmain 改为你自己的Dim appdisk$
Private Sub Form_Load()
   appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "bwscale.mdb;Persist Security Info=False"
   Adodc1.RecordSource = "select * from bwmain"
   Set DataGrid1.DataSource = Adodc1
End Sub