7,759
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim tabelName(50) As String
Dim i As Integer
Dim l As Integer
Dim fileN As String
Dim tableN As String
Private Sub Combo1_Click()
tableN = Combo1
Text1 = tableN
End Sub
Private Sub Command1_Click() '显示表名
CommonDialog1.ShowOpen
fileN = CommonDialog1.FileName
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & fileN & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=123"
Set rs = New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "TABLE"))
While Not rs.EOF
tabelName(i) = rs!TABLE_NAME
i = i + 1
rs.MoveNext
Wend
rs.Close
cn.Close
l = i - 1
For i = 0 To l
Combo1.AddItem tabelName(i)
Next
End Sub
Private Sub Command2_Click() '显示字段
Dim SQL As String
SQL = "select * from " & tableN
Dim cn As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & fileN & ";" & "Persist Security Info=False;" & "Jet OLEDB:Database Password=123"
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
Text2 = rs.Fields.Count
For i = 0 To rs.Fields.Count - 1
Combo2.AddItem rs.Fields(i).Name
Next
rs.Close
cn.Close
End Sub
Private Sub Form_Load()
Text1 = ""
Combo1 = ""
Text2 = ""
Combo2 = ""
End Sub