vb实现多用户登录

发布时间：2020-12-17 08:08:17 所属栏目：百科来源：网络整理

导读：利用vb实现多用户登录，主要是将vb与数据库实现链接，这个问题在作品展中我们的软件“天天迹录”的登录时用到，但是当时自己只是知道有这么个功能，但是那些代码的含义并不明白，在3个月后的我又有机会接触到它，现在敲这特别熟悉，现在也明白了其中的好多问

利用vb实现多用户登录，主要是将vb与数据库实现链接，这个问题在作品展中我们的软件“天天迹录”的登录时用到，但是当时自己只是知道有这么个功能，但是那些代码的含义并不明白，在3个月后的我又有机会接触到它，现在敲这特别熟悉，现在也明白了其中的好多问题！，
利用数据库存储用户和密码，提高了软件运行的速度！而且可以供更多的用户使用！

Public Function ConnectString() As String  '链接数据库
    '返回数据库链接
    ConnectString = "provider =sqloledb;server=IP(写运行时数据库的存放地址);UID=sa;PWD=123456;database=charge"
End Function


Public Function exectuteSQL(ByVal SQL As String,MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection '定义链接
    Dim rst As ADODB.Recordset
    Dim sTokens() As String '定义字符串
    
    On Error GoTo executeSQL_error '异常处理
    
    sTokens = Split(SQL) '拆分字符串函数
    '用Split函数产生一个包含各个子串的数组
    Set cnn = New ADODB.Connection  ' 创建连接
    cnn.Open ConnectString
    '判断字符串中是否含有指定内容
    If InStr("insert,delete,update",UCase$(sTokens(0))) Then '$表示返回的类型明确是字符型。
    
        cnn.Execute SQL    '执行查询语句
        MsgString = sTokens(0) & "query successful"   '返回查询信息
    Else
        Set rst = New ADODB.Recordset '创建数据集对象
        rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockBatchOptimistic '返回查询结果
        'adLockOptimistic 仅当调用update方法时，数据提供者锁定记录 adLockBatchOptimistic 用于批处理修改
        '这个是缺省值。 adOpenKeyset 反映由其它用户所做的对记录的改变或者删除动作，但并不反映由其它用户做作的添加新记录的动作。
        Set executeSQL = rst  '返回记录集对象
        MsgString = "查询到" & rst.RecordCount & "记录"
    End If
    
executeSQL_exit:
    Set rst = Nothing '清空数据集对象
    Set cnn = Nothing '中断连接
    Exit Function
    
executeSQL_error:    '判断错误类型
    messtring = "查询错误：" & Err.Description
    
    Resume executeSQL_exit  'Resume 语句 在错误处理程序结束后，恢复原有的运行。
    
End Function
Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
    
End Function
'创建窗体
Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    txtSQL = "select * from 表 "
    Set mrc = ExecuteSQL(txtSQL,MsgText)
     mrc.MoveFirst
    Call viewData
    mybookmark = mrc.Bookmark
    mcclean = True
    
     If mrc.EOF = False Then
        mrc.MoveFirst
        Call viewData
        mybookmark = mrc.Bookmark
    Else
        MsgBox "没有记录！",vbOKOnly + vbExclamation,"警告"
        Exit Sub
    End If


End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!