vb实现多用户登录

页面导航:首页 > 软件编程 > vb.net > vb实现多用户登录

vb实现多用户登录

来源: 作者: 时间:2016-01-15 15:10 【

利用vb实现多用户登录,主要是将vb与数据库实现链接,这个问题在作品展中我们的软件天天迹录的登录时用到,但是当时自己只是知道有这么个功能,但是那些代码的含义并不明白,在
利用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  
 
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<