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 ياريت الافادة
وجزاكم الله خيرا
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي
لكل من يقوم بالمساهمة
