[حلا ابوحامضة]

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