Jobs
Author: Aries_Tranate(Bataan) Date Submitted: 5/11/2005 Category: Database Compatibility: VB 6 This code has been accessed 11368 times.
Email Yourself this snippet:
"Nothing "For more code "or want a help to visual basic "just call or text me "09196808745 / 791-5029
Code
'put 1 command button Dim DB As Database Private Sub Command1_Click() Set DB = CreateDatabase(App.Path & "\Aries_Tranate(09196808745)", dbLangGeneral, dbEncrypt) DB.Execute "CREATE TABLE Aries_Tranate(Bataan) " & "(FirstName CHAR (50), LastName CHAR (50), Age INT, Address NOTE,Aries_Tranate char(126));" DB.Close MsgBox "DataBase Created." End End Sub