05-01-19, 11:41 PM
السلام عليكم ورحمة الله وبركاته
محتاج طريقة او مثال على إستخدام نص الاتصال
لقاعدة بيانات sqlite
لاني بحثت كثيرا ولم تنجح معي ولا محاولة
جملة الاتصال تاتي بنجاح الاتصال
لكن عند محاولة قراءة بيانات من جدول تاتي رسالة file is not a database
اشهر الاكواد المنتشرة على الانترنت الكود التالي ولكن للاسف ياتي برسالة file is not a database
أو إن كان يوجد انواع من قواعد بيانات لا تتطلب برامج لتعمل على جهاز العميل مثل الsqlite ياريت الافادة
وجزاكم الله خيرا
محتاج طريقة او مثال على إستخدام نص الاتصال
لقاعدة بيانات sqlite
لاني بحثت كثيرا ولم تنجح معي ولا محاولة
جملة الاتصال تاتي بنجاح الاتصال
لكن عند محاولة قراءة بيانات من جدول تاتي رسالة file is not a database
اشهر الاكواد المنتشرة على الانترنت الكود التالي ولكن للاسف ياتي برسالة file is not a database
كود :
Dim databaseName = "testdbsqlepw"
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
''create db
SQLiteConnection.CreateFile(databaseName)
''sett conn details
Dim sqlConn As SQLiteConnection = New SQLiteConnection()
sqlConn.ConnectionString = "DataSource=c:\aaaa\" & databaseName & ";Version=3;New=False;Compress=True;"
''open and change password
sqlConn.Open()
sqlConn.ChangePassword("hello")
sqlConn.Close()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
''next time you open db use this code:
Dim sqlConn As SQLiteConnection = New SQLiteConnection()
If sqlConn.State = 1 Then sqlConn.Close()
Try
sqlConn = New SQLiteConnection("DataSource=c:\aaaa\testdbsqlepw;Version=3;New=False;Compress=True;Password=hello;")
sqlConn.Open()
MsgBox("تم الأتصال بقاعدة البيانات", MsgBoxStyle.Information, "رسالة تأكيد")
Catch ex As Exception
MsgBox("فشل في عملية الأتصال بقاعدة البيانات", MsgBoxStyle.Exclamation, "ERROR")
cons.Close()
End
End Try
End Subأو إن كان يوجد انواع من قواعد بيانات لا تتطلب برامج لتعمل على جهاز العميل مثل الsqlite ياريت الافادة
وجزاكم الله خيرا