打开数据库

Question

1。可以在窗体上添加ADODC控件，在设计时建立与数据库的连接。
2。可以通过代码建立与数据库的连接
　　dim cn as ADODB.connection
    set cn=new ADODB.connection
    cn.connectionString="..."
    cn.open
    这样就可以建立与数据库的连接

Answer 1

我用的是
dim db as database
dim rs as recordsetset db=opendatabase("数据库名")
set rs=db.open("表名")

Answer 2

dim rst as new adodc.recordset
dim cnn as new adodc.connectioncnn.connectionstring="..."
cnn.open
rst.open"select * from 表",cnn,...,...

Answer 3

'测试ADO性能
   'Dim db As ADODB.Connection
   'Dim rec As ADODB.Recordset
   'Dim constr As String
   ''''----------------ADO方法一：
   ''''constr = "driver={Microsoft Access Driver (*.MDB)};server=; uid =springlover; pwd =pass;database=d:\gzdata\user.mdb"
   ''''----------------ADO方法二：
   ''''constr = "DSN=dsnname; User id =springlover; Password =andy;"
   ''''----------------ADO方法三：
   ''''constr = "Data Source=dsnname; User ID =" & Trim(Me.txtUserName) & ";password= " & Trim(Me.txtPassword) & ";"
   'Set db = New ADODB.Connection
   ''''----------------ADO方法四：
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
                             " Persist Security Info=False;" & _
                              "User ID=" & cstDefaultUser & _
                              ";password =" & cstDefaultPassWord & _
                              ";Data Source=" & str & _
                              ";Jet OLEDB:System database=" & cstSystemDb