کدی وجود داره که بشه باهاش نام تیبل های یک بانک اکسس رو مشخص کرد

[m_vb1386]

میتونیم نام تیبل های یک بانک رو بدست بیاریم؟و چجوری؟

[mpmsoft]

بانک SQL و یا Access

برای SQL با SQL Server DMO
برای Access با ADOX






Sub ListTablesADO()
Dim Conn As New ADODB.Connection
Dim TablesSchema As ADODB.Recordset
Dim ColumnsSchema As ADODB.Recordset

'Open connection you want To get database objects
Conn.Provider = "MSDASQL"
Conn.Open "DSN=...;Database=...;", "UID", "PWD"

'Get all database tables.
Set TablesSchema = Conn.OpenSchema(adSchemaTables)
Do While Not TablesSchema.EOF
'Get all table columns.
Set ColumnsSchema = Conn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, "" & TablesSchema("TABLE_NAME")))
Do While Not ColumnsSchema.EOF
Debug.Print TablesSchema("TABLE_NAME") & ", " & _
ColumnsSchema("COLUMN_NAME")
ColumnsSchema.MoveNext
Loop
TablesSchema.MoveNext
Loop
End Sub

[m_vb1386]

اگه میشه در مورد این کد ها یکم توضیح بدین من که متوجه نشدم

[strong46202]

سلام...این نمونه رو واست درست کردم از این دیگه واضحتر نمیشه..با کلیک بر روی نام هر جدول میتونی نام فیلدهاش رو هم بدست بیاری

[m_vb1386]

من خیلی با این کد ها اشنایی ندارم لطفا یکم بیشتر توضیح بدین