+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما اجمل VB6 وبساطته (/showthread.php?tid=33131)
ما اجمل VB6 وبساطته - Mtaktak - 25-01-20
السلام عليكم ورحمة الله
سوف اضع لكم كود برمجي بلغة 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كل ما اجده هو شرح طويل جدا وعمل كودات متداخلة من اجل عمل مثل هذا الكود البسيط
RE: ما اجمل VB6 وبساطته - abubasilIraq - 25-01-20
مشكلة vb6 هو عدم توافق برامجها مع انظمة التشغيل الحديثه ،
انا مثلك لا احب الاكواد المطولة ، ولكن لديك خيار لك ان تجربه
نصب فيجول بيسك 2008 فهي ايضا مختصرة من ناحية الواجهة والاكواد وقريبة جدا من الاصدار السادس..
مع ثراء في المكونات التي تستطيع ادراجها بدون القلق على تسجيلها هذه المكونات ،
بالنسبة لل adodb فهي ايضا متوفرة ولكن يجب اضافة المرجع لها refrence
RE: ما اجمل VB6 وبساطته - Mtaktak - 25-01-20
شكرا على مرورك و ردك
انا لم اقصد 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")
ولك شكري وامتناني
RE: ما اجمل VB6 وبساطته - asemshahen5 - 25-01-20
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
RE: ما اجمل VB6 وبساطته - Mtaktak - 25-01-20
الف شكر حبيبي عاصم
ما قصرت
كثر الله خيرك
RE: ما اجمل VB6 وبساطته - asemshahen5 - 25-01-20
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))
الحمد الله و الشكر الله رب العالمين .