تقييم الموضوع :
  • 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 ك ب / التحميلات : 86)
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة:
#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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation كيفية ربط قواعد البيانات mysql ب فيجوال بيسك دوت نت Yasser_Abuelhassab 1 64 25-07-21, 02:31 AM
آخر رد: ابو انس
  [سؤال] مشكلة Provider للاتصال بقاعدة البيانات نيمو 3 107 22-07-21, 09:59 PM
آخر رد: نيمو
  ما هو حل مشكلة إنتهاء الرخصة لفيجوال بيسك جيولوجي مبتدئ 2 128 18-07-21, 05:29 PM
آخر رد: جيولوجي مبتدئ
  مشكلة في فيجوال بيسك 2019 aftfm 1 134 18-07-21, 02:32 AM
آخر رد: kebboud
  طلب تشغيل مشغل mpv في الفيجوال بيسك ؟؟ 4545Mohamed 1 193 14-07-21, 03:15 AM
آخر رد: islam39
  استبدال حرف بحرف في حقل بقاعدة sql atefkhalf2004 5 217 12-07-21, 12:35 PM
آخر رد: atefkhalf2004
  [VB.NET] فيجوال بيسيك KEA TECH 2 133 11-07-21, 02:16 PM
آخر رد: asemshahen5
  [Acces2003] عمل قاعدة بيانات 2003 بالفيجوال بيسك 2010 اسلام الكبابى 3 265 09-07-21, 12:41 PM
آخر رد: اسلام الكبابى
  [VB.NET] كيفية تشغيل مشغل mpv في الفيجوال بيسك ؟؟ 4545Mohamed 1 225 07-07-21, 09:06 PM
آخر رد: 4545Mohamed
  كيفية استخدام البروكسي فى الفيجوال بيسك proxy mediafourgi 5 608 02-07-21, 11:01 AM
آخر رد: asemshahen5

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


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