用这个模块要怎么写登陆？

Question

模块名为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个！） 代码老是写不对！

Answer 1

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

这样看比较容易看

Answer 2

HI，
  你做事先登陆，如果你数据库保存了用户账号和密码，你就可以调用数据库查询方法，来验证用户的密码是否正确。
  你这个方法仅仅是数据的填充，还需要从DataSet里解析出来做比较。
   你也可以直接写个存储过程，参数是UserName 和PassWord数据库里验证就可以了。

---

Frank.Xu Lei--谦卑若愚，好学若饥
专注于.NET平台下分布式应用系统开发和企业应用系统集成
Focus on Distributed Applications Development and EAI based on .NET
老徐的博客：http://frank_xl.cnblogs.com

Answer 3

如果仅仅为了验证用户密码不一定需要dataset~直接select userid form User1 Where 用户名=Text1.text and 密码=Text2.text~如果搜索结果为空就说明没有匹配项~要不就用户名错要不就密码错~否则会把用户id搜索出来~

---

宠辱不惊，看庭前花开花落。去留无意，望天上云卷云舒。

Answer 4

使用 ExecuteScalar 判断返回结果就行了

---

知识改变命运，奋斗成就人生!