الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن شرح لبعض المعاني

مغلق
بدأه وكيل الامارة في 29 مايو 2006 · 1 رد · 488 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تحيه طيبه ممكن نعرف شرح هذا الكود

myusername = t_username.Text

mypassword = t_password.Text

mydataset.Clear()

Dim Str As String = "select * from users where username='" & myusername & "' and password='" & mypassword & "'", con_str

MyAdapter = New OleDbDataAdapter(Str, Con)

MyAdapter.Fill(mydataset, "USERname")

If mydataset.Tables("USERname").Rows.Count > 0 Then

addstate = mydataset.Tables("USERname").Rows(0).Item("add")

delstate = mydataset.Tables("USERname").Rows(0).Item("delete")

editstate = mydataset.Tables("USERname").Rows(0).Item("edit")

Dim x As New k1

x.Show()

Me.Hide()

Else

MessageBox.Show("ادخل اسم المستخدم وكلمة المرور الصحيحة")

End If

المطلوب شرح معني

1 ـ myusername

2 ـ Try

Con.Open()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

وتحياتي للجميع

#2

السلام عليكم

myusername هذا متغير من النوع String

dim myusername as string

 Try
Con.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

كود لتفادى الخطا عند بدا الاتصال ويعرض رسالة فى حالة حدوث خطا

تم تعديل هذه المشاركة بواسطة كفاح في 29 مايو 2006 في 15:06

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

هذا الموضوع مغلق.

مواضيع مشابهة