|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #3271 [Vb] (จาก IP: 1.46.192.118)
ทำ Login ใน vb6 แบบเชื่อมต่อฐานข้อม asscess 2003 ยังไงคับ
ขอโค้ดคับ
|
จากคุณ
:
deejaymza [2012-02-18 12:06:24]
|
|
ความคิดเห็น #28587 (จาก IP: 61.91.248.195)
ublic Class Login 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 Dim TypeIDA As String
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dormitory.mdb;" With Cnn If .State = ConnectionState.Open Then Close() .ConnectionString = Cnnstring .Open() .Close() End With
If Username.Text = "" Then MessageBox.Show("ใส่ข้อมูล", "No UserID", MessageBoxButtons.OK, MessageBoxIcon.Error) Else ReadMyData(Cnnstring) End If End Sub
Public Sub ReadMyData(ByVal myConnString As String) On Error GoTo 0 With Cnn If .State = ConnectionState.Open Then Close() .ConnectionString = Cnnstring .Open() End With SqlSelect = "select * from Login Where Username = " & "'" & Username.Text & "'" Dim OleCommand As New OleDbCommand(SqlSelect, Cnn) OleReader = OleCommand.ExecuteReader OleReader.Read() UserIDA = OleReader.Item("username") PassIDA = OleReader.Item("password") TypeIDA = OleReader.Item("type") Cnn.Close() If Username.Text = UserIDA And Password.Text = PassIDA And Type.Text = TypeIDA Then If Type.Text = "Staff" Then OfficialResidence.Show() Username.Text = "" Password.Text = "" Type.Text = "" Me.Hide() ElseIf Type.Text = "Manager" Then Manager.Show() Username.Text = "" Password.Text = "" Type.Text = "" Me.Hide() Else MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning) End If 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 |
จากคุณ
:
รุกกี้ [2012-02-22 10:14:12]
|
|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
|
|