[VBS] Database - Membuat Tabel Baru JET Database

Dim objADO
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=f:\Phone.mdb"
        
  objADO.Execute "CREATE TABLE TemanKu(" & _
     "Nama TEXT(20) ," & _
     "Alamat TEXT(20) ," & _
     "Telephone TEXT(15))" 
objADO.Close

'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..