+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ممكن مساعدة في كود sqlite (/showthread.php?tid=12824)
ممكن مساعدة في كود sqlite - melkismail - 27-07-15
هذا الكود هو لدالة للتحقق من قاعدة بيانات نوع acces وانا أريد تحويل الكود ليعمل معي على ال SQLite
Public Function TableExists() As Boolean
Try
conp = New SQLiteConnection("Data Source='" & ofd.FileName & "'")
Dim t(5) As String
t(0) = "classe"
t(1) = "eleves"
t(2) = "istiara"
t(3) = "livre"
t(4) = "section_livre"
For a As Integer = 0 To 4
If conp.State = ConnectionState.Open Then conn.Close()
conp.Open()
Dim dbSchema As DataTable = conp.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, t(a), "TABLE"})
If dbSchema.Rows.Count > 0 Then
TableExists = True
Else
TableExists = False
Exit Function
End If
Next
Return TableExists
Catch ex As Exception
If conn.State = ConnectionState.Open Then conn.Close()
MsgBox(ex.Message)
End Try
End Function