[Mtaktak]

السلام عليكم ورحمة الله

سوف اضع لكم كود برمجي بلغة VB6  وهو :

كود :

Dim RS As New ADODB.Recordset
Dim SQL As String
SQL = "select * from Data1 where ID = " & Text1.Text & " "
If RS.EOF = False Then
   i = 0
   Do While Not RS.EOF
       i = i + 1
       RS("ID") = i
   loop
   RS.Update
End If
RS.Close
Set RS = Nothing

بحثت وحاولت اجد مثل هذا الكود في VB.NET  
كل ما اجده هو شرح طويل جدا وعمل كودات متداخلة من اجل عمل مثل هذا الكود البسيط

[abubasilIraq]

مشكلة vb6 هو عدم توافق برامجها مع انظمة التشغيل الحديثه ،
انا مثلك لا احب الاكواد المطولة ، ولكن لديك خيار لك ان تجربه
نصب فيجول بيسك 2008 فهي ايضا مختصرة من ناحية الواجهة والاكواد وقريبة جدا من الاصدار السادس..
مع ثراء في المكونات التي تستطيع ادراجها بدون القلق على تسجيلها هذه المكونات ،

بالنسبة لل adodb فهي ايضا متوفرة ولكن يجب اضافة المرجع لها refrence

[Mtaktak]

شكرا على مرورك و ردك

انا لم اقصد adodb  بحد ذاتها  
انا استخدم VB.Net  2015
وكنت من مستخدمي VB6 و VB5

هناك فرق شاسع وجميل ل VB.NET   وانا من اشد المعجبين فيها

ولكن تنصدم عندما يكون هذا التحديث والتطوير  لا يستطيع اختصار اللغة البرمجية المستخدمة
ونحن نرى طول الكودات وتداخلها للوصول الى  شيء كان في VB6  بسيط جدا

خذ مثلا خاصية في VB6
Calendar = vbCalHijri
Calendar = vbCalGreg

اما في VB.NET
 Dim Hij As New Globalization.CultureInfo("ar-SA")
   Dim Greg As New Globalization.CultureInfo("EN-US")

ولك شكري وامتناني

[asemshahen5]

PHP كود :

Dim StrSQL as string = "select * from Data1 where ID = " & Text1.Text
 Dim cn As New SqlConnection("Server =(local);database=TestDB;integrated security=true")
 Dim da As New SqlDataAdapter(StrSQL, cn)
 Dim dt As New DataTable
 da.Fill(dt)
If DT.Rows.Count > 0 Then
   Dim i As Integer = 0
   Dim x As Integer = 0
   For i = 0 To DT.Rows.Count - 1
       x += 1
       DT.Rows(i)("ID") = x
   Next
   DT.AcceptChanges()
   da.Update(DT)
End If 


[Mtaktak]

الف شكر حبيبي عاصم
ما قصرت
كثر الله خيرك

[asemshahen5]

PHP كود :

       da.Update(dt.Select(Nothing, Nothing, DataViewRowState.Deleted))
        da.Update(dt.Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))
        da.Update(dt.Select(Nothing, Nothing, DataViewRowState.Added)) 


الحمد الله و الشكر الله رب العالمين .