I`m doing a project in VB to conduct a Quiz competition.
I`ve succeeded in creating databases & tables using ADOX.
The problem is how can I retrieve all table names from a database using ADOX?
with regards
Robins Antony.
Robins Antony 0 Newbie Poster
jireh 3 Posting Whiz
adox or adodb, if adodx sorry never tried...
werks 0 Junior Poster in Training
Never heard of ADODX.. how do you use it? and What are their diferrence?
Jx_Man 987 Nearly a Senior Poster Featured Poster
i never use adox before, but you can see some following links :
see this thread :
http://www.daniweb.com/forums/thread65252.html
http://support.microsoft.com/search/default.aspx?query=retrieve+data+from+access+with+adox&catalog=LCID%3D1033&spid=&mode=r&lsc=0
http://support.microsoft.com/kb/299484/en-us
http://support.microsoft.com/kb/255782/en-us
Sorry if i can help you much...
Robins Antony 0 Newbie Poster
hi frnd,
ADOX means Active Data Object extension.To create a databse using ADOX,
Required references : Microsoft Activex Data Objects 2.1 Library and Microsoft ADOExt 2.1 for DDL and Security.
then try these code...
Private Sub Command1_Click()
Dim tbl As New Table, cat As New ADOX.Catalog
' 1) Create the DataBase
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Clients.mdb" & ";"
' 2) Create Table name "ClientsInfo"
tbl.Name = "ClientsInfo"
' 3) Add 3 Fields
tbl.Columns.Append "Name", adVarWChar, 50 'Text
tbl.Columns.Append "Age", adInteger 'Number
tbl.Columns.Append "Address", adLongVarWChar 'Memo
' 4) Save the Table to the DataBase
cat.Tables.Append tbl
'*********************** Use this to Open and/or Modify an existing DataBase **************
'Open the DataBase
'cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Clients.mdb" & ";"
'*********************************************************************************
MsgBox "Clients.mdb Created."
End Sub
Robins Antony 0 Newbie Poster
hi frnd,
ADOX means Active Data Object extension.To create a databse using OLEDB and ADOX,
Required references : Microsoft Activex Data Objects 2.1 Library and Microsoft ADOExt 2.1 for DDL and Security.
then try these code...
Private Sub Command1_Click()
Dim tbl As New Table, cat As New ADOX.Catalog
' 1) Create the DataBase
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Clients.mdb" & ";"
' 2) Create Table name "ClientsInfo"
tbl.Name = "ClientsInfo"
' 3) Add 3 Fields
tbl.Columns.Append "Name", adVarWChar, 50 'Text
tbl.Columns.Append "Age", adInteger 'Number
tbl.Columns.Append "Address", adLongVarWChar 'Memo
' 4) Save the Table to the DataBase
cat.Tables.Append tbl
'*********************** Use this to Open and/or Modify an existing DataBase **************
'Open the DataBase
'cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Clients.mdb" & ";"
werks 0 Junior Poster in Training
sorry Robin but i dhdon'tave any idea on how to add records using Adodx.. ^^
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.