[مساعدة]

لا يوجد جدول في قاعدة البيانات

تفضل تعديل الكود وفي المرفقات قاعدة البيانات وتم فيها اضافة الجدول

كود :

Imports System.Data.SQLite

Public Class Form1


    ' الاتصال
    Private con As New SQLiteConnection("Data Source = " & My.Application.Info.DirectoryPath & "\click.s3db;")

    ' متغير العداد
    Private clickCount As Integer = 0




    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' قراءة البيانات
        readData()
    End Sub




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' زيادة العداد
        clickCount += 1

        ' تحديث السجل رقم 1 بقيمة العداد الحالية
        Using cmd As New SQLiteCommand("UPDATE [click]  SET [clickCount] = @clickCount  WHERE [id] = @id ", con)
            cmd.Parameters.AddWithValue("@clickCount", clickCount)
            cmd.Parameters.AddWithValue("@id", 1)


            If con.State <> ConnectionState.Open Then con.Open()
            cmd.ExecuteNonQuery()
            con.Close()

        End Using

        ' قراءة البيانات
        readData()

    End Sub




    ' قراءة البيانات
    Private Sub readData()

        ' التأكد من وجود سجل برقم 1
        If Not isThereId(1) Then
            ' إضافة سجل جديد
            Insert()
        End If

        '------------------------------

        ' قراءة البيانات في السجل رقم 1
        Using cmd As New SQLiteCommand("SELECT [clickCount]  FROM [click]  WHERE [id]=@id ", con)
            cmd.Parameters.AddWithValue("@id", 1)

            If con.State <> ConnectionState.Open Then con.Open()
            clickCount = cmd.ExecuteScalar
            con.Close()

        End Using

        ' إظهار القيمة
        CountOut.Text = clickCount

    End Sub



    ' التأكد من وجود سجل برقم محدد
    Private Function isThereId(id As Integer) As Boolean
        Using cmd As New SQLiteCommand("SELECT COUNT( [id] )  FROM [click]  WHERE [id] = @id ", con)
            cmd.Parameters.AddWithValue("@id", 1)

            If con.State <> ConnectionState.Open Then con.Open()
            Return If(cmd.ExecuteScalar > 0, True, False)
            con.Close()

        End Using
    End Function



    ' إضافة سجل جديد
    Private Sub Insert()
        ' إضافة سجل جديد
        Using cmd As New SQLiteCommand("INSERT INTO [click] ( [clickCount] ) VALUES ( 0 ) ", con)
            cmd.Parameters.AddWithValue("@id", 1)
            If con.State <> ConnectionState.Open Then con.Open()
            cmd.ExecuteNonQuery()
            con.Close()

        End Using
    End Sub


End Class