经常有朋友问怎么得到ACCESS的表结构。
- Public Sub getTables()
- Dim rs As New ADODB.Recordset
- Dim conn As ADODB.Connection
- Dim sSql As String
- Set conn = CurrentProject.Connection
- sSql = "select id,Name from MSysObjects where Type=1 and flags=0"
- rs.Open sSql, conn
- Do While Not rs.EOF
- Debug.Print "****"; rs.Fields("Name").Value; "****************"
- getTableColumns rs.Fields("Name").Value
- rs.MoveNext
- Loop
- rs.Close
- Set rs = Nothing
- Set conn = Nothing
- End Sub
- Public Sub getTableColumns(sTableName As String)
- <