 |
| |
login vb2005 & access 2003 ในการ login ถ้า login ถูกต้องก็ผ่านเข้าสู่หน้าหลัก แต่ถ้า login ไม่ถูกต้องมัน error อะคับ ช่วยที |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
olereader.Read()
If (olereader.HasRows) Then
userida = olereader.Item("Committee_id")
passida = olereader.Item("password")
Else
' ไม่มีข้อมูล
End If
|
 |
 |
 |
 |
| Date :
2010-06-19 16:39:39 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
มีปัญหาเวลากรอกภาษาไทยอะคับ มันแปลงเป็นตัวเลข แล้วเวลาใส่ภาษาไทยมันจะ error อะคับ
olecommand.Parameters.AddWithValue("@committee_id", CInt(txtusername.Text))
ทำไงให้มัน msg ว่ากรุณากรอกเฉพาะ ตัวเลขอะคับ
|
| |
|
|
| |
| Date :
2010-06-19 17:47:09 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
If (Not IsNumeric(txtusername.Text)) Then
' ตัวเลขเท่านั้นเข้าใจไหม
End If
|
| |
|
|
| |
| Date :
2010-06-19 17:49:52 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
login วนมาแระ ต่อไป gridview ค่อยดูดิพี่ตึ๋ง
|
| |
|
|
| |
| Date :
2010-06-19 18:17:44 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 เราทำคู่มือเรื่องนี้โดยเฉพาะเลยดีไหม จะได้ให้ทำตามเลย ไม่ต้องตอบบ่อยๆ
|
| |
|
|
| |
| Date :
2010-06-19 18:20:18 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำดิคะ แต่เชื่อเหอะ ถามเหมือนเดิมแหละ
|
| |
|
|
| |
| Date :
2010-06-19 18:39:59 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมก็ว่างั้นละคับ เอาแบบละเอียดเลยคับท่าน ขอบคุณคับ
|
| |
|
|
| |
| Date :
2010-06-19 23:30:59 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คิดไปคิดมาไปเอาดีกว่า เพราะ login มันไม่ตายตัว บางคนแค่ตรวจ user กับ pass ก็จบ
บางคนมี role ทำไปเดี๋ยวก็มีคนมาถามอยู่แบบน้องพราวว่านั่นแหละ ทั้งๆ ที่ระบบ login
มันก็แค่ติดต่อฐานข้อมูลเท่านั้นเอง แต่มีถามกับบ่อยๆ เพราะเวลาเริ่มโปรเจ็คต้องทำส่วน
login ก่อน มือใหม่ก็เลยงงแต่เรื่องนี้ แต่ keneji นี่เห็นอยู่ในบอร์ดตั้งนานแล้วยังติดต่อฐานข้อมูล
ไม่คล่องอีกหรือครับ
|
| |
|
|
| |
| Date :
2010-06-20 08:27:19 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
PATTERN
- login << เปิดเทอม จะชุกมากเพราะอาจารย์จะสอนอันดับแรกเลย
- control for represent data โดยปกติมักจะเป็น gridview ,dropdowlist มีมั่งประปราย
- report
- database
top hit ติดอันดับทั้งที่มีตัวอย่างในบอร์ดนี่แหละค่ะ มากจนมะรุจะว่ายังไง
พี่วินก้อทำ tutorial ให้ แล้วทำไมมีมาโพสเรื่องเดิมๆ น่าคิดมากกว่าปะคะ
ความเห้นส่วนตัวคือ บอร์ดยังจัดระบบ KM ไม่ค่อยดี search ยากไม่ค่อยตรง
ทั้งมี content แน่นปึ้ก อันนี้ขออนุญาติพี่วินค่ะ ขอวิจารณ์สักนิด
ระบบหมวดหมู่สารบัญยังไม่ค่อยดีอะค่ะ ที่เห็น work ก้อ troubleshooting ของ microsoft
กะ code project หาอะไรก้อเจอทั้ง knowledge ทั้ง code ทั้ง snippet
เพราะเขาออกแบบมาเพื่อบริหาร KM แต่บอร์ดนี้เข้าใจว่า base on community board มังคะ
|
| |
|
|
| |
| Date :
2010-06-20 09:16:49 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมเรียนตอนปี 2 อะคับและตอนเรียนผมเขียน login แบบกำหนดในโปรแกรมอะคับพอมาตอนนี้ login แบบเชื่อมต่อ db เลยงง
พูดง่ายๆ คือ มือใหม่อะคับ แฮ่ะๆๆ
|
| |
|
|
| |
| Date :
2010-06-20 09:25:24 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
| Date :
2010-06-20 09:25:52 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Imports System.Data
Imports System.Data.OleDb.OleDbConnection
Public Class frmLogin
Dim objConn As New OleDb.OleDbConnection()
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim comm As OleDb.OleDbCommand
Dim ole As String = ""
Dim objDataset As New DataSet
Dim strcmd As String
Sub conn()
Dim strconn As String
strconn = "Provider =Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =C:\Users\SAMSUNG\Desktop\project;" & _
"User ID=; Password=;" & _
"Persist Security Info=False"
objConn = New OleDb.OleDbConnection(strconn)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
txtUser.Text = ""
TxtPwd.Text = ""
ole = " select * from Login where Username='" & txtUser.Text & "' and Password='" & TxtPwd.Text & "'"
dataAdapter = New OleDb.OleDbDataAdapter()
If objDataset.Tables("dtlogin").Rows.Count <> 1 Then
MessageBox.Show("กรุณาตรวจสอบข้อมูลอีกครั้ง", "ข้อมูลผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Hand)
Exit Sub
End If
Me.Hide()
objConn.Open()
dataAdapter.Fill(objDataset, "dtlogin")
objConn.Close()
sale.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExit.Click
Me.Close()
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub txtUser_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUser.TextChanged
End Sub
End Class
มี error นะค่ะ
รบกวนหน่อยนะค่ะ
|
| |
|
|
| |
| Date :
2010-10-05 06:13:23 |
By :
phuan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
ชื่อนี้ Button1_Click_1 กับ CmdLogin ไม่เหมือนกันเลย เกี่ยวปะเนี้ย
|
| |
|
|
| |
| Date :
2010-10-05 09:55:01 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Quote:
