Access的简单问题.真的很菜!

Question

在记录集rs的open方法中加入表名,rs.Open "表名", cnn, adOpenKeyset, adLockPessimistic, adCmdTable

Answer 1

楼上的lainpo(卡门),不要搞错,我说的“表名”不是数据表的名字，而是指数据表的名字。

Answer 2

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strTable, strInfo As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
Set rs = conn.OpenSchema(adSchemaTables)
For i = 0 To rs.Fields.Count - 1
    strTable = strTable & i & rs.Fields(i).Name & vbTab
Next
MsgBox strTable
While Not rs.EOF
  If Not IsNull(rs.Fields(2)) Then
     S = S & rs.Fields(2).Value & vbTab
  End If
   rs.MoveNext
Wend
MsgBox S '数据库所有表名
End Sub

Answer 3

Dim db As New ADODB.Connectiondb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路径;Persist Security Info=False"
这样就可以了，你看看吧，