المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
السلام عليكم
كود التعديل للبارو ميتر كيف يكون ؟؟
كود الحذف ايضا
من الداتا بيس اكسس
البرنامج الى استخدمه طورته لان هو نفس 2012 فخترت 2013 مثل الشيء ولكن ارتب بنظري
المهم اتمنى الاجابة السريعه
المشاركات : 171
المواضيع 2
الإنتساب : Oct 2014
السمعة :
29
الشكر: 111
تم شكره 178 مرات في 92 مشاركات
السلام عليكم ورحمة الله
إيش تقصد (للبارو ميتر) هل قصدك البارامتر اللي يمرر البيانات لجملة الاسكويل.
طيب لو وضعت جزء من الكود عشان يساعد في فهم المطلوب.
المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
24-12-14, 11:44 AM
(آخر تعديل لهذه المشاركة : 24-12-14, 11:45 AM {2} بواسطة 0theghost0.)
اسف اخوي لم الاحظ بانني لم اضع لكم الكود
هذا هو كود الادخال
كود :
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)
اريد كود التعديل وكود الحذف
المشاركات : 171
المواضيع 2
الإنتساب : Oct 2014
السمعة :
29
الشكر: 111
تم شكره 178 مرات في 92 مشاركات
السلام عليكم ورحمة الله
حسنت لك الكود الأول وأضفت لك كود الحذف والتعديل وإن شاء الله تمام.
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.Object, e As System.EventArgs) Handles 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(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() 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
' التعديل ' Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles 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(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) cmd.Parameters.AddWithValue("@id", id)
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
' الحذف ' Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles 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(sql, conn) cmd.Parameters.AddWithValue("@id", id)
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
المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
مشكور رحم الله والديك
اتمنى ان يعمل الكود بشكل صحيح وخالي من الاخطاء
المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
اخي الوليد يوجد خطأ في التعديل و الحذف
الكود التعديل
كود :
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
المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
شباب ممكن ترشدوني للخطأ الى في الاكواد ؟؟
المشاركات : 45
المواضيع 10
الإنتساب : Dec 2014
السمعة :
2
الشكر: 70
تم شكره 89 مرات في 12 مشاركات
28-12-14, 06:21 AM
(آخر تعديل لهذه المشاركة : 28-12-14, 06:27 AM {2} بواسطة momiana1.)
أخي لم تضع الباراميتر الخاص بـ id سواء في كود التعديل أو في كود الحذف
PHP كود :
cmd.Parameters.AddWithValue("@id", id)
id التي باللون الأزرق ضع مكانها التكست أو الليبل الخاص بـ id
راجع مشاركة الأخ الوليد جيدًا
المشاركات : 405
المواضيع 131
الإنتساب : Aug 2014
السمعة :
2
الشكر: 2
تم شكره 94 مرات في 58 مشاركات
عدلته لكن ظهرت مشكلة جديدة
object reference not set to an instance of an object
هذا الخلل يظهر اثناء عمليه الحذف او التعديل
المشاركات : 45
المواضيع 10
الإنتساب : Dec 2014
السمعة :
2
الشكر: 70
تم شكره 89 مرات في 12 مشاركات
|