by Philip Abraham (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 30th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create a Table in MS-Access Using VB Code.
API Declarations
'Microsoft ActiveX Data Objects 2.1 Library
'Microsoft ActiveX Data Objects RecordSet 2.1 Library
'Declare these Variables
Dim Com as New ADODB.Command
Dim Con as New ADODB.Connection
Con.Provider="Microsoft.Jet.OLEDB.3.51"
'specify the Database here
Con.Open "c:\phil\stud.mdb"
Com.ActiveConnection=Con
'Code
Com.Commandtext="Create table stud(sno number(4));"
com.Execute
'Table is Created