|
|
| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #3271 [Vb]
ทำ 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]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
|
|
| แบบสำรวจ |
|
|
 |
|
|
New Article
อัตราค่าโฆษณา
