kita bisa pake OpenSchema method dari object connection, feel free to read the msdn for details...
berikut contoh buat cari daftar semua table yg ada, buat cari daftar column gunakan adSchemaColumns dan COLUMN_NAME
Dim rs As ADODB.Recordset, cn As ADODB.Connection
cn.Open "your connection string here","your user id", "your password"
Set rs = New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables)
Set rs = cn.OpenSchema(adSchemaTables)
If Not (rs.EOF And rs.BOF) Then
Do While Not rs.EOF
Debug.Print "table name: " & rs.Fields("TABLE_NAME").Value
Do While Not rs.EOF
Debug.Print "table name: " & rs.Fields("TABLE_NAME").Value
Loop
End If
End If
best regards
[wwn]
On 3/20/06, don mars <[EMAIL PROTECTED]> wrote:
Para Master,
Ada yang tahu cara mengetahui tabel2 + column yang ada pada database acces menggunakan
vb6 ?
Terima kasih untuk pencerahannya
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
