Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,562

HOME > .NET Framework > Forum > [VB] รบกวนช่วยดูเออเร่อด้วยค่ะ โค้ด login + กำหนดสิทธิ์ให้ล็อคอินได้เฉพาะบางกลุ่ม



 

[VB] รบกวนช่วยดูเออเร่อด้วยค่ะ โค้ด login + กำหนดสิทธิ์ให้ล็อคอินได้เฉพาะบางกลุ่ม

 



Topic : 071559

Guest




Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Public Class LoginForm
    Dim StrConn As String
    Dim Conn As New OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As New DataSet

    Dim dt As DataTable
    Dim dr As DataRow


    Dim CurrentEmployees As Integer
    Dim IsFind As Boolean = False
    Dim btnChk As String

    Dim Cnn As New OleDbConnection(Cnnstring)
    Dim Cnnstring As String
    Dim SqlSelect As String
    Dim OleReader As OleDbDataReader
    Dim UserIDA As String
    Dim PassIDA As String


    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=H:\ae\LibralyProject\libraly.accdb"

        With Conn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = StrConn
            .Open()

        End With
    End Sub
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Cnnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=H:\ae\LibralyProject\libraly.accdb"
        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
            .Close()
        End With
        If txtUserName.Text = "" Or txtPwd.Text = "" Then
            MessageBox.Show("ใส่ข้อมูล", "No UserID", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ReadMyData(Cnnstring)
        End If
    End Sub
    Public Sub ReadMyData(ByVal myConnString As String)
        Dim str_idname As String = ""
        Dim str_password As String = ""
        On Error GoTo 0
        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
        End With
        SqlSelect = "select * from users Where userid = '" & txtUserName.Text & "' and userpassword = '" & txtPwd.Text & "'"
        Dim OleCommand As New OleDbCommand(SqlSelect, Cnn)
        OleReader = OleCommand.ExecuteReader
        OleReader.Read()
        If Not OleReader.HasRows Then
            str_idname = OleReader.Item("userid")
            str_password = OleReader.Item("userpassword")
        Else
            MessageBox.Show("User name or password Incorrec")
        End If

        Cnn.Close()
        If txtUserName.Text = str_idname And txtPwd.Text = str_password Then
            Form2.Show()
            txtUserName.Text = ""
            txtPwd.Text = ""
            Me.Hide()
        Else
            MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub



End Class



ติดเออเร่อ ตรงบรรทัด OleReader = OleCommand.ExecuteReader
The table 'users' is already opened exclusively by another user, or it is already open through the user interface and cannot be manipulated programmatically.

อีกข้อนึงที่อยากรู้ค่ะ


ถ้าต้องการกำหนดสิทธิ์ให้ แค่บางกลุ่มเท่านั้นที่ล็อกอินได้อ่ะค่ะ ต้องแก้ไขโค้ดยังไง
เราจะกำหนดว่าใครอยู่กลุ่มไหนตรงฟิลด์ usergroup อ่ค่ะ

รบกวนด้วยค่ะ



Tag : .NET, Ms Access, VBScript, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-01-09 11:12:53 By : patta View : 1380 Reply : 4
 

 

No. 1

Guest


มือใหม่ค่ะ เพิ่งเรียนได้ไม่ถึงเทอมแต่ต้องทำโปรเจ็คจบ รบกวนพี่ๆด้วยค่ะ T_T






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-09 11:14:46 By : patta
 


 

No. 2



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (VB.NET)
SqlSelect = "select * from users Where userid = '" & txtUserName.Text & "' and userpassword = '" & txtPwd.Text & "'"


อยากเพิ่มอะไรก็เพิ่มเข้าไปครับ

Code (VB.NET)
SqlSelect = "select * from users Where userid = '" & txtUserName.Text & "' and userpassword = '" & txtPwd.Text & "' AND usergroup = 'xx' "

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-09 11:53:54 By : webmaster
 

 

No. 3

Guest


str_idname = OleReader.Item("userid")

ตอนนี้รันแล้วติดเออเร่อที่บรรทัดนี้ค่ะ
No data exists for the row/column.
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-09 13:18:14 By : patta
 


 

No. 4

Guest


เปิด Acc ค้างไว้หรือเปล่าค่ะ เราก็เป็นค่ะเพราะเปิด Acc ค้างไว้
ถ้าไม่ใช่ก็ขอโทษด้วยนะคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-27 19:42:00 By : เค้าเอง
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : [VB] รบกวนช่วยดูเออเร่อด้วยค่ะ โค้ด login + กำหนดสิทธิ์ให้ล็อคอินได้เฉพาะบางกลุ่ม
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , pangpond.com , pangpond.co.th , สำนักงานบัญชี.com , รถมือสอง

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2021 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่