منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
rs.edit >>> rs.update - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : rs.edit >>> rs.update (/showthread.php?tid=15964)

rs.edit >>> rs.update - حلا ابوحامضة - 29-05-16

بالفيجول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


Rs!tel = T1(7).Text
Rs!mob = T1(8).Text
Rs!notes = T1(9).Text

Rs.Update


Rs.Close
DB.Close
Set Rs = Nothing
Set DB = Nothing

في الفيجول نت تعلمت طريقة التعديل التالية:
SavInto.CommandText = "UPDATE NameTable  set  Namefilde = '" & DG1.Item(2, e.RowIndex).Value.ToString & _
            "' , no_page='" & DG1.Item(3, e.RowIndex).Value.ToString & _
        If conn.State = 1 Then conn.Close()
        conn.Open()
        SavInto.ExecuteNonQuery()

برأيكم هل توجد طريقة تكافئ ما كنا نستخدمه في الفيجول 6 أم ان هذه الطريقة الوحيدة للتعديل في النت ...
و شكرا لإلكون اصدقائي ... معليش تحملوني شوي

RE: rs.edit >>> rs.update - حلا ابوحامضة - 30-05-16

إمممممم ... ما حدا عم يرد عليي ... يلا ... ما في مشكلي
بيجوز الموقع معطل ..!!!

RE: rs.edit >>> rs.update - Adrees - 30-05-16

اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 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 

 والله أعلم.

RE: rs.edit >>> rs.update - حلا ابوحامضة - 30-05-16

(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)
و لإلك الشكر

RE: rs.edit >>> rs.update - حلا ابوحامضة - 30-05-16

(30-05-16, 10:32 PM)حلا ابوحامضة كتب :
(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)
و لإلك الشكر
صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!

RE: rs.edit >>> rs.update - Adrees - 31-05-16

(30-05-16, 11:28 PM)حلا ابوحامضة كتب : بس يار ريب يا صديقي ادريس تشرحلي هالسطر :
 Dim cb As New OleDbCommandBuilder(da)
و لإلك الشكر

OleDbCommandBuilder هي اداة مساعدة للــ DataAdapter وتستخدم في تحديث بيانات الجدول وتستقبل بارامتر من نوع DataAdapter.
(30-05-16, 11:28 PM)حلا ابوحامضة كتب : صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!

ضعي الكود الذي استخدمتيه اختي العزيزة حلا.

RE: rs.edit >>> rs.update - حلا ابوحامضة - 31-05-16

(31-05-16, 12:51 AM)Adrees كتب :
(30-05-16, 11:28 PM)حلا ابوحامضة كتب : بس يار ريب يا صديقي ادريس تشرحلي هالسطر :
 Dim cb As New OleDbCommandBuilder(da)
و لإلك الشكر

OleDbCommandBuilder هي اداة مساعدة للــ DataAdapter وتستخدم في تحديث بيانات الجدول وتستقبل بارامتر من نوع DataAdapter.
(30-05-16, 11:28 PM)حلا ابوحامضة كتب : صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!

ضعي الكود الذي استخدمتيه اختي العزيزة حلا.
صديقي ادريس .. يبدو ان المشكلة قائمة .. و هذا هو الملف و فيه الكود ..