تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] هل الكود هذا صحيح
#1
السلام عليكم ورحمة الله 

من يومين احاول وابحث عن حل لكود  التحديث وموب ضابط معاي

الكود 

كود :
 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()



اتمنى يكون الشرحح مفهوم بارك الله فيكم

اتعبني الكود من يومين 

وشكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

استخدم الاستدلال على السطر المراد تحديثة بالعمود ID ترقيم تلقائي فقط
الرد }}}
تم الشكر بواسطة: dubai.eig
#3
(31-12-16, 07:13 PM)مساعدة كتب : السلام عليكم

استخدم الاستدلال على السطر المراد تحديثة بالعمود ID ترقيم تلقائي فقط

شكرا لك

بس ممكن توضيح اكثر بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#4
في التحديث والحذف يكون مثل هذا الكود
كود :
UPDATE table SET trcvd=@trcvd WHERE id=@id

كود :
DELETE FROM table WHERE id=@id

هل يوجد في الجدول عمود ترقيم تلقائي اسمه ID؟
الرد }}}
تم الشكر بواسطة: dubai.eig
#5
(31-12-16, 09:13 PM)مساعدة كتب : في التحديث والحذف يكون مثل هذا الكود
كود :
UPDATE table SET trcvd=@trcvd WHERE id=@id

كود :
DELETE FROM table WHERE id=@id

هل يوجد في الجدول عمود ترقيم تلقائي اسمه ID؟

نعم يوجد

كود :
id  -  name  -       Date    -  time  -  trcvd

1  - Ahmed  -  11/05/2016  -  11:02  -  N

2  - Ahmed  -  20/03/2016  -  12:12  -  N

3  - Ahmed  -  30/09/2016  -  01:09  -  N

4  - Ahmed  -  15/11/2016  -  06:55  -  N


راح اجرب موضوع ال id
الرد }}}
تم الشكر بواسطة:
#6
استفسار 

الان بعد 

التاكد من وجود الشخص

المطلوب في البحث

كود :
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


كيف ممكن احدد ال ID   الخاص به علشان اقوم بالتحديث

كود :
Dim rcvd As String = String.Empty
              rcvd = "Y"
         
              Dim cmd As New SQLiteCommand("UPDATE table SET trcvd=@trcvd WHERE id=@id ", con)
              cmd.Parameters.AddWithValue("@trcvd", rcvd)
              cmd.Parameters.AddWithValue("@id", ????)

              cmd.ExecuteNonQuery()
              con.Close()


وشكرا من جديد
الرد }}}
تم الشكر بواسطة:
#7
تفضل الكود
كود :
Dim con As New SQLiteConnection("Data Source=tables.s3db")

Dim cmdi As New SQLiteCommand(" SELECT id 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()
Dim id As Integer = cmdi.ExecuteScalar

If id = 0 Then
الرد }}}
تم الشكر بواسطة: dubai.eig
#8
(01-01-17, 01:54 AM)مساعدة كتب : تفضل الكود
كود :
Dim con As New SQLiteConnection("Data Source=tables.s3db")

Dim cmdi As New SQLiteCommand(" SELECT id 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()
Dim id As Integer = cmdi.ExecuteScalar

If id = 0 Then

شكرا على الرد

جربت الكود  وجربت اشوف الناتج  في
 MsgBox(id)

ويطلع لي  الرقم صفر
   

يعني ما يقراء رقم ال id
الرد }}}
تم الشكر بواسطة:
#9
هذا يعني أنه لم يجد بيانات مطابقة لما تبحث عنه

هل لابد من البحث بالثلاث بيانات name وDate وtime ؟

جرب أن تكتفي البحث بالاسم name فقط!
الرد }}}
تم الشكر بواسطة: dubai.eig
#10
(01-01-17, 02:29 AM)مساعدة كتب : هذا يعني أنه لم يجد بيانات مطابقة لما تبحث عنه

هل لابد من البحث بالثلاث بيانات name وDate وtime ؟

جرب أن تكتفي البحث بالاسم name فقط!

عرفت المشكله 

وهيه ان ما يقراء التاريخ

يعني

name  وtime 

يشوفهم ويقارن بين الاثنين 

بس

وDate
ما يشوفه


والتاريخ نفس الشي
   

كود :
           If DataGridView1.Rows(i).Cells(2).Value.ToString() = DataGridView2.Rows(io).Cells(2).Value.ToString() Then
               MsgBox("Yes")
           Else
               MsgBox("no")
           End If

التاريخ في Cells(2)

في DataGridView2  و  DataGridView1

بس غريبه ان ما يقراه

اما الاسم والوقت يقرئهم 

هل في طريقه اخرى او انا غلطان بشي 


وشكرا

(01-01-17, 04:53 PM)dubai.eig كتب :
(01-01-17, 02:29 AM)مساعدة كتب : هذا يعني أنه لم يجد بيانات مطابقة لما تبحث عنه

هل لابد من البحث بالثلاث بيانات name وDate وtime ؟

جرب أن تكتفي البحث بالاسم name فقط!

عرفت المشكله 

وهيه ان ما يقراء التاريخ

يعني

name  وtime 

يشوفهم ويقارن بين الاثنين 

بس

وDate
ما يشوفه


والتاريخ نفس الشي


كود :
           If DataGridView1.Rows(i).Cells(2).Value.ToString() = DataGridView2.Rows(io).Cells(2).Value.ToString() Then
               MsgBox("Yes")
           Else
               MsgBox("no")
           End If

التاريخ في Cells(2)

في DataGridView2  و  DataGridView1

بس غريبه ان ما يقراه

اما الاسم والوقت يقرئهم 

هل في طريقه اخرى او انا غلطان بشي 


وشكرا



علما بان يوم اجرب
كود :
MsgBox(DataGridView1.Rows(i).Cells(2).Value.ToString())

يقراء التاريخ
في DataGridView2  و  DataGridView1

     

غريبه المشكله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم