Re: [Programmer-VB] Query untuk hapus Tabel di Access

Tue, 04 Apr 2006 20:44:16 -0700

coba bantu ya. Fungsi berikut adalah untuk membuat table dengan cara memeriksa apakah table sudah ada dengan memeriksa semua table di database, kalo tabel sudah ada maka tabel akan dihapus dulu lalu dibuat table baru.
 
Public Function CreateDumTable(ByVal TName As String) As Boolean
Dim SQL As String
On Error GoTo L1:
Dim Rs As ADODB.Recordset
Set Rs = Cn.OpenSchema(adSchemaTables)
 Rs.MoveFirst
 Do Until Rs.EOF
 
  
  'jika table sudah ada maka dihapus (drop table)
  If UCase(TName) = UCase(Rs(2)) And UCase(Rs(3)) = "TABLE" Then
    'Hapus table
    Cn.Execute "drop TABLE [" & TName & "]"
  End If
  Rs.MoveNext
 Loop
 
Rs.Close
Set Rs = Nothing
 
SQL = "CREATE TABLE [" & TName & "] (" _
    & " URUT NUMBER NULL ," _
    & " KODE_REKENING TEXT(30) NULL ," _
    & " NAMA_REKENING TEXT(100) NULL ," _
    & " KODE_KELOMPOK TEXT(50) NULL ," _
    & " NAMA_KELOMPOK TEXT(50) NULL ," _
    & " POS TEXT (1)  NULL ," _
    & "[LEVELS] NUMBER NULL ," _
    & "S1 TEXT(100)  NULL ," _
    & "S2 TEXT(100)  NULL ," _
    & "S3 TEXT(100)  NULL," _
    & "S4 TEXT(100)  NULL," _
    & "S5 TEXT(100)  NULL," _
    & "FTOTAL TEXT(50)  NULL," _
    & "ALIAS TEXT(50)  NULL" _
    & ")"
 
Cn.Execute SQL
CreateDumTable = True
Exit Function
L1:
CreateDumTable = False
End Function
 
 
semoga membantu
----- Original Message -----
Sent: Wednesday, April 05, 2006 10:29 AM
Subject: [Programmer-VB] Query untuk hapus Tabel di Access

Dear VB' ers...
Salam kenal, saya newbie di VB Programming nih
 
Saya ingin nanya ke temen-temen, ada gak yang tau ttg perintah / Query di VB untuk men-delete tabel di Access secara fisik.
 
Misal kita punya Database (DB1.mdb) dan didalamnya ada sebuah tabel (Biodata)
 
Kan biasanya kalau menghapus isi (record) dalam tabel Biodata bisa dengan query "DELETE * FROM Biodata". Nah yang ingin saya maksud adalah bagaimana untuk menghapus tabel Biodata itu sendiri lewat coding di VB.
 
Kalau ada diantara teman-teman ada yang bisa, please help me.....Terima kasih sebelumnya.

New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.

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


YAHOO! GROUPS LINKS



Kirim email ke