BaseConn = "provider=microsoft.jet.ole db.3.51;persist security info=false;data sourcr="
这是编写下面这个程序时用到的一段编码 其中BaseConn已经声明过的字符串
不知道是什么意思 运行的时候也是错误的 是不是没有引用什么？

图片怎么不显示啊 ？
就是一个ADO空间编程连接后台数据库，用TreeView空间树壮显示数据库表，用Listview控件显示数据库表中的字段及记录程序。

microsoft.jet.ole db.3.51 这一句是什么意思啊？

microsoft.jet.ole db.3.51 这一句是什么意思啊？
不好意思 我也表达不清楚 是不是该大写的字母没有大写啊
这是窗体加载事件代码
Private Sub Form_Load()
Me.Width = 9840
BaseConn = "provider=microsoft.jet.ole db.3.51;persist security info=false;data sourcr="
End Sub
这是完整的窗体事件代码




运行的错误提示是：未找到提供程序，该程序可能未正确安装

[此贴子已经被作者于2007-9-24 19:28:00编辑过]

BaseConn就是我自己声明的一个变量

是不是因为我没安装那个驱动程序啊
请问怎么安装啊

是什么意思啊
我表达不好啊
能看懂的帮帮我啊

Option Explicit
Dim gconn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsfield As ADODB.Recordset
Dim matable As String
Dim num As Long
Dim BaseConn As String
Dim chaineconn As String
———————————————————————————————————————————————————
Private Sub Form_Load()
Me.Width = 9840
BaseConn = "Provider=Microsoft.Jet.OLE DB.3.51;Persist Security Info=False;Data Sourcr="
End Sub
————————————————————————————————————————————————
Private Sub Command1_Click()
Dim Node As Node
Dim etape1 As Node
Dim etape2 As Node
cd.Filter = "Base Access|*.mdb"
cd.ShowOpen
chaineconn = BaseConn & cd.FileName
If cd.FileName = "" Then Exit Sub
trv.Nodes.Clear
gconn.Open chaineconn
Set rs = gconn.OpenSchema(adSchemaTables)
Set Node = trv.Nodes.Add(, , , "<Base>", 1, 1)
Node.Expanded = True
Do While Not rs.EOF
Select Case LCase(rs.Fields(3))
Case "table"
num = 2
Case Is = "view"
num = 5
Case "system table"
num = 6
Case Else
num = 4
End Select
Set etape1 = trv.Nodes.Add(Node, tvwChild, , rs.Fields(2).Value, num, num)
Set rsfield = gconn.OpenSchema(adSchemaColumns)
Do While Not rsfield.EOF
If rsfield.Fields(2) = rs.Fields(2) Then
Set etape2 = trv.Nodes.Add(etape1, tvwChild, , rsfield.Fields(3), 3, 3)
End If
rsfield.MoveNext
Loop
rs.MoveNext
Loop
gconn.Close
End Sub

_____________________________________________________________-----________________________________

Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
Dim rep As Long
Dim rsprivate As ADODB.Recordset
Dim item As ListItem
Dim requete As String
Dim h, g As Integer
gconn.Open chaineconn
matable = Replace(Node.FullPath, "<base>\", "")
rep = InStr(matable, "\")
If rep > 0 Then
matable = Left$(matable, rep - 1)
End If
requete = "select *from" & matable
On Error GoTo hdl
Set rsprivate = gconn.Execute(requete)
lstv.ListItems.Clear
lstv.ColumnHeaders.Clear
For h = 0 To rsprivate.Fields.Count - 1
lstv.ColumnHeaders.Add , , rsprivate.Fields(h).Name
Next
lstv.View = lvwReport
Do While Not rsprivate.EOF
Set item = lstv.ListItems.Add(, , rsprivate.Fields(0))
For g = 1 To rsprivate.Fields.Count - 1
item.SubItems(g) = rsprivate.Fields(g)
Next
rsprivate.MoveNext
Loop
'sb.panels(1).text="ok"
gconn.Close
Exit Sub
hdl:
On Error Resume Next
gconn.Close
End Sub

拼写应该没错误吧

哦    这样运行后的错误提示是：找不到可插入的  ISAM

哦 行 知道了 谢谢拉
原来在这里啊