31-12-16, 06:09 PM
السلام عليكم ورحمة الله
من يومين احاول وابحث عن حل لكود التحديث وموب ضابط معاي
الكود
عمل الكود في القاعده عندي اسم احمد موجود اكثر من مرة وبتاريخ ووقت مختلف
الكود يبحث في القاعده عن اسم احمد بتاريخ ووقت معين واذا حصله
يقوم بتحديث نفس السطر اللذي حصله ليقوم بتغيير
من حرف N الى حرف Y
اتمنى يكون الشرحح مفهوم بارك الله فيكم
اتعبني الكود من يومين
وشكرا
من يومين احاول وابحث عن حل لكود التحديث وموب ضابط معاي
الكود
كود :
Dim con As New SQLiteConnection("Data Source=tables.s3db")
Dim cmdi As New SQLiteCommand(" SELECT COUNT(*) FROM table WHERE name = @name and Date = @Date and time = @time", con)
cmdi.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
cmdi.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
cmdi.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
con.Open()
If cmdi.ExecuteScalar = 0 Then
Dim rcvd As String = String.Empty
rcvd = "Y"
Dim cmd As New SQLiteCommand("UPDATE table SET trcvd=@trcvd WHERE name=@name AND Date=@Date AND time=@time", con)
cmd.Parameters.AddWithValue("@trcvd", rcvd)
cmd.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
cmd.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
cmd.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
cmd.ExecuteNonQuery()
con.Close()
Else
MsgBox("No Records Found")
End If
عمل الكود في القاعده عندي اسم احمد موجود اكثر من مرة وبتاريخ ووقت مختلف
كود :
name - Date - time - trcvd
Ahmed - 11/05/2016 - 11:02 - N
Ahmed - 20/03/2016 - 12:12 - N
Ahmed - 30/09/2016 - 01:09 - N
Ahmed - 15/11/2016 - 06:55 - N
الكود يبحث في القاعده عن اسم احمد بتاريخ ووقت معين واذا حصله
كود :
Dim con As New SQLiteConnection("Data Source=tables.s3db")
Dim cmdi As New SQLiteCommand(" SELECT COUNT(*) FROM table WHERE name = @name and Date = @Date and time = @time", con)
cmdi.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
cmdi.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
cmdi.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
con.Open()
If cmdi.ExecuteScalar = 0 Then
يقوم بتحديث نفس السطر اللذي حصله ليقوم بتغيير
كود :
@trcvd
من حرف N الى حرف Y
كود :
Dim rcvd As String = String.Empty
rcvd = "Y"
Dim cmd As New SQLiteCommand("UPDATE table SET trcvd=@trcvd WHERE name=@name AND Date=@Date AND time=@time", con)
cmd.Parameters.AddWithValue("@trcvd", rcvd)
cmd.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
cmd.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
cmd.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
cmd.ExecuteNonQuery()
con.Close()
اتمنى يكون الشرحح مفهوم بارك الله فيكم
اتعبني الكود من يومين
وشكرا