07-02-17, 04:00 PM
(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
بارك الله فيك
ممكن اتعبك معاي شويه
محتاج اضافه على الكود
وهيه بعد 24 ساعه يتم تصفير الرقم
وفي ميزان اعمالك
