تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما اجمل VB6 وبساطته
#1
السلام عليكم ورحمة الله

سوف اضع لكم كود برمجي بلغة 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  
كل ما اجده هو شرح طويل جدا وعمل كودات متداخلة من اجل عمل مثل هذا الكود البسيط
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة:
#2
مشكلة vb6 هو عدم توافق برامجها مع انظمة التشغيل الحديثه ،
انا مثلك لا احب الاكواد المطولة ، ولكن لديك خيار لك ان تجربه
نصب فيجول بيسك 2008 فهي ايضا مختصرة من ناحية الواجهة والاكواد وقريبة جدا من الاصدار السادس..
مع ثراء في المكونات التي تستطيع ادراجها بدون القلق على تسجيلها هذه المكونات ،

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

الرد
تم الشكر بواسطة: SnTnt , جميل5 , جميل5
#3
شكرا على مرورك و ردك

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

ولك شكري وامتناني
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة: جميل5
#4
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(StrSQLcn)
 
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 0 To DT.Rows.Count 1
       x 
+= 1
       DT
.Rows(i)("ID") = x
   Next
   DT
.AcceptChanges()
 
  da.Update(DT)
End If 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: Mtaktak , SnTnt , جميل5 , ابو روضة
#5
الف شكر حبيبي عاصم
ما قصرت
كثر الله خيرك
اللهم صلي على نبينا محمد
الرد
تم الشكر بواسطة: جميل5 , asemshahen5
#6
PHP كود :
       da.Update(dt.Select(NothingNothingDataViewRowState.Deleted))
 
       da.Update(dt.Select(NothingNothingDataViewRowState.ModifiedCurrent))
 
       da.Update(dt.Select(NothingNothingDataViewRowState.Added)) 

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




الرد
تم الشكر بواسطة: جميل5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اليكم فكرة لعمل اجمل اشرطة حالة التقدم Progress Bar ali.alfoly 6 1,652 13-03-13, 12:03 AM
آخر رد: ali.alfoly

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


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