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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في ربط إدخالات جهاز البصمة مع برنامجي فراس صلاح 1 52 22-06-19, 05:11 PM
آخر رد: elgokr
  [VB.NET] مشكلة عند تشغيل البرنامج اسامه الهرماوي 2 79 21-06-19, 07:25 PM
آخر رد: elgokr
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 335 14-06-19, 03:03 PM
آخر رد: elgokr
  Windows Phone app لا تظهر عندي اريد ارسال sms وجدت الدرس ومش عارف كيف ahmedhhh2 0 63 11-06-19, 12:18 AM
آخر رد: ahmedhhh2
  مشكلة فى جلب كامل الصفحة ابو روضة 11 347 07-06-19, 03:51 AM
آخر رد: ابو روضة
  مشكلة في Decryptor Mohamed20 1 94 05-06-19, 11:27 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 195 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 367 04-06-19, 03:12 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 289 03-06-19, 12:33 PM
آخر رد: سعود
  مشكلة في التاريخ مع التقرير nooralcown 1 82 30-05-19, 01:52 PM
آخر رد: اسامه الهرماوي

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


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