07-02-17, 01:24 AM
(06-02-17, 08:48 PM)مساعدة كتب : لا يوجد جدول في قاعدة البيانات
تفضل تعديل الكود وفي المرفقات قاعدة البيانات وتم فيها اضافة الجدول
كود :
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
ما نستغنى عنك وعن خدماتك بارك الله فيك فعلا ضبط معاي والحمدالله
شكرا لك ولجميع من شارك في الموضوع
