+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي (/showthread.php?tid=22142)
استفسار بخصوص التاكد من وجود التيبل الاضافي - dubai.eig - 17-10-17
السلام عليكم ورحمة الله
عندي قاعدة بيانات رئيسية
وفي داخلها تيبل اريد اتاكد من وجود التيبل اذا موب موجود اضيف جديد واذا موجود يقولي ان موجود
كمثال
القاعدة الرئيسية هيه
كود :
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
وحاولت اغيرة بس ما نفع معاي
بارك الله فيكم وشكرا
RE: استفسار بخصوص التاكد من وجود التيبل الاضافي - a.ahmed - 17-10-17
PHP كود :
Private Sub btnCreate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCreate.Click
If IsExistTable(txtTable.Text.Trim) Then
MsgBox("Exists", MsgBoxStyle.Exclamation)
Else
If CreateTable(txtTable.Text.Trim) Then
MsgBox("Created", MsgBoxStyle.Information)
Else
MsgBox("Fails", MsgBoxStyle.Exclamation)
End If
End If
End Sub
Function IsExistTable(ByVal tblName As String) As Boolean
Dim sql As String = _
"SELECT COUNT(*) " & _
"FROM [sqlite_master] " & _
"WHERE [type]='table' " & _
" AND [name]=@tName "
Dim cmd As New SQLiteCommand(Sql, con)
cmd.Parameters.AddWithValue("@tName", tblName)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret As Integer = cmd.ExecuteScalar
con.Close()
Return If(ret > 0, True, False)
End Function
Function CreateTable(ByVal tblName As String)
Try
Dim sql As String = _
"CREATE TABLE [" & tblName & "] ( " & _
" [Field1] TEXT(10), " & _
" [Field2] TEXT(10) " & _
" ) "
Dim cmd As New SQLiteCommand(sql, con)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret As Integer = cmd.ExecuteNonQuery
con.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
RE: استفسار بخصوص التاكد من وجود التيبل الاضافي - dubai.eig - 17-10-17
(17-10-17, 09:52 AM)a.ahmed كتب :PHP كود :
Private Sub btnCreate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCreate.Click
If IsExistTable(txtTable.Text.Trim) Then
MsgBox("Exists", MsgBoxStyle.Exclamation)
Else
If CreateTable(txtTable.Text.Trim) Then
MsgBox("Created", MsgBoxStyle.Information)
Else
MsgBox("Fails", MsgBoxStyle.Exclamation)
End If
End If
End Sub
Function IsExistTable(ByVal tblName As String) As Boolean
Dim sql As String = _
"SELECT COUNT(*) " & _
"FROM [sqlite_master] " & _
"WHERE [type]='table' " & _
" AND [name]=@tName "
Dim cmd As New SQLiteCommand(Sql, con)
cmd.Parameters.AddWithValue("@tName", tblName)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret As Integer = cmd.ExecuteScalar
con.Close()
Return If(ret > 0, True, False)
End Function
Function CreateTable(ByVal tblName As String)
Try
Dim sql As String = _
"CREATE TABLE [" & tblName & "] ( " & _
" [Field1] TEXT(10), " & _
" [Field2] TEXT(10) " & _
" ) "
Dim cmd As New SQLiteCommand(sql, con)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret As Integer = cmd.ExecuteNonQuery
con.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
تم احسنت يا بطل من جديد تبهرنا بمساعدتك للشباب
شكرا وفي ميزان حسناتك
