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

كود التعديل للبارو ميتر كيف يكون ؟؟

كود الحذف ايضا 

من الداتا بيس اكسس

البرنامج الى استخدمه طورته لان هو نفس 2012 فخترت 2013 مثل الشيء ولكن ارتب بنظري

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

السلام عليكم ورحمة الله


إيش تقصد (للبارو ميتر) هل قصدك البارامتر اللي يمرر البيانات لجملة الاسكويل.

طيب لو وضعت جزء من الكود عشان يساعد في فهم المطلوب.


الرد }}}
تم الشكر بواسطة:
#3
اسف اخوي لم الاحظ بانني لم اضع لكم الكود

هذا هو كود الادخال
كود :
Dim conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123")

       Dim sql As String = _
           " INSERT INTO [StudentEvents] " & _
           " (  Events_Name,  Student_Name,  Student_CPR,  Events_Date,  Events_Price ) " & _
           " VALUES " & _
           " ( @Events_Name, @Student_Name, @Student_CPR, @Events_Date, @Events_Price ) "

       Dim cmd As New OleDbCommand(sql, conn)
       cmd.Parameters.AddWithValue("@Events_Name", TextBox15.Text)
       cmd.Parameters.AddWithValue("@Student_Name", ComboBox8.Text)
       cmd.Parameters.AddWithValue("@Student_CPR", TextBox13.Text)
       cmd.Parameters.AddWithValue("@Events_Date", DateTimePicker4.Value.Date)
       cmd.Parameters.AddWithValue("@Events_Price", TextBox14.Text)

       conn.Open()
       cmd.ExecuteNonQuery()
       conn.Close()

       MessageBox.Show("تمت الإضافة بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)

اريد كود التعديل وكود الحذف
الرد }}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله


حسنت لك الكود الأول وأضفت لك كود الحذف والتعديل وإن شاء الله تمام.
PHP كود :
Imports System.Data.OleDb

Public Class Form1

    
Private connString As String "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" Application.StartupPath() & "\Data.accdb" "; Persist Security Info=True; Jet OLEDB:Database Password=123"


    ' الإضافة '
    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        
Try

            
Using conn As New OleDbConnection(connString)

                
' الإضافة '
                
Dim sql As String _
                    
" INSERT INTO [StudentEvents] " _
                    
" (  Events_Name,  Student_Name,  Student_CPR,  Events_Date,  Events_Price ) " _
                    
" VALUES " _
                    
" ( @Events_Name, @Student_Name, @Student_CPR, @Events_Date, @Events_Price ) "

                
Using cmd As New OleDb.OleDbCommand(sqlconn)
                    
' ترتيب البارامترات هو نفس ترتيب تواجدها في جملة الاسكويل '
                    
cmd.Parameters.AddWithValue("@Events_Name"TextBox15.Text)
                    
cmd.Parameters.AddWithValue("@Student_Name"ComboBox8.Text)
                    
cmd.Parameters.AddWithValue("@Student_CPR"TextBox13.Text)
                    
cmd.Parameters.AddWithValue("@Events_Date"DateTimePicker4.Value.Date)
                    
cmd.Parameters.AddWithValue("@Events_Price"TextBox14.Text)

                    
conn.Open()
                    
Dim result As Integer cmd.ExecuteNonQuery()
                    
conn.Close()

                    If 
result 0 Then
                        MessageBox
.Show("تمت الإضافة بنجاح""مبروك"MessageBoxButtons.OKMessageBoxIcon.Information)
                    Else
                        
MessageBox.Show("لم تتم الإضافة""إضافة"MessageBoxButtons.OKMessageBoxIcon.Warning)
                    
End If

                
End Using
            End Using

        
Catch ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub


    
' التعديل '
    
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
        
Try

            
Using conn As New OleDbConnection(connString)

                
' التعديل '
                
Dim sql As String _
                    
" UPDATE [StudentEvents]  " _
                    
" SET [Events_Name]=@Events_Name " _
                    
"   , [Student_Name]=@Student_Name " _
                    
"   , [Student_CPR]= @Student_CPR " _
                    
"   , [Events_Date]=@Events_Date " _
                    
"   , [Events_Price]=@Events_Price " _
                    
" WHERE [id]=@id "

                
Using cmd As New OleDb.OleDbCommand(sqlconn)
                    
' ترتيب البارامترات هو نفس ترتيب تواجدها في جملة الاسكويل '
                    
cmd.Parameters.AddWithValue("@Events_Name"TextBox15.Text)
                    
cmd.Parameters.AddWithValue("@Student_Name"ComboBox8.Text)
                    
cmd.Parameters.AddWithValue("@Student_CPR"TextBox13.Text)
                    
cmd.Parameters.AddWithValue("@Events_Date"DateTimePicker4.Value.Date)
                    
cmd.Parameters.AddWithValue("@Events_Price"TextBox14.Text)
                    
cmd.Parameters.AddWithValue("@id"id)

                    
conn.Open()
                    
Dim result As Integer cmd.ExecuteNonQuery()
                    
conn.Close()

                    If 
result 0 Then
                        MessageBox
.Show("تمت الإضافة بنجاح""مبروك"MessageBoxButtons.OKMessageBoxIcon.Information)
                    Else
                        
MessageBox.Show("لم أجد الرقم""تحديث"MessageBoxButtons.OKMessageBoxIcon.Warning)
                    
End If

                
End Using
            End Using

        
Catch ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub


    
' الحذف '
    
Private Sub Button3_Click(sender As System.ObjectAs System.EventArgsHandles Button3.Click
        
Try

            
Using conn As New OleDbConnection(connString)

                
' الحذف '
                
Dim sql As String _
                    
" DELETE FROM [StudentEvents]  " _
                    
" WHERE [id]=@id "

                
Using cmd As New OleDb.OleDbCommand(sqlconn)
                    
cmd.Parameters.AddWithValue("@id"id)

                    
conn.Open()
                    
Dim result As Integer cmd.ExecuteNonQuery()
                    
conn.Close()

                    If 
result 0 Then
                        MessageBox
.Show("تمت الحذف بنجاح""مبروك"MessageBoxButtons.OKMessageBoxIcon.Information)
                    Else
                        
MessageBox.Show("لم أجد الرقم""حذف"MessageBoxButtons.OKMessageBoxIcon.Warning)
                    
End If

                
End Using
            End Using

        
Catch ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub

End 
Class 

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

اتمنى ان يعمل الكود بشكل صحيح وخالي من الاخطاء
الرد }}}
تم الشكر بواسطة:
#6
اخي الوليد يوجد خطأ في التعديل و الحذف

الكود التعديل
كود :
Try

           Using conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123")

               ' التعديل '
               Dim sql As String = _
                   " UPDATE [Student]  " & _
                   " SET [Student_Name]=@Student_Name " & _
                   "   , [Student_CPR]=@Student_CPR " & _
                   "   , [Student_Birth]= @Student_Birth " & _
                   "   , [Student_Join]=@Student_Join " & _
                   "   , [Student_Nation]=@Student_Nation " & _
                   "   , [Student_Sex]=@Student_Sex " & _
                   "   , [Student_D]=@Student_D " & _
                   "   , [Student_Place]=@Student_Place " & _
                   "   , [Student_Address]=@Student_Address " & _
                   "   , [Student_Sick]=@Student_Sick " & _
                   "   , [Student_Vairus]=@Student_Vairus " & _
                   "   , [Student_phone]=@Student_phone " & _
                   "   , [Student_Dad]=@Student_Dad " & _
                   "   , [Student_mom]=@Student_mom " & _
                   "   , [Student_Angel]=@Student_Angel " & _
                   "   , [Student_jobmom]=@Student_jobmom " & _
                   "   , [Student_jobdad]=@Student_jobdad " & _
                   "   , [Student_Famaly]=@Student_Famaly " & _
                   "   , [Student_Pic]=@Student_Pic " & _
                   " WHERE [id]=@id "

               Using cmd As New OleDb.OleDbCommand(sql, conn)
                   ' ترتيب البارامترات هو نفس ترتيب تواجدها في جملة الاسكويل '
                   cmd.Parameters.AddWithValue("@Student_Name", ComboBox15.Text)
                   cmd.Parameters.AddWithValue("@Student_CPR", TextBox16.Text)
                   cmd.Parameters.AddWithValue("@Student_Birth", DateTimePicker6.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Join", DateTimePicker5.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Nation", ComboBox14.Text)
                   cmd.Parameters.AddWithValue("@Student_Sex", ComboBox9.Text)
                   cmd.Parameters.AddWithValue("@Student_D", ComboBox10.Text)
                   cmd.Parameters.AddWithValue("@Student_Place", ComboBox13.Text)
                   cmd.Parameters.AddWithValue("@Student_Address", TextBox24.Text)
                   cmd.Parameters.AddWithValue("@Student_Sick", ComboBox12.Text)
                   cmd.Parameters.AddWithValue("@Student_Vairus", TextBox19.Text)
                   cmd.Parameters.AddWithValue("@Student_phone", TextBox23.Text)
                   cmd.Parameters.AddWithValue("@Student_Dad", TextBox22.Text)
                   cmd.Parameters.AddWithValue("@Student_mom", TextBox21.Text)
                   cmd.Parameters.AddWithValue("@Student_Angel", TextBox20.Text)
                   cmd.Parameters.AddWithValue("@Student_jobmom", TextBox18.Text)
                   cmd.Parameters.AddWithValue("@Student_jobdad", TextBox17.Text)
                   cmd.Parameters.AddWithValue("@Student_Famaly", ComboBox11.Text)

                   Using ms As New IO.MemoryStream
                       Me.PictureBox2.Image.Save(ms, Imaging.ImageFormat.Png)
                       cmd.Parameters.AddWithValue("@Student_Pic", ms.ToArray())
                   End Using

                   conn.Open()
                   Dim result As Integer = cmd.ExecuteNonQuery()
                   conn.Close()

                   If result > 0 Then
                       MessageBox.Show("تم التعديل بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
                   Else
                       MessageBox.Show("لم أجد الرقم", "تحديث", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                   End If

               End Using
           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كود الحذف
كود :
Try

           Using conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123")

               ' الحذف '
               Dim sql As String = _
                   " DELETE FROM [Student]  " & _
                   " SET [Student_Name]=@Student_Name " & _
                   "   , [Student_CPR]=@Student_CPR " & _
                   "   , [Student_Birth]= @Student_Birth " & _
                   "   , [Student_Join]=@Student_Join " & _
                   "   , [Student_Nation]=@Student_Nation " & _
                   "   , [Student_Sex]=@Student_Sex " & _
                   "   , [Student_D]=@Student_D " & _
                   "   , [Student_Place]=@Student_Place " & _
                   "   , [Student_Address]=@Student_Address " & _
                   "   , [Student_Sick]=@Student_Sick " & _
                   "   , [Student_Vairus]=@Student_Vairus " & _
                   "   , [Student_phone]=@Student_phone " & _
                   "   , [Student_Dad]=@Student_Dad " & _
                   "   , [Student_mom]=@Student_mom " & _
                   "   , [Student_Angel]=@Student_Angel " & _
                   "   , [Student_jobmom]=@Student_jobmom " & _
                   "   , [Student_jobdad]=@Student_jobdad " & _
                   "   , [Student_Famaly]=@Student_Famaly " & _
                   "   , [Student_Pic]=@Student_Pic " & _
                   " WHERE [id]=@id "

               Using cmd As New OleDb.OleDbCommand(sql, conn)
                   cmd.Parameters.AddWithValue("@Student_Name", ComboBox15.Text)
                   cmd.Parameters.AddWithValue("@Student_CPR", TextBox16.Text)
                   cmd.Parameters.AddWithValue("@Student_Birth", DateTimePicker6.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Join", DateTimePicker5.Value.Date)
                   cmd.Parameters.AddWithValue("@Student_Nation", ComboBox14.Text)
                   cmd.Parameters.AddWithValue("@Student_Sex", ComboBox9.Text)
                   cmd.Parameters.AddWithValue("@Student_D", ComboBox10.Text)
                   cmd.Parameters.AddWithValue("@Student_Place", ComboBox13.Text)
                   cmd.Parameters.AddWithValue("@Student_Address", TextBox24.Text)
                   cmd.Parameters.AddWithValue("@Student_Sick", ComboBox12.Text)
                   cmd.Parameters.AddWithValue("@Student_Vairus", TextBox19.Text)
                   cmd.Parameters.AddWithValue("@Student_phone", TextBox23.Text)
                   cmd.Parameters.AddWithValue("@Student_Dad", TextBox22.Text)
                   cmd.Parameters.AddWithValue("@Student_mom", TextBox21.Text)
                   cmd.Parameters.AddWithValue("@Student_Angel", TextBox20.Text)
                   cmd.Parameters.AddWithValue("@Student_jobmom", TextBox18.Text)
                   cmd.Parameters.AddWithValue("@Student_jobdad", TextBox17.Text)
                   cmd.Parameters.AddWithValue("@Student_Famaly", ComboBox11.Text)

                   Using ms As New IO.MemoryStream
                       Me.PictureBox2.Image.Save(ms, Imaging.ImageFormat.Png)
                       cmd.Parameters.AddWithValue("@Student_Pic", ms.ToArray())
                   End Using

                   conn.Open()
                   Dim result As Integer = cmd.ExecuteNonQuery()
                   conn.Close()

                   If result > 0 Then
                       MessageBox.Show("تمت الحذف بنجاح", "مبروك", MessageBoxButtons.OK, MessageBoxIcon.Information)
                   Else
                       MessageBox.Show("لم أجد الرقم", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                   End If

               End Using
           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
End Class
الرد }}}
تم الشكر بواسطة:
#7
شباب ممكن ترشدوني للخطأ الى في الاكواد ؟؟
الرد }}}
تم الشكر بواسطة:
#8
أخي لم تضع الباراميتر الخاص بـ id سواء في كود التعديل أو في كود الحذف

PHP كود :
   " WHERE [id]=@id " 

PHP كود :
cmd.Parameters.AddWithValue("@id"id

id التي باللون الأزرق ضع مكانها التكست أو الليبل الخاص بـ id
راجع مشاركة الأخ الوليد جيدًا
الرد }}}
تم الشكر بواسطة:
#9
عدلته لكن ظهرت مشكلة جديدة

object reference not set to an instance of an object

هذا الخلل يظهر اثناء عمليه الحذف او التعديل
الرد }}}
تم الشكر بواسطة:
#10
أنسخ الكود وضعه هنا ،،،
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 275 24-01-24, 06:17 PM
آخر رد: Taha Okla
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775

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


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