تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة تسجيل الحضور اليومي عبد العزيز البسكري 29 652 26-02-24, 02:15 PM
آخر رد: saud1004
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  تسجيل الدخول من قاعدة البيانات um_noor20 3 374 19-10-23, 02:40 PM
آخر رد: aljzazy
  [سؤال] مشكلة تسجيل وقت فقط بحقل جدول SQL dr.programming 2 304 01-09-23, 04:32 AM
آخر رد: اسامه الهرماوي
Rainbow [كود] كود الدخول على قائمه Run محمد مسافر 2 374 27-07-23, 02:26 AM
آخر رد: محمد مسافر
Rainbow [كود] كود الدخول على لوحه التحكم محمد مسافر 2 374 22-07-23, 05:31 PM
آخر رد: Taha Okla
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
  [سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا zxz5432 12 7,121 20-01-23, 01:27 AM
آخر رد: lysalh65@gmail.com
  مشكله في الدخول للفيجوال استوديو 2015 الحكيمي 1 1,424 05-01-23, 07:50 PM
آخر رد: سيد أحمد
  الرجاء الدخول والمساعدة في كود فرز بشرط alijtb82 0 275 05-12-22, 01:29 AM
آخر رد: alijtb82

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


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