pakai ini aja
dim x as database
Dim TblMasteragen As TableDef
Set x = CreateDatabase(c:\test.mdb)
Set TblMasteragen = fl.CreateTableDef("mAgen")
  With TblMasteragen
        .Fields.Append .CreateField("KdAgen", dbText, 13)
        .Fields.Append .CreateField("NamaAgen", dbText, 40)
        .Fields.Append .CreateField("Alamat", dbText, 75)
        .Fields.Append .CreateField("no_telp", dbText, 15)
        .Fields.Append .CreateField("Contact", dbText, 30)
        .Fields.Append .CreateField("Wilayah", dbText, 20)
        .Fields.Append .CreateField("Harga_Satuan", dbCurrency, 8)
        .Fields.Append .CreateField("Discount", dbText, 4)
    End With  
   x.TableDefs.Append TblMasteragen
   x.close
 
semoga bisa membantu
jangan lupa referencenya pakai dao 3.5 
----- Original Message -----
From: dayat
Sent: Tuesday, May 17, 2005 3:57 PM
Subject: Re: [Programmer-VB] Created Tabel Pake Coding ?

pake sql aja
create table tes(nama varchar, tanggal_lahir date, dst...)
 
-------Original Message-------
 
From: mr_wa1
Date: 05/17/05 15:42:14
Subject: [Programmer-VB] Created Tabel Pake Coding ?
 
Dear All
 
Ane punya problem nih, ane mau bikin tabel dengan coding...
kalo di clipper pake DBcreated(bla bla bla), kalo di VB bisa gak ya?
 
thx
wawan
 
 
 
 
Untuk keluar dari millis ini, kirim email kosong ke:
 
 
Yahoo! Groups Links
 
<*> To visit your group on the web, go to:
 
<*> To unsubscribe from this group, send an email to:
 
<*> Your use of Yahoo! Groups is subject to:
 
 
 


Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





Yahoo! Groups Links

<<IMSTP.gif>>

Kirim email ke