help me!!!在线等待，五十分相送

Question

Option Explicit'标准声明 Dim cnn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim strCnn As String
 Dim strSql As String
 '标准调用
 strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
 strCnn = strCnn & App.Path & "\" & MDB名称 & ";"            '输入MDB名称
 strCnn = strCnn & "Persist Security Info=False"
 strSql = "select * from %%%%"                               '输入SQL语句
 
 Set cnn = New ADODB.Connection
 cnn.CursorLocation = adUseClient
 cnn.Open strCnn
 Set rs = cnn.Execute(strSql)
 Set 控件.datasource= rs                                             '输入DG名称
 控件.refresh

Answer 1

同意楼上说的就是这些，太详细了啊
但你建完的数据库要进行ODBC连接一下啊

Answer 2

可我不想用ODBC进行连接，当数据库转移后在页面下直接连接，这该怎么弄呢

Answer 3

不用ODBC你打算怎么联？数据库转移的话你可以用个对话框让用户指明文件就行了嘛

Answer 4

我上边的代码就可以解决所有问题，除了你用ODBC外，但如果 你用的是ODBC数据源，你也只要改一下Provider=Microsoft.Jet.OLEDB.4.0和Data Source=数据源 即可，就是你用SQLSERVER也只是再多一个USER=XXX和PWD=XXX，这些代码不但可以直接连接数据库，也可连接远程数据库