تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
rs.edit >>> rs.update
#1
بالفيجول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 أم ان هذه الطريقة الوحيدة للتعديل في النت ...
و شكرا لإلكون اصدقائي ... معليش تحملوني شوي
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#2
إمممممم ... ما حدا عم يرد عليي ... يلا ... ما في مشكلي

بيجوز الموقع معطل ..!!!
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#3
لا لا مو معطل حلا
اتوقع بأنه ما في هيك شي بالدوت نت و الله اعلم
ربما لاختلاف المكتبات وتطورها في الدوت نت
عموما سننتظر قليلا لنرى هل سيأتي احدهم لأسعاف الموقف
الرد }}}
تم الشكر بواسطة: حلا ابوحامضة , rnmr
#4
اختي العزيزة
الطريقة التي كنتي تستخدميها في الفيجوال 6 تقريبا تقابلها هذه الطريقة في الدوت نت وتسمى التعديل على البيانات باستخدام ADO.NET في الوضع المنفصل.

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 

 والله أعلم.
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , الكاتب
#5
(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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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)
و لإلك الشكر
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Adrees , Adrees
#6
يلا الحمدلله
شكرا جزيلا كابتن Adrees
الرد }}}
تم الشكر بواسطة: Adrees , rnmr , rnmr
#7
(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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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)
و لإلك الشكر
صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!


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

OleDbCommandBuilder هي اداة مساعدة للــ DataAdapter وتستخدم في تحديث بيانات الجدول وتستقبل بارامتر من نوع DataAdapter.

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

ضعي الكود الذي استخدمتيه اختي العزيزة حلا.
الرد }}}
تم الشكر بواسطة:
#9
(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)حلا ابوحامضة كتب : صديقي ادريس طلعت لي هذه الرسالة ... هل من شرح من فضلك ..؟؟!!

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


الملفات المرفقة
.rar   Hala-2.rar (الحجم : 266.71 ك ب / التحميلات : 31)
الرد }}}
تم الشكر بواسطة: Adrees



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


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