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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جملة الاتصال بقاعدة بيانات اكسس mdb على شبكة بين جهازين tarek 1 110 26-04-21, 06:14 AM
آخر رد: محمد اسماعيل
  [سؤال] كيف يتم حل مشكلة [ net framework ] في فجول بيسك 2019 .. ,والتخلي عن NET 5.0 Vimtos 4 462 31-03-21, 12:00 AM
آخر رد: Nena
Rainbow [سؤال] سؤال عن طريقة توصيل كامبرا الموبايل بقاعدة بيانات خالد دياب 0 236 25-03-21, 07:13 PM
آخر رد: خالد دياب
  [سؤال] ازاي اقدر اربط الفجوال بيسك بالاجهزه الخارجية رضوان الجماعي 1 252 24-03-21, 09:09 PM
آخر رد: أبو عبدالله الحلواني
  فيجوال بيسك 2008 nourmandour 3 250 21-03-21, 09:15 PM
آخر رد: عبد الهادي بهاب
  [سؤال] لماذا عندما أفتح برنامج الفجول بيسك يظهر هذا الشريط أبو عبدالله الحلواني 0 203 19-03-21, 09:17 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] ممكن فكرة حفظ عدد غير معلوم من الصور بقاعدة بيانات سيكوال ahmedramzyaish 1 322 12-03-21, 09:34 PM
آخر رد: محمد فوزى محمد
  تشغيل برنامج بالفجول بيسك عن طريق شبكة الواي فاي معتز حسن 0 331 03-03-21, 02:30 AM
آخر رد: معتز حسن
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 403 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  [VB.NET] عمل بلوك للبورتات في الجدار الناري عن طريق الفجول بيسك [ netsh advfirewall firewall Vimtos 0 222 21-02-21, 03:35 PM
آخر رد: Vimtos

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


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