[Abdh111]

كود :

   Private Sub Bt_Enter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Enter.Click
       'برمجة زر الدخول
       'Frm_Login.Name = Nothing
       Try
           sqlconn.ConnectionString = "Data Source = ABDH-PC\SQLEXPRESS;Initial Catalog=Work_Shop;Integrated Security = True"
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Class1.Str = "Select User_Name,PWD from Tab_Users Where User_Name = '" & Txt_User_Name.Text & "' And PWd = '" & Txt_PWD.Text & "'"
       Try
           Dim sda As New SqlDataAdapter(Class1.Str, sqlconn)
           Dim ds As New DataSet
           sda.Fill(ds)
           MsgBox(ds)

           If ds.Tables(0).Rows.Count > 1 Then
               Me.Close()
               Frm_Main.Show()
           Else
               MsgBox("لا يوجد اسم مستخدم بهذا الاسم")
           End If
       Catch ex As Exception
     
           MsgBox(ex.Message)
       End Try

انا بصمم أول برنامج بالدوت نت بعد VB6 وده كود زرار الدخول في شاشة اللوجين
بعد ماضغط دخول بيعطي رسالة الخطأ دي ؟


The Data Type text and Varchar are incompatible to operator
ياريت حد يساعدني لاني الرسالة دي تعبتني ؟ مع اني حذفت جدول اليوزرز وعملته تاني ولا فائدة ؟؟

[HASAN6.0]

جرب

Select * from

بدل

Select User_Name,PWD from

[Abdh111]

جزاك الله خيرا 
بس ياخي جربتها لكن مانفعت طفشتني

---

(31-10-15, 04:44 PM)HASAN6.0 كتب : جرب

Select * from

بدل

Select User_Name,PWD from

[b]أخي الكريم HASAN6.0[/b]
جربت * لكن مانفعت نفس الرسالة ؟

[HASAN6.0]

غير نوع الحقل في الداتا بيز من Varchar الى nvarchar واذا ما انحلت المشكلة .. ارفع المشروع

[Abdh111]

(31-10-15, 05:31 PM)HASAN6.0 كتب : غير نوع الحقل في الداتا بيز من Varchar الى nvarchar واذا ما انحلت المشكلة .. ارفع المشروع

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

---

المشروع أهو رفعته مضغوط[attachment=8359][attachment=8359]

[HASAN6.0]

تفضل


... مع ملاحظ بعد كل عمليه استعلام اغلق الاتصال بـ
rddb.close

وغير اسم السيرفر او الداتابيز من الموديول

[Abdh111]

(31-10-15, 06:33 PM)HASAN6.0 كتب : تفضل


... مع ملاحظ بعد كل عمليه استعلام اغلق الاتصال بـ
rddb.close

وغير اسم السيرفر او الداتابيز من الموديول

جزاك الله خيراً
هاطبق وأرد عليك بس مش فاهم ليه أغير اسم السيرفر أو الدتا بيز من الموديل ؟

[HASAN6.0]

انسى الموضوع ...


اذا بدك تتصل مع سيرفر ثاني او داتابيز ثانية ... غيرهم من الموديول
مو من الفورم

[Abdh111]

(31-10-15, 06:38 PM)HASAN6.0 كتب : انسى الموضوع ...


اذا بدك تتصل مع سيرفر ثاني او داتابيز ثانية ... غيرهم من الموديول
مو من الفورم

جزاك الله خيرا بس انت ملاحظ اول ماتشغل المشروع بيعطيك رسالة في غير موضعها انا لسة بفحص اشوف الخطأ فين ؟

---

[attachment=8361]انا عدلت الرسالة اللي بتطلع لما تشغل المشروع وهي كالتالي :
انت غير متصل بالأنترنت
وعدلتها إلي
 MsgBox(ex.Message)
وشغلته فا طلع لي الخطا التالي :

[HASAN6.0]

في الفورم load

غير
SQL = "SELECT * FROM users"
الى
SQL = "SELECT * FROM Tab_Users"