بالفيجول6 كنا نتبع اسلوب التالي لأجل تعديل قيم معينة
Set DB = Nothing
DB.Provider = "Microsoft.JET.OLEDB.4.0;"
DB.Open DBName$
Set Rs = Nothing
Rs.Open "select * From Loes where id= " & 1 & " order by id", DB, adOpenStatic, adLockPessimistic
لا لا مو معطل حلا
اتوقع بأنه ما في هيك شي بالدوت نت و الله اعلم
ربما لاختلاف المكتبات وتطورها في الدوت نت
عموما سننتظر قليلا لنرى هل سيأتي احدهم لأسعاف الموقف
اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim da As New OleDbDataAdapter("Select * from mytable where id=" & TextBox1.Text & "", cn) Dim dt As New DataTable da.Fill(dt) If dt.Rows.Count <> 0 Then Dim dr As DataRow = dt.Rows(0) dr!ColumnName = TextBox2.Text dr!ColumnName2 = TextBox3.Text Dim cb As New OleDbCommandBuilder(da) da.Update(dt) End If End Sub
الطريقة التي تعلمتيها في الدوت نت هي التعديل على البيانات باستخدام ADO.NET وباستخدام الوضع المتصل.
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim cmd As New OleDbCommand("Update mytable set ColumnName=@c1 ,ColumnName2=@c2 where id=@id", cn) cmd.Parameters.AddWithValue("@id", TextBox1.Text) cmd.Parameters.AddWithValue("@c1", TextBox2.Text) cmd.Parameters.AddWithValue("@c2", TextBox3.Text) cn.Open() cmd.ExecuteNonQuery() cn.Close() End Sub
30-05-16, 10:32 PM (آخر تعديل لهذه المشاركة : 30-05-16, 10:38 PM {2} بواسطة حلا ابوحامضة.)
(30-05-16, 08:50 PM)Amir_alzubidy كتب : لا لا مو معطل حلا
اتوقع بأنه ما في هيك شي بالدوت نت و الله اعلم
ربما لاختلاف المكتبات وتطورها في الدوت نت
عموما سننتظر قليلا لنرى هل سيأتي احدهم لأسعاف الموقف
عفكرة صديقي Amir طلع الموقع مو معطل .. بس يمكن انا مستعجلة شوي ..
(30-05-16, 09:32 PM)Adrees كتب : اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim da As New OleDbDataAdapter("Select * from mytable where id=" & TextBox1.Text & "", cn) Dim dt As New DataTable da.Fill(dt) If dt.Rows.Count <> 0 Then Dim dr As DataRow = dt.Rows(0) dr!ColumnName = TextBox2.Text dr!ColumnName2 = TextBox3.Text Dim cb As New OleDbCommandBuilder(da) da.Update(dt) End If End Sub
الطريقة التي تعلمتيها في الدوت نت هي التعديل على البيانات باستخدام ADO.NET وباستخدام الوضع المتصل.
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim cmd As New OleDbCommand("Update mytable set ColumnName=@c1 ,ColumnName2=@c2 where id=@id", cn) cmd.Parameters.AddWithValue("@id", TextBox1.Text) cmd.Parameters.AddWithValue("@c1", TextBox2.Text) cmd.Parameters.AddWithValue("@c2", TextBox3.Text) cn.Open() cmd.ExecuteNonQuery() cn.Close() End Sub
والله أعلم.
بتشكرك كتير صديقي ادريس لـ هالمجهود ... و انا رح اشتغل بالكود ... صدقني انت وفرت علي وقت كتير ... شكرا لإلك صديقي ..
(30-05-16, 09:32 PM)Adrees كتب : اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim da As New OleDbDataAdapter("Select * from mytable where id=" & TextBox1.Text & "", cn) Dim dt As New DataTable da.Fill(dt) If dt.Rows.Count <> 0 Then Dim dr As DataRow = dt.Rows(0) dr!ColumnName = TextBox2.Text dr!ColumnName2 = TextBox3.Text Dim cb As New OleDbCommandBuilder(da) da.Update(dt) End If End Sub
الطريقة التي تعلمتيها في الدوت نت هي التعديل على البيانات باستخدام ADO.NET وباستخدام الوضع المتصل.
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim cmd As New OleDbCommand("Update mytable set ColumnName=@c1 ,ColumnName2=@c2 where id=@id", cn) cmd.Parameters.AddWithValue("@id", TextBox1.Text) cmd.Parameters.AddWithValue("@c1", TextBox2.Text) cmd.Parameters.AddWithValue("@c2", TextBox3.Text) cn.Open() cmd.ExecuteNonQuery() cn.Close() End Sub
والله أعلم.
بس يار ريب يا صديقي ادريس تشرحلي هالسطر : Dim cb As New OleDbCommandBuilder(da) و لإلك الشكر
(30-05-16, 08:50 PM)Amir_alzubidy كتب : لا لا مو معطل حلا
اتوقع بأنه ما في هيك شي بالدوت نت و الله اعلم
ربما لاختلاف المكتبات وتطورها في الدوت نت
عموما سننتظر قليلا لنرى هل سيأتي احدهم لأسعاف الموقف
عفكرة صديقي Amir طلع الموقع مو معطل .. بس يمكن انا مستعجلة شوي ..
(30-05-16, 09:32 PM)Adrees كتب : اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim da As New OleDbDataAdapter("Select * from mytable where id=" & TextBox1.Text & "", cn) Dim dt As New DataTable da.Fill(dt) If dt.Rows.Count <> 0 Then Dim dr As DataRow = dt.Rows(0) dr!ColumnName = TextBox2.Text dr!ColumnName2 = TextBox3.Text Dim cb As New OleDbCommandBuilder(da) da.Update(dt) End If End Sub
الطريقة التي تعلمتيها في الدوت نت هي التعديل على البيانات باستخدام ADO.NET وباستخدام الوضع المتصل.
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim cmd As New OleDbCommand("Update mytable set ColumnName=@c1 ,ColumnName2=@c2 where id=@id", cn) cmd.Parameters.AddWithValue("@id", TextBox1.Text) cmd.Parameters.AddWithValue("@c1", TextBox2.Text) cmd.Parameters.AddWithValue("@c2", TextBox3.Text) cn.Open() cmd.ExecuteNonQuery() cn.Close() End Sub
والله أعلم.
بتشكرك كتير صديقي ادريس لـ هالمجهود ... و انا رح اشتغل بالكود ... صدقني انت وفرت علي وقت كتير ... شكرا لإلك صديقي ..
(30-05-16, 09:32 PM)Adrees كتب : اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim da As New OleDbDataAdapter("Select * from mytable where id=" & TextBox1.Text & "", cn) Dim dt As New DataTable da.Fill(dt) If dt.Rows.Count <> 0 Then Dim dr As DataRow = dt.Rows(0) dr!ColumnName = TextBox2.Text dr!ColumnName2 = TextBox3.Text Dim cb As New OleDbCommandBuilder(da) da.Update(dt) End If End Sub
الطريقة التي تعلمتيها في الدوت نت هي التعديل على البيانات باستخدام ADO.NET وباستخدام الوضع المتصل.
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")
Dim cmd As New OleDbCommand("Update mytable set ColumnName=@c1 ,ColumnName2=@c2 where id=@id", cn) cmd.Parameters.AddWithValue("@id", TextBox1.Text) cmd.Parameters.AddWithValue("@c1", TextBox2.Text) cmd.Parameters.AddWithValue("@c2", TextBox3.Text) cn.Open() cmd.ExecuteNonQuery() cn.Close() End Sub
والله أعلم.
بس يار ريب يا صديقي ادريس تشرحلي هالسطر : Dim cb As New OleDbCommandBuilder(da) و لإلك الشكر
صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!