برمجة زر كلمة السر

اختي Dreamer

قبل اي كلمة في الموضوع اعتقد اني قلت لك اني اكتب لك الكود من راسي وعلى جهاز انترنت يعني مافيه دوت نت

كان المفروض تسألي عن النقطة اللي ما فهمتيها يعني مثلا قولي Dataset مش عارفة ايش هي..

عموما اتمنى تحددي النقطة اللي انتي مش فاهماها وكل شي بيكون واضح لك ان شاء الله

أهلا أخي المتعلم الجديد

يا أخي طول بالك علي شوي ومعليش على سوء التفاهم، بس أنا كنت استنيت ردك بعد ما أرسلت مشكور الكود لكنك ما رديت، فمشان هيك عرضت الموضوع مرة تانية بالمنتدى باسم (برمجة زر كلمة السر). عموما أنا ما بستغنى عن خدماتك أبدا وشكرا كتيييييييييييير لتعاونك للمرة الثانية.

هلأ أنا مابعرف بال frame work فظنيت انو شغلة تانية. على العموم خلينا نمشي على اللي فاهمته أنا، هي الكود مرة تانية

Dim n As New Form3

Dim conn As SqlClient.SqlConnection

Dim cm As SqlClient.SqlCommand

Dim PF As Integer

Dim Pass As String

conn = New SqlClient.SqlConnection

conn.ConnectionString = "initial catalog=Log-in;integrated security=SSPI;user id=sa"

conn.Open()

PF = TextBox1.Text

Pass = TextBox2.Text

cm = New SqlClient.SqlCommand

cm.Connection = conn

cm.CommandText = "select* from Log-in where Password= '" & Trim(Pass) & "'"

cm.CommandType = CommandType.Text

MsgBox("HI")

Dim read As SqlClient.SqlDataReader

read = cm.ExecuteReader 'الخطأ هنا

If Not read.Read Then

MsgBox("Wrong Password ")

read.Close()

conn.Close()

Else

cm.CommandText = "select* from Log-in where PF No.= '" & Trim(PF) & "'"

cm.CommandType = CommandType.Text

read = cm.ExecuteReader

If Not read.Read Then

MsgBox("Wrong PF number")

read.Close()

conn.Close()

Else

n.Show()

End If

'End If

ما المشكلة في الكود؟؟ أنا كاتبة عند مكان ما بطلعلي خطأ في البرنامج وبيوقفلي التشغيل، عندها بيطلعلي رسالة أضطر آخد منها break or continue

وبعدين بالنسبة للتعريف التالي مثلا

Dim conn As SqlClient.SqlConnection

انا عندي ما بيقبل غير اني اعرفو هيك يعني ما بيقبل التعريف هادا Dim conn As SqlConnection

اللي عملي ياه واحد من الإخوة؟؟؟

طولت عليك أخي ، شكرا كتير