登录信息管理系统前用来校验用户名和密码的代码不知道怎么写，对应一个SQL Server 2000的表
登录信息管理系统前用来校验用户名和密码的代码不知道怎么写，对应一个SQL Server 2000的表：User_ID Password power
Admin Admin 管理员
12345 12345 普通用户
我用的是ＶＢ６。０，在登录系统前必须输入用户名和密码，分别对应Text1和Text2
问题点数：0、回复次数：4Top
1 楼lzoxl（落花人独立,微雨雁双飞）回复于 2004-08-04 11:00:13 得分 0
dim dbap as oledb.oledbdataadapter
dim ds as new dataset
dbap=("select * from yourtable where user_id = text1.text and password=text2.text",db_str)
dbap.fill(ds,"table1)
if ds.table("table1").rows.count=0 then
有此人且可进
else
失败Top
2 楼shixianyong（钱途无量）回复于 2004-09-04 13:53:43 得分 0
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tablename As String
tablename = "userID" '表的名稱
SearchSQL = "SELECT UserName, PassWord FROM userID WHERE (UserName = '" & TxtUserName.Text & " ') "
Try
ExecuteSQL(SearchSQL, tablename) '查詢函數
If DataRow1.Item(1) = TxtUserPassword.Text Then '比較輸入密碼和數據庫的密碼
Dim newFrmmain As New FrmMain
newFrmmain.Show()
Me.Hide()
Else
Exit Sub
End If
Catch
MsgBox("沒有該用戶", vbOKOnly + vbExclamation, "警告")
End Try
End Sub
Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
Try
'建立ADODataSetCommand對像
'數據庫查詢函數
DataAdapter1 = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=student.mdb")
'建立ADODataSetCommand對像
DataAdapter1.Fill(DataSet1, table) '取得表單
DataTable1 = DataSet1.Tables.Item(0) '取得名為table的表
rownumber = 0 '設置為第一行
DataRow1 = DataTable1.Rows.Item(rownumber)
'取得第一行數據
Catch
MsgBox(Err.Description)
End Try
End FunctionTop
3 楼dofly（巴山夜雨）回复于 2004-09-04 17:12:55 得分 0
'VB6.0代码
Dim rs as recordset
set rs=new recordset
rs.cursorlocation = adclientuser '记不清楚了，这里选客户端
rs.open "select * from power where user_id='" & text1 & "' and password='" & text2 & "'",连接,1,2,1
if rs.count >0 then
'有
else
'无'
end if
Top
4 楼haozhiyuan2003（阿志）回复于 2004-09-09 11:34:44 得分 0
支持shixianyong(石頭)的
搂上的试试把用户名和密码都输入 '' or ''=''Top
相关问题
- 求sql server连接代码
- 连接SQL SERVER 2000的代码错误
- sql server 2000的错误代码
- 怎样让SQL server 执行SQL server外的代码。
- 直连SQL SERVER2000怎么写代码？SQLCA.DBMS= "MSS microsoft sql server 2000"
- 求新闻文章系统的源代码，asp.net(C#) sql server，带源代码
- 跪求.net (C#代码)学习代码 最好sql server 数据库 优秀代码 马上接贴
- 兄弟们呀,帮帮我吧！（原代码,SQL SERVER）
- sql server里面job的代码放在哪里???
- 怎样创建SQL Server DSN？请给出代码。谢谢
