+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برجاء النظر على هذا الكود وتصحيحه (/showthread.php?tid=9282)
الصفحات:
1
2
برجاء النظر على هذا الكود وتصحيحه - dhetos - 15-06-13
بسم الله الرحمن الرحيم
لوسمحتم انا ليا سوالين ياريت حد يقدر يجاوبنى عليهم
المشكلة انى كان عندى database معمولة بااكسيس حولتها من الاكسس خلتها SQL Server
دلوقتى عايز اعمل فورم تسجيل الدخول للبرنامج ومش عارف بكتب الكود داه
اسم الدتا بيس SGG
اسم الجدول ائلى فيه المستخدمين user
اسم العمود ائلى فيه اسم المستخدم User Name
اسم العمود ائلى فيه اسم المستخدم Password
وداه الكود ائلى باكتبه يارب تساعدونى
Private Sub BtnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Provider=SQLOLEDB;Data Source=7-PC\SQLEXP;Integrated Security=SSPI;Initial Catalog=SGG")
command.CommandText = "select * from [user] where User Name '" & TextBox1.Text & "'And Password='" & TextBox2.Text & "';"
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
MainMenu.show()
Me.Hide()
Else
MsgBox("هناك خطاء فى اسم المستخدم او كلمة المرور")
TextBox1.Clear()
TextBox2.Clear()
End If
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Provider=SQLOLEDB;Data Source=7-PC\SQLEXP;Integrated Security=SSPI;Initial Catalog=SGG")
command.CommandText = "select * from [user] where User Name '" & TextBox1.Text & "'And Password='" & TextBox2.Text & "';"
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
MainMenu.show()
Me.Hide()
Else
MsgBox("هناك خطاء فى اسم المستخدم او كلمة المرور")
TextBox1.Clear()
TextBox2.Clear()
End If
فالوسمحتم حد يقولى المشكلة فين لما بكتب user name & Password البرنامج بيقف ومش عارف ايه المشكلة
تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وارجو الاهتمام جزاكم الله كل خير
برجاء النظر على هذا الكود وتصحيحه - حريف برمجة - 16-06-13
جملة السليكت ناقصة = بعد حقل اليوزر نيم
PHP كود :
command.CommandText = "select * from [user] where User Name='" & TextBox1.Text & "'And Password='" & TextBox2.Text & "';"
برجاء النظر على هذا الكود وتصحيحه - dhetos - 16-06-13
الف الف شكر على المساعدة على العموم انا عملتها بس المشكلة لما بشغل البرنامج واكتب سم يوزر نيم وباسورد من ائلى فى الجداول البرنامج بيقولى فيه مشكلة فى السطر دله
connection.ConnectionString = ("Provider=SQLOLEDB;Data Source=7-PC\SQLEXP;Integrated Security=SSPI;Initial Catalog=SGG")
برجاء النظر على هذا الكود وتصحيحه - Sajad - 16-06-13
السلام عليكم
PHP كود :
connection.ConnectionString = ("Data Source=7-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=SGG")
برجاء النظر على هذا الكود وتصحيحه - dhetos - 16-06-13
شكرا لمشاركة الاستاذ sajad بس بعد معدلت الكود بتاع حضرتك هيا ديه المشكلة ائلى ظهرت
[ATTACH=CONFIG]3023[/ATTACH]
برجاء النظر على هذا الكود وتصحيحه - @@أبورائد@@ - 16-06-13
السلام عليكم ورحمة الله وبركاته
جرب التالي
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connection As New SqlClient.SqlConnection("Data Source=.; Initial Catalog=SGG; Integrated Security=True")
Dim sql As String = " Select * From [user] " & _
" Where [User Name] = @UserName " & _
" And [Password] = @Password "
Dim command As New SqlClient.SqlCommand(sql, connection)
command.Parameters.AddWithValue("@UserName", TextBox1.Text)
command.Parameters.AddWithValue("@Password", TextBox2.Text)
Dim adaptor As New SqlClient.SqlDataAdapter(command)
Dim datatable As New DataTable
adaptor.Fill(datatable)
If datatable.Rows.Count = 0 Then
MsgBox("هناك خطاء فى اسم المستخدم او كلمة المرور")
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox1.Focus()
Else
MainMenu.show()
Me.Hide()
End If
End Sub
السلام عليكم ورحمة الله وبركاته
برجاء النظر على هذا الكود وتصحيحه - Sajad - 16-06-13
السلام عليكم
اخي العزيز هل الاتصال مفتوح؟ تأكد باتباع هذه الخطوات: اولا من قائمة Start ثم Sqlserver2008 ثم Configuration Tools ثم SQL Server Configuration Manager ستظهر لك نافذة اختر Sql server Services ومن ناحية اليمين تأكد من أن Sql server في حالة Running
وغير نص الاتصال الى التالي:
PHP كود :
connection.ConnectionString = ("Data Source=.\SQLEXPRESS;Integrated Security=True;Initial Catalog=SGG;")
برجاء النظر على هذا الكود وتصحيحه - dhetos - 16-06-13
تحياتى للجميع بالنسبة الى الكود الذى كتبه الاستاذ @@أبورائد@@ هذه هي النتيجة
[ATTACH=CONFIG]3024[/ATTACH]
امابالنسبة الى التعديل الذى ارسله لى الاستاذ sajad النتيجة نفس المشكلة ومرفق صورة لاعدادات الـSQL SERVER
[ATTACH=CONFIG]3025[/ATTACH]
واا متشكر جدا لمجهودكم
برجاء النظر على هذا الكود وتصحيحه - Sajad - 16-06-13
السلام عليكم
مادام اسم الServer هو SQLEXP
فغير نص الاتصال الى التالي:
PHP كود :
connection.ConnectionString = ("Data Source=.\SQLEXP;Integrated Security=True;Initial Catalog=SGG;")
برجاء النظر على هذا الكود وتصحيحه - dhetos - 16-06-13
جربت اديتنى المشكلة ائلى فى الصورة ديه