تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عندي مشكلة في كود زر التحديث
#1
Question 
عندي مشكلة في كود زر التحديث عند الامر ExecuteNonQuery()
هذا شكل الفورم
http://vb4arb.com/vb/gallery/3937_05_08_14_2_48_29.png

وهذا كود الفورم بالكامل


////////////////////////////////
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Dim DSProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PC1\Documents\Visual Studio 2013\Projects\Ado totural\Ado totural\bin\Debug\MBase.accdb"
Dim con As New OleDbConnection(DSProvider)
Dim cmd As String = "SELECT Id,Name,City,Tel,Country from Info order by ID"
Dim DataS As New DataSet
Dim DataA As New OleDbDataAdapter(cmd, con)
Dim AddC As New OleDbCommand

Sub AddF()
con.Open()
AddC.ExecuteNonQuery()
DataS.Clear()
DataA.Fill(DataS, "Info")
con.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.Open()
DataA.Fill(DataS, "Info")
con.Close()

LabelID.DataBindings.Add("text", DataS, "Info.ID")
TextBox2.DataBindings.Add("text", DataS, "Info.Name")
TextBox3.DataBindings.Add("text", DataS, "Info.city")
TextBox4.DataBindings.Add("text", DataS, "Info.Tel")
TextBox5.DataBindings.Add("text", DataS, "Info.Country")

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BindingContext(DataS, "info").Position = 0
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
BindingContext(DataS, "Info").Position += 1
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
BindingContext(DataS, "Info").Position -= 1
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
BindingContext(DataS, "Info").Position = BindingContext(DataS, "Info").Count - 1
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
LabelID.Text = vbNullString
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox2.Focus()

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = "insert into Info(ID,Name,City,Tel,Country) values('" & LabelID.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
AddF()

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
con.Open()
DataS.Clear()
DataA.Fill(DataS, "Info")
con.Close()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If MsgBox("هل تريد حذف السجل", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If

AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = " delete from Info where id ='" & LabelID.Text & "' "

AddF()

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = "update Info set Name ='" & TextBox2.Text & "', City ='" & TextBox3.Text & "', Tel ='" & TextBox4.Text & "', Countery ='" & TextBox5.Text & "' where id= '" & LabelID.Text & "'"
AddF()


End Sub
End Class


وقاعدة البيانات مرفقة
الرد
تم الشكر بواسطة:
#2
ما فيه ولا رد
الرد
تم الشكر بواسطة:
#3
الله يسامحكم ماتعرفو الحل
الرد
تم الشكر بواسطة:
#4
كود :
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Dim DSProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PC1\Documents\Visual Studio 2013\Projects\Ado totural\Ado totural\bin\Debug\MBase.accdb"
Dim con As New OleDbConnection(DSProvider)
Dim cmd As String = "SELECT Id,Name,City,Tel,Country from Info order by ID"
Dim DataS As New DataSet
Dim DataA As New OleDbDataAdapter(cmd, con)
Dim AddC As New OleDbCommand

Sub AddF()
con.Open()
AddC.ExecuteNonQuery()
DataS.Clear()
DataA.Fill(DataS, "Info")
con.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.Open()
DataA.Fill(DataS, "Info")
con.Close()

LabelID.DataBindings.Add("text", DataS, "Info.ID")
TextBox2.DataBindings.Add("text", DataS, "Info.Name")
TextBox3.DataBindings.Add("text", DataS, "Info.city")
TextBox4.DataBindings.Add("text", DataS, "Info.Tel")
TextBox5.DataBindings.Add("text", DataS, "Info.Country")

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BindingContext(DataS, "info").Position = 0
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
BindingContext(DataS, "Info").Position += 1
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
BindingContext(DataS, "Info").Position -= 1
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
BindingContext(DataS, "Info").Position = BindingContext(DataS, "Info").Count - 1
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
LabelID.Text = vbNullString
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox2.Focus()

End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = "insert into Info(ID,Name,City,Tel,Country) values('" & LabelID.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
AddF()

End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
con.Open()
DataS.Clear()
DataA.Fill(DataS, "Info")
con.Close()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If MsgBox("هل تريد حذف السجل", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If

AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = " delete from Info where id ='" & LabelID.Text & "' "

AddF()

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
AddC.Connection = con
AddC.CommandType = CommandType.Text
AddC.CommandText = "update Info set Name ='" & TextBox2.Text & "', City ='" & TextBox3.Text & "', Tel ='" & TextBox4.Text & "', Countery ='" & TextBox5.Text & "' where id= '" & LabelID.Text & "'"
AddF()


End Sub
End Class

اخي الكريم اكثر الاخوة هنا لا ينظرون للمواضيع اللتي تحتوي اكواد دون وضعها ضمن وسوم كما فعلته الان.
سانظر للموضوع ان شاء الله.
الرد
تم الشكر بواسطة:
#5
ماذا تقصد بالتحديث؟
اضافة سجل جديد تعتبر تحديث وحذف سجل ايضا تحديث وكذلك التحرير يعتبر تحديث.
الرد
تم الشكر بواسطة:
#6
بارك الله فيك اخي سعود عرفت الحل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اتجاه التاريخ في التكست بوكس أبووسم 4 56 اليوم, 01:20 AM
آخر رد: حريف برمجة
  مشكلة في كرستال ريبورت لما انقله لجهاز اخر a.baomar 10 164,918 21-04-18, 11:42 AM
آخر رد: ملهمـ
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 63 20-04-18, 09:20 PM
آخر رد: elmezo
  [نقاش] عندك مشكلة فى كود او البرنامج مش شغال تعالا هنا elmezo 1 52 20-04-18, 11:49 AM
آخر رد: عبدالرحمن المكاوي
Lightbulb مشكلة عند حفظ الفاتورة atef_020 19 328 18-04-18, 08:44 PM
آخر رد: ismail abdullah
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 63 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [كود] حل مشكلة داتا سورس (ليست بوكس ) عبدالرحمن المكاوي 7 633 16-04-18, 08:36 PM
آخر رد: عبدالرحمن المكاوي
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 62 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة فى اضافة windows media player محمد البلتاجى 2 55 15-04-18, 10:01 AM
آخر رد: ابو روضة
Rainbow مشكلة تشغيل من اليوتيوب vb.net aldery 2 85 12-04-18, 07:38 PM
آخر رد: aldery

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


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