初涉数据库！高手指教！

Question

Dim Conn As ADODB.Connection
Dim Rst As ADODB.Recordset
 Conn.CursorLocation = adUseClient
 Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB4.0;Persist Security Info=False;Data Source=" & App.Path & "\LL.mdb;Jet OLEDB"
  Rst.Open "Select * From Table", , adOpenStatic, adLockOptimistic

Answer 1

如果用vb自带的数据库，并放在和可执行文件在一起的目录下就可以直接打开了
Set card = DBEngine.OpenDatabase("card.mdb")

Answer 2

很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function

Answer 3

在工具箱中添加ADO部件，在窗体上添加ADO控件，在ADO控件上单击右键－>属性，呵呵，连吧

Answer 4

我见有些人的代码，他的窗口上什么ADO控件也没有；
但他在模块中却可以这样声明：public db as Database
而我在模块中却不能这样声明（根本上没有Database 这个先择）。
请问：为什么？？？？？
为什么？？？？

Answer 5

我见有些人的代码，他的窗口上什么ADO控件也没有；
但他在模块中却可以这样声明：public db as Database
而我在模块中却不能这样声明（根本上没有Database 这个先择）。
请问：为什么？？？？？
为什么？？？？

Answer 6

你要在部件引用里加入microsoft DAO 2.5/3.51 compatibility libarary
现在很少有人用DAO 了

Answer 7

使用ADO你要在部件引用里加入microsoft Activex Data Objects 2.1 libarary

Answer 8

使用ADO你要在部件引用里加入microsoft Activex Data Objects 2.1 libarary

Answer 9

选择工程菜单->引用，在弹出的对话框中选中Microsoft Activex object 2.5 library或其它版本。然后就可以使用了。

Answer 10

选择工程菜单->引用，在弹出的对话框中选中Microsoft Activex object 2.5 library或其它版本。然后就可以使用了。