I-BEGO

TUarik wrote:udah dibaca oom... sampe tuntas... dan masalahnya nggk kelar... kwkwkw...

Jika dari contoh yng teleh diberikan oleh temen-temen tidak berhasil juga, untuk Kasus Database Ms. Access coba gunakan cara ini untuk mendapatkan/mengambil daftar nama table yg ada dalam database.

Ket :
CN = Variable Connection to Database File
ListBox1 = Control ListBox

Code: Select all

Sub ListOfTableMsAccess()
                Dim tbCekTablename As New ADODB.Recordset
                Set tbCekTablename = cn.OpenSchema(adSchemaTables, _
                Array(Empty, Empty, Empty, "Table"))
                Do While Not tbCekTablename.EOF
                   'Memasukkan daftar nama table ke dalam ListBox
                   ListBox1.AddItem tbCekTablename!TABLE_NAME
                   tbCekTablename.MoveNext
                Loop
                Set tbCekTablename = Nothing
End Sub


oom PB, blog nya udah hidup lagi yah?

Bapak - Bapak semuanya .. sekalian donk Post materi tentang "For Each " dan "Collection" pada Visual Basic 6 . Saya sebenarnya bellum terlalu mengerti dengan 2 Hal ini . Terima kasih

Achmadpdam wrote:Bapak - Bapak semuanya .. sekalian donk Post materi tentang "For Each " dan "Collection" pada Visual Basic 6 . Saya sebenarnya bellum terlalu mengerti dengan 2 Hal ini . Terima kasih

dibuat thread baru aja boz..