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

الرد }}}}
تم الشكر بواسطة: حلا ابوحامضة
#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
#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 ك ب / التحميلات : 10)
الرد }}}}
تم الشكر بواسطة: Adrees


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب انشاء جملة update في مشروعي Codack 7 194 11-10-16, 04:41 PM
آخر رد: Codack
  ماهو Invalidate والفرق بينه وبين refresh و update LoveVb 4 115 14-08-16, 06:19 PM
آخر رد: LoveVb
  [سؤال] ظهر هذه الرساله عند عمل UPDATE احمد عبد الحكيم 0 127 08-02-16, 06:48 PM
آخر رد: احمد عبد الحكيم
  [سؤال] شباب هل من الممكن عمل update ل checkBox فى قاعدة البيانات احمد عبد الحكيم 12 1,475 21-06-15, 01:42 PM
آخر رد: احمد عبد الحكيم
  [VB.NET] هل من اللمكن عمل update لحقل معين بجدول اخر احمد عبد الحكيم 4 429 08-05-15, 02:16 AM
آخر رد: احمد عبد الحكيم
  [سؤال] شباب ممكن كود لعمل update لحقل معين فى جدول اخر احمد عبد الحكيم 0 268 21-03-15, 05:30 PM
آخر رد: احمد عبد الحكيم
Question [سؤال] كيف يتم الـ Automatically Update للتطبيق بشكل احترافي ؟ البروف سيمونس 0 569 27-12-13, 06:02 PM
آخر رد: البروف سيمونس
  ممكن المساعدة في عمل Update للبرنامج المهندس علي 3 620 04-08-13, 04:19 AM
آخر رد: سعود
  Update مجننى mady57 3 391 12-05-13, 06:04 AM
آخر رد: مالكـ
  عمل update عند ادخال البيانات alaqsa 16 1,532 25-04-13, 02:59 AM
آخر رد: EHAB.NET

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


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