[princelovelorn]

السلام عليكم ورحمة الله وبركاته

محتاج طريقة او مثال على إستخدام نص الاتصال
لقاعدة بيانات 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  ياريت الافادة 
وجزاكم الله خيرا