Help 各位大虾邦忙

Question

Private Sub open_Click()
Dim basepath As String
cd1.ShowOpen
basepath = cd1.FileName
Data1.Connect = access2000
Data1.DatabaseName = basepath
Data1.RecordSource = "地址薄"
End SubCD1为通用对话框控件
我用的是顾DBgrid网格控件。我在设计阶段指定了其数据源为DATA1。在上面的过程中指定数据源报错。所以我在设计阶段指定了。为什么单击OPEN按钮后。并没有任何记录显示在网格控件上。但也没有报错

Answer 1

我这里没有DBGRID控件
但是用DataGrid和ADODC控件原理是一样的Private Sub Command1_Click()
    Dim basepath As String
    CD1.CancelError = False
    CD1.ShowOpen
    basepath = CD1.FileName
    If basepath <> "" Then
        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basepath & ";Persist Security Info=False"
        Adodc1.CommandType = adCmdTable
        Adodc1.RecordSource = "产品"
    End If
    Set DataGrid1.DataSource = Adodc1
End Sub

Answer 2

但是如果就是要用DBGRID该怎么办呢。而且连数据的时候就要求写在代码中。该怎么办？

Answer 3

但是如果就是要用DBGRID该怎么办呢。而且连数据的时候就要求写在代码中。该怎么办？