نحوه ایجاد دو یا چند جدول

[vb.net.33]

با سلام من از کد های زیر جهت ایجاد دیتا بیس استفاده کرده و 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()

[mohsenm66]

بعد از دستور اول ; بگذار و دستور دوم را هم با آن add کن به این صورت :


cmd.CommandText = "CREATE TABLE A(filename33 TEXT , pos33 LONG);"
cmd.CommandText += "CREATE TABLE B(filename33 TEXT , pos33 LONG)"

[vb.net.33]

بعد از دستور اول ; بگذار و دستور دوم را هم با آن add کن به این صورت :


cmd.CommandText = "CREATE TABLE A(filename33 TEXT , pos33 LONG);"
cmd.CommandText += "CREATE TABLE B(filename33 TEXT , pos33 LONG)"


دوست عزیز امتحان کردم کارد نکرد خطا گرفت.

[vb.net.33]

اساتید لطفا راهنمائی کنید خیلی نیاز دارم.با تشکر

[سوداگر]

با سلام من از کد های زیر جهت ایجاد دیتا بیس استفاده کرده و 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()
باید هم فقط B رو بسازه. چون وقتی متد ExecuteNonQuery رو فراخوانی میکنید، مقدار commandtext برابر create table B هستش.
بین اون دو تا خطی که commandtext رو مقداردهی کردی یه executeNonQuery بذار. درست میشه.