积极答复者
用这个模块要怎么写登陆?

问题
-
模块名为DataModule Module DataModule Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataSet Dim DataConnection As OleDb.OleDbConnection Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2008\Projects\蓝龙管理系统\蓝龙管理系统\Data\lanlong.mdb" Dim DataSet As Data.DataSet Dim DataAdapter As Data.Common.DataAdapter Dim OleDbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter Dim comm As OleDb.OleDbCommand Try comm = New OleDb.OleDbCommand DataConnection = New OleDb.OleDbConnection DataConnection.ConnectionString = ConnectStr DataAdapter = New OleDb.OleDbDataAdapter(StrSql, DataConnection) DataSet = New DataSet DataSet.Clear() DataAdapter.Fill(DataSet) DataConnection.Close() Catch MsgBox(Err.Description) End Try End Function End Module ‘》》》》》》》》》》》》》》》》》》 在Form2中写代码! 控件Text1,Text2,按钮Command1 数据库的名字模块中已经有写了!表名为User1,字段名为用户名,密码(这2个!) 代码老是写不对!
- 已移动 Sheng Jiang 蒋晟Moderator 2009年7月14日 14:10 数据库开发问题 (发件人:Visual Studio 相关讨论)
答案
-
HI,
你做事先登陆,如果你数据库保存了用户账号和密码,你就可以调用数据库查询方法,来验证用户的密码是否正确。
你这个方法仅仅是数据的填充,还需要从DataSet里解析出来做比较。
你也可以直接写个存储过程,参数是UserName 和PassWord数据库里验证就可以了。
Frank.Xu Lei--谦卑若愚,好学若饥
专注于.NET平台下分布式应用系统开发和企业应用系统集成
Focus on Distributed Applications Development and EAI based on .NET
老徐的博客:http://frank_xl.cnblogs.com- 已标记为答案 Allen Chen - MSFTModerator 2009年7月21日 5:48
全部回复
-
Module DataModule Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataSet Dim DataConnection As OleDb.OleDbConnection Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2008\Projects\蓝龙管理系统\蓝龙管理系统\Data\lanlong.mdb" Dim DataSet As Data.DataSet Dim DataAdapter As Data.Common.DataAdapter Dim OleDbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter Dim comm As OleDb.OleDbCommand Try comm = New OleDb.OleDbCommand DataConnection = New OleDb.OleDbConnection DataConnection.ConnectionString = ConnectStr DataAdapter = New OleDb.OleDbDataAdapter(StrSql, DataConnection) DataSet = New DataSet DataSet.Clear() DataAdapter.Fill(DataSet) DataConnection.Close() Catch MsgBox(Err.Description) End Try End Function End Module
这样看比较容易看 -
HI,
你做事先登陆,如果你数据库保存了用户账号和密码,你就可以调用数据库查询方法,来验证用户的密码是否正确。
你这个方法仅仅是数据的填充,还需要从DataSet里解析出来做比较。
你也可以直接写个存储过程,参数是UserName 和PassWord数据库里验证就可以了。
Frank.Xu Lei--谦卑若愚,好学若饥
专注于.NET平台下分布式应用系统开发和企业应用系统集成
Focus on Distributed Applications Development and EAI based on .NET
老徐的博客:http://frank_xl.cnblogs.com- 已标记为答案 Allen Chen - MSFTModerator 2009年7月21日 5:48