if it is access:
Code:
Option Explicit
Const dbPathName As String = "Data Source=D:\Cimperiali\Vb\Office\Access\ImportFile\db1.mdb"
Private Sub Command1_Click()
Dim strSql As String
strSql = "Create table abc (paper yesno, Twa yesno)"
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & dbPathName
cnn.Open
cnn.Execute strSql
cnn.Close
Set cnn = Nothing
End Sub
...at present time, using mainly Net 4.0, Vs 2010
Special thanks to Lothar "the Great" Haensler, Chris Eastwood , dr_Michael, ClearCode, Iouri and
all the other wonderful people who made and make Codeguru a great place.
Come back soon, you Gurus.
Reply With Quote
