منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

سوف اضع لكم كود برمجي بلغة 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
كل ما اجده هو شرح طويل جدا وعمل كودات متداخلة من اجل عمل مثل هذا الكود البسيط

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

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

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

انا لم اقصد 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")

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

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 

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

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)) 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mtaktak

abubasilIraq

Mtaktak

asemshahen5

Mtaktak

asemshahen5