17-10-17, 08:40 AM
السلام عليكم ورحمة الله
عندي قاعدة بيانات رئيسية
وفي داخلها تيبل اريد اتاكد من وجود التيبل اذا موب موجود اضيف جديد واذا موجود يقولي ان موجود
كمثال
القاعدة الرئيسية هيه
واريد اضيف داخلها بعد التاكد من عدم وجود نفس اسم التيبل المراد اضافته
بعد البحث حصلت هذا الكود
وحاولت اغير لاني هذا الكود بنظام OleDb وانا اعمل على SQLite
وحاولت اغيرة بس ما نفع معاي
بارك الله فيكم وشكرا
عندي قاعدة بيانات رئيسية
وفي داخلها تيبل اريد اتاكد من وجود التيبل اذا موب موجود اضيف جديد واذا موجود يقولي ان موجود
كمثال
القاعدة الرئيسية هيه
كود :
Data Source= {0}\DBT\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
واريد اضيف داخلها بعد التاكد من عدم وجود نفس اسم التيبل المراد اضافته
بعد البحث حصلت هذا الكود
كود :
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
' in this example the table name comes from a textbox
Dim tableName As String = txtTable.Text
' define new db connection
Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\suranda\Visual Studio Projects\testSolution\testDB.mdb")
' get database schema
con.Open()
Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, tableName, "TABLE"})
con.Close()
' if the table exists the count will be 1...
If dbSchema.Rows.Count > 0 Then
' ... do whatever you want to do if the table exists
Else
' ... do whatever you want to do if the table does not exist
' eg create a table
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End If
End Sub
وحاولت اغير لاني هذا الكود بنظام OleDb وانا اعمل على SQLite
وحاولت اغيرة بس ما نفع معاي
بارك الله فيكم وشكرا