تقييم الموضوع :
  • 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
بارك الله فيك اخي سعود عرفت الحل
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في اسماء الاصناف في فاتورة المبيعات ملهمـ 3 27 منذ 23 دقيقة مضت
آخر رد: Adrees
  مشكلة مع net farmework adam mostafa 15 592 15-11-17, 04:24 PM
آخر رد: adam mostafa
  عندي حقل في SQL SERVER 2005 يولد الارقام تلقائا هل استطيع جعله يبدا من 1 من جديد samawi 3 61 14-11-17, 03:59 AM
آخر رد: سعود
  مشكلة تظهر في الداتا جريد فيو SSMA_TimeStamp khaled12345 0 27 13-11-17, 07:38 AM
آخر رد: khaled12345
  مشكلة في كود الحذف مع استخدام Sql 2008 khaled12345 2 44 12-11-17, 07:59 AM
آخر رد: khaled12345
  مشكلة في كود الاضافة والحذف khaled12345 0 44 09-11-17, 07:58 PM
آخر رد: khaled12345
  مشكلة في كود الربط مع ال SharePoint khaled12345 1 56 08-11-17, 01:23 PM
آخر رد: khaled12345
  [VB.NET] كيف يمكن حل مشكلة التعديل و التحديث و الحذف larbihamri 2 103 04-11-17, 08:45 PM
آخر رد: larbihamri
  مشكلة فى برنامج فيجوال بيسك abdel.halim 2 56 30-10-17, 07:08 PM
آخر رد: abdel.halim
  مشكلة في عرض التقرير بعد التحويل الي ملف تنفيذي mo93 7 169 23-10-17, 09:13 PM
آخر رد: boudyonline

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


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