Cb Coding ini contoh dengan DAO
Thx
Dim DbTemp As DAO.Database
Dim Tb As DAO.TableDef
Dim DirDBF As String
Dim DirLokasi as string
DirLokasi=C:\FILEDBF
If ChkFile.FileExists(DirLokasi & "\" & NmTabel & ".DBF") Then
Call ChkFile.DeleteFile(DirLokasi & "\" & NmTabel & ".DBF")
End If
Set DbTemp = OpenDatabase(DirLokasi, False, False, "dBASE IV;")
Set Tb = DbTemp.CreateTableDef(NmTabel)
With Tb
.Fields.Append .CreateField("PLU", dbText, 4)
.Fields.Append .CreateField("Quantity", dbInteger)
.Fields.Append .CreateField("Tanggal", dbDate)
End With
DbTemp.TableDefs.Append Tb
DbTemp.Close
Set DbTemp = Nothing
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Fakhrul
Sent: 22 Desember 2007 18:50
To: [email protected]
Subject: [indoprog-vb] MENBENTUK FILE DBF (FoxBase)
To All Master Vb
Minta tolong bantuan koding untuk membuat file FoxBase di dalam program
Vb. (create file)
Sehingga tidak perlu file pendukung yang disertakan dalam Setup nya
nanti.
Terima kasih
----------------------------------------------------------
Get a free email address with REAL anti-spam protection.
http://www.bluebott <http://www.bluebottle.com/tag/1> le.com/tag/1
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Untuk forum diskusi lainnya kunjungi :
http://www.geocities.com/indoprog
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
