vb.net.33
چهارشنبه 23 آذر 1390, 19:43 عصر
با سلام من از کد های زیر جهت ایجاد دیتا بیس استفاده کرده و 2 جدول A و B رو ایجاد می کنم . اما فقط جدول B اضافه میشه.چکار کنم که هر دو تاش اضافه بشه.
با تشکر- لطفا سریع پاسخ بدین.
Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & save_dialog.FileName
Dim cmd As OleDbCommand
' Use a late bound COM object to create a new catalog. This is so we avoid an interop assembly.
Dim catType = Type.GetTypeFromProgID("ADOX.Catalog")
Dim MM As Object = Activator.CreateInstance(catType)
catType.InvokeMember("Create", BindingFlags.InvokeMethod, Nothing, MM, New Object() {cnnStr})
Dim cnn As New OleDbConnection(cnnStr)
cnn.Open()
cmd = cnn.CreateCommand()
cmd.CommandText = "CREATE TABLE A(filename33 TEXT , pos33 LONG)"
cmd.CommandText = "CREATE TABLE B(filename33 TEXT , pos33 LONG)"
cmd.ExecuteNonQuery()
با تشکر- لطفا سریع پاسخ بدین.
Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & save_dialog.FileName
Dim cmd As OleDbCommand
' Use a late bound COM object to create a new catalog. This is so we avoid an interop assembly.
Dim catType = Type.GetTypeFromProgID("ADOX.Catalog")
Dim MM As Object = Activator.CreateInstance(catType)
catType.InvokeMember("Create", BindingFlags.InvokeMethod, Nothing, MM, New Object() {cnnStr})
Dim cnn As New OleDbConnection(cnnStr)
cnn.Open()
cmd = cnn.CreateCommand()
cmd.CommandText = "CREATE TABLE A(filename33 TEXT , pos33 LONG)"
cmd.CommandText = "CREATE TABLE B(filename33 TEXT , pos33 LONG)"
cmd.ExecuteNonQuery()