تقييم الموضوع :
  • 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

ارجو مساعدة لان ماعرفت اربط بقاعدة البيانات وتلخبطت عندي المفهوم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام...
يرجى الاطلاع على المرفقات, سيوفر الكثير + إعطاء أفكار.


الملفات المرفقة
.zip   المستوصف.zip (الحجم : 813.61 ك ب / التحميلات : 112)
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم اخوتي 
لدي مشكلة ف فورم تسجيل دخول لايوجد ربط بينها وبين قواعد بيانات  اسك اكيو ال sql
يعطي خطا 


  Try
            'هذه جملة فتح الاتصال مع قاعد البيانات 
          
            Dim ConnectionString As String = ("Data Source=USER-MSI;Initial Catalog=DBArsfa;Integrated Security=True")
            Dim cn As New SqlConnection(ConnectionString)

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




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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  [VB.NET] ارغب في كود إلزام المستخدم ادخال الأرقام محصور بعددين loay775 2 200 18-01-24, 05:02 PM
آخر رد: loay775
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

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


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