vb中调用sql数据库数据的登陆界面(1)

vb中调用sql数据库数据的登陆界面(1)vb中调用sql数据库数据的登陆界面(1) vb中调用sql数据库数据的登陆界面悬赏分:100 - 解决时间:2009-11-17 20:27 我的通用模块代码: Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public addflag As Boolean Public Sub clocn() On Error Resume Next If conn.State <> adStateClosed Then...

vb中调用sql数据库数据的登陆界面(1) vb中调用sql数据库数据的登陆界面悬赏分:100 - 解决时间:2009-11-17 20:27 我的通用模块代码: Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public addflag As Boolean Public Sub clocn() On Error Resume Next If conn.State <> adStateClosed Then conn.Close Set conn = Nothing End Sub Public fMainForm As frmMain Public UserName As String Public Function ConnectString() As String 'returns a DB ConnectString ConnectString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\jlb.mdb" End Function Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString '连接数据库 If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '如果在输入的sql语句中出现insert delete update 那么执行sql代码 cnn.Execute SQL MsgString = sTokens(0) & " query successful" Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic '执行查询代码(和上面的功能差不多，区别就是，上面的是执行数据库的更新，包括删除增加更新，而这里是查询) 'rst.MoveLast记录集移动到下一条记录 'get RecordCount得到数据库条目总数 Set ExecuteSQL = rst执行数据库查询 MsgString = "查询到" & rst.RecordCount & " 条记录 " '显示查询到的记录数 End If ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing '以上为关闭记录集和数据库连接对象 Exit Function ExecuteSQL_Error: MsgString = "查询错误: " & Err.Description Resume ExecuteSQL_Exit End Function Public Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End If End Function '判断txt是否为空，并且将testtxt设置为真或者假 Public Sub clors() On Error Resume Next If rs.State <> adStateClosed Then rs.Clone Set rs = Nothing End Sub 登陆界面的确定按钮代码: Private Sub Command1_Click() Dim dl As New ADODB.Recordset Dim strmsg As String Dim txtSQL As String txtSQL = "select uid from dl where UID='" & Trim(yhm.Text) & "'" Set dl = ExecuteSQL(txtSQL, strmsg) If dl.BOF = True Then MsgBox " 用户名错误～", vbExclamation + vbOKOnly, "警告" yhm.SetFocus yhm.SelStart = 0 yhm.SelLength = Len(yhm.Text) Exit Sub End If UserName = dl.Fields(0) txtSQL = "select UID from dl where PWD='" & Trim(mm.Text) & "'" Set dl = ExecuteSQL(txtSQL, strmsg) If dl.EOF = True Then MsgBox " 密码错误～", vbExclamation + vbOKOnly, "警告" mm.SetFocus mm.SelStart = 0 mm.SelLength = Len(mm.Text) Exit Sub End If OK = True zjm.Show Unload Me End Sub 现在运行起来的错误是代码“3704”，麻烦说明错误，能帮忙注释最好„ 希望可以留下QQ方便我请教„„ 提问者: RZ雪儿 - 三级最佳答案 dl是nothing还是有值, 错误代码“3704”是表示“对象已关闭，不允许操作”。你的ExecuteSQL函数中有ExecuteSQL_Error:、ExecuteSQL_Exit: 当你查询成功后你并没有主动退出函数，所以ExecuteSQL_Exit:总是会被执行(对象被关闭)。在 MsgString = "查询到" & rst.RecordCount & " 条记录 " '显示查询到的记录数后加一句:Exit Function

                    本文档为【vb中调用sql数据库数据的登陆界面&#40;1&#41;】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

vb中调用sql数据库数据的登陆界面&#40;1&#41;

你可能还喜欢

vb中调用sql数据库数据的登陆界面(1)