29-05-16, 04:11 PM
بالفيجول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 أم ان هذه الطريقة الوحيدة للتعديل في النت ...
و شكرا لإلكون اصدقائي ... معليش تحملوني شوي
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 أم ان هذه الطريقة الوحيدة للتعديل في النت ...
و شكرا لإلكون اصدقائي ... معليش تحملوني شوي

