[cayo12300]

السلام عليكم ورحمة الله وبركاته 


عندي مشكلة انا مسوية داتا اسمها user 
وداخلها تيبل اسمه Admin
وفيها 
Id
Ad_Name
Ad_password 

>>>>>>>>>>>>>>>>>>>>

فأبي اسوي تسجيل دخول عن طريق بيانات موجودة داخل الداتا لكن 
لما اسوي الاكواد يطلع خطأ في هذا الجزء

كود :

           Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)

كود :

Public Class Adminlogin

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
           MsgBox("you should complet ypur deails")
       Else


           Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)

           If Me.UserDataSet1.user.Count > 0 Then
               Me.Close()
               Test.Show()
           Else
               MsgBox("Logon failure, user name or password are incorrect!", MsgBoxStyle.Critical)
           End If





       End If
   End Sub

   Private Sub Ad_NameTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If IsNumeric(e.KeyChar.ToString()) Then
           MessageBox.Show("Letters only!")
           SendKeys.Send("{Backspace}")
       End If
   End Sub

   Private Sub Ad_NameTextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.Close()
       Form1.Show()
   End Sub

   Private Function Ad_Name() As Object
       Throw New NotImplementedException
   End Function

End Class

ممكن حل 

[emamtron2014]

وعليكم السلام ورحمة الله وبركاته
انا عندي كود بطريقه اخري
ممكن يحل مشكلتك
تفضل الكود

كود :

Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
       dtLogin.Clear()
       Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and  Pass=@Pass", connAccess2007)
       cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
       cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
       connAccess2007.Open()
       dtLogin.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub

       Login_load(TextBox1.Text, TextBox2.Text)

       If dtLogin.Rows.Count > 0 Then
           user_id = dtLogin.Rows(0).Item(0)
       End If

[cayo12300]

(26-03-18, 04:46 AM)emamtron2014 كتب : وعليكم السلام ورحمة الله وبركاته
انا عندي كود بطريقه اخري
ممكن يحل مشكلتك
تفضل الكود

كود :

Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
       dtLogin.Clear()
       Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and  Pass=@Pass", connAccess2007)
       cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
       cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
       connAccess2007.Open()
       dtLogin.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub

       Login_load(TextBox1.Text, TextBox2.Text)

       If dtLogin.Rows.Count > 0 Then
           user_id = dtLogin.Rows(0).Item(0)
       End If

كودك ناقص لانه ما اشتغل معي ...

[emamtron2014]

اخي الكود شغال تمام
ولكن عليك 
1-ان تكتب اسم الفورم الذي تريد فتحه في حالة اذا كان اسم المستخدم وكلمة السر صحيحه
2- قاعدة البيانات المستخدمة هي اكسيس 2007
3- عليك تغيير اسم الجدول والحقول والمتغيرات.ممكن تبعت جزء من برنامجك وسنقوم بالتعديل عليه ان شاء الله
وهذا هو الكود بعد التعديل

كود :

Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
       dtLogin.Clear()
       Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and  Pass=@Pass", connAccess2007)
       cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
       cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
       connAccess2007.Open()
       dtLogin.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub
   Login_load(TextBox1.Text, TextBox2.Text)

       If dtLogin.Rows.Count > 0 Then
           user_id = dtLogin.Rows(0).Item(0)

           frmMainMenu.Show()
       Else
           MsgBox("")
       End If

[ابو ملاك الخبير]

هذا الكود شغال عندي 100%
وارفقت صورة التصميم حتى تعرف الادوات المستخدمة

كود :

Imports System.Data.SqlClient
Public Class Login_form
   Private Sub BTNlogin_Click(sender As Object, e As EventArgs) Handles BTNlogin.Click
       Dim SQLQ As String = ("Select * From Mangers WHERE empuser= '" & Texuser.Text & "' and emppass= '" & Texpass.Text & "'")
       Dim SQLCmnd As New SqlCommand(SQLQ, SQLcon)
       Dim SQLAdptr = New SqlDataAdapter(SQLCmnd)
       Dim Dt As New DataTable
       Dt.Clear()
       SQLAdptr.Fill(Dt)
       If Dt.Rows.Count > 0 Then
           MsgBox("تم تسجيل الدخول بنجاح")
           MainBord_form.Show()
           Me.Hide()
       Else
           MsgBox("اسم المستخدم او كلمة المرور غير صحيحة")
       End If
   End Sub
   Private Sub BTNEXIT_Click(sender As Object, e As EventArgs) Handles BTNEXIT.Click
       Close()
   End Sub
   Private Sub CheckBoxSP_CheckedChanged(sender As Object) Handles CheckBoxSP.CheckedChanged
       If Texpass.UseSystemPasswordChar = True Then
           ' show password
           Texpass.UseSystemPasswordChar = False
       Else
           ' hide password
           Texpass.UseSystemPasswordChar = True
       End If
   End Sub


End Class

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته

إضافة إلى مشاركة اخوي ابو ملاك
شاهد هذا المثال وفيه شرح فيديو لكامل العمليه بالتفصيل

http://vb4arb.com/vb/showthread.php?tid=21817