تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطا في صفحة تسجيل الدخول وعند ربطها بsql
#1
السلام عليكم ....
لدي فورم لاسم المستخدم وكلمه المرور 
وفورم اخري لتغيير اسم المستخدم وكلمه المرور 
ولدي تلاتة مستخدمين احد منهم ادمن يسمح له بتغير الاسم وكلمه المرور  والأخرين مستخدمين ولايمكن لهم تغير 
اريد معرفة كيفية ربط بقاعدة البيانات 
وفي مشكلة في  ConnectionString.
 da.Fill(ds)  
-----------------------------------------------------------
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'هذه جملة فتح الاتصال مع قاعد البيانات 
        Dim cn As New SqlConnection("Data Source=USER-MSI;Initial Catalog=DBArsfa;Integrated Security=True")
        Try
            cn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click



         If TextBox1.Text = "" Then
            Form3.Show()
            MsgBox("ادخل اسم المستخدم", MsgBoxStyle.Exclamation, "حقل إجباري")
            TextBox1.Focus()
        End If

        If TextBox2.Text = "" Then
            MsgBox("ادخل كلمة السر", MsgBoxStyle.Exclamation, "حقل إجباري")
            TextBox2.Focus()
        End If
        Dim cn As New SqlConnection
        'هذه جملة الربط مع الجدول في قاعدة البيانات
        Dim str As String = " Select * From User Where userName= N'" & TextBox1.Text & "'And userPassWord = N'" & TextBox2.Text & "'"
        'هذه جملة محول البيانات من قاعدة الى النظام
        Dim sda As New SqlDataAdapter(str, cn)
        Dim ds As New DataSet
        sda.Fill(ds)
        'اذا كان عدد صفوف اكبر من الصفر
        If ds.Tables(0).Rows.Count > 0 Then
            'فتح اتصال مع القاعدة
            cn.Open()
            Dim cmd As New SqlCommand(str)
            cmd.Connection = cn
            'هذه جملة لقراءة البيانات ومقارنتها مع الخيارات التالية
            Dim dr As SqlDataReader = cmd.ExecuteReader
            'اذاكان الخيار الصحيح القراءة
            If dr.HasRows Then

                dr.Read()
                If TextBox1.Text = dr.Item("userName") And TextBox2.Text = dr.Item("userPassWord") Then
                    Label5.Text = dr.Item("Permissions22")

                    cn.Close()
                    If Label5.Text = "1" Then
                        Me.Hide()
                        Form3.Show()

                    ElseIf Label5.Text = "2" Then
                        Me.Hide()
                        Form2.Show()

                    End If
                End If

            End If
        Else
            MsgBox("خطأ في البيانات المدخلة", MsgBoxStyle.Critical, "خطأ")
            cn.Close()
        End If
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] WebBrowser يتعذر تسجيل دخولك! mgz.vb 11 2,029 31-10-20, 09:37 PM
آخر رد: b4getws
  البحث عن نص معين داخل صفحة ويب وعرضة Basil Abdallah 1 311 26-10-20, 11:11 AM
آخر رد: اليوم السابع
  [VB.NET] اخذ قيمة الProgressBar من صفحة ويب aldery 1 158 25-10-20, 07:44 PM
آخر رد: bidaya
Thumbs Up [SQL] تطبيق عملى لمشروع قاعدة بيانات بSQL محمود بكير 1 267 13-10-20, 03:39 PM
آخر رد: محمد كريّم
  [سؤال] اخفاء عنصر من صفحة العمل دون حذفه عبد الهادي بهاب 2 394 14-08-20, 06:58 PM
آخر رد: عبد الهادي بهاب
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 637 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  [مثال] مثال و سؤال مهم: معرفة أيام الغياب بعد تسجيل أيام الحضور ؟ DR.YASER 1 498 05-07-20, 04:55 PM
آخر رد: DR.YASER
  اريد عمل ريستارت للراوتر بالفيجوال لتغير اي بي الراوتر وفتح صفحة نت بعد الريستارت ahmedhhh2 0 365 03-06-20, 11:20 AM
آخر رد: ahmedhhh2
  [VB.NET] برنامج تسجيل حضور وغيابات الطلبة عباس ناصر 1 505 17-05-20, 01:11 PM
آخر رد: alshandodi
Rainbow طريقة عمل خريطه و ربطها على ال SQL theend200x 6 659 26-04-20, 11:56 PM
آخر رد: ابراهيم ايبو

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


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