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

《vb中调用sql数据库数据的登陆界面》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、vb中调用sql数据库数据的登陆界面悬赏分：100-解决时间：2009-11-1720:27我的通用模块代码：PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.RecordsetPublicaddflagAsBooleanPublicSubclocn()OnErrorResumeNextIfconn.State<>adStateClosedThenconn.CloseSetconn=NothingEndSubPublicfMainFormAsfrmMainPublicUserNameAsStringPublic

2、FunctionConnectString()AsString'returnsaDBConnectStringConnectString="Provider=Microsoft.jet.oledb.4.0;datasource="&App.Path&"jlb.mdb"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsADODB.Recordset'executesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrs

3、tAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectString'连接数据库IfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))Then'如果在输入的sql语句中出现insertdeleteupdate那么执行sql代码cnn.ExecuteSQLMsgString=sTokens(0)&"querysuccessful

4、"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimistic'执行查询代码（和上面的功能差不多，区别就是，上面的是执行数据库的更新，包括删除增加更新，而这里是查询）'rst.MoveLast记录集移动到下一条记录'getRecordCount得到数据库条目总数SetExecuteSQL=rst执行数据库查询MsgString="查询到"&rst.RecordCount&"条记录"'显示查询到的记录数EndIfExecuteSQL_Exit:Setrst=No

5、thingSetcnn=Nothing'以上为关闭记录集和数据库连接对象ExitFunctionExecuteSQL_Error:MsgString="查询错误:"&Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction'判断txt是否为空，并且将testtxt设置为真或者假PublicSubclors()OnE

6、rrorResumeNextIfrs.State<>adStateClosedThenrs.CloneSetrs=NothingEndSub登陆界面的确定按钮代码：PrivateSubCommand1_Click()DimdlAsNewADODB.RecordsetDimstrmsgAsStringDimtxtSQLAsStringtxtSQL="selectuidfromdlwhereUID='"&Trim(yhm.Text)&"'"Setdl=ExecuteSQL(txtSQL,strmsg)Ifdl.BOF=TrueThenMsgBox"用户名错误！",

7、vbExclamation+vbOKOnly,"警告"yhm.SetFocusyhm.SelStart=0yhm.SelLength=Len(yhm.Text)ExitSubEndIfUserName=dl.Fields(0)txtSQL="selectUIDfromdlwherePWD='"&Trim(mm.Text)&"'"Setdl=ExecuteSQL(txtSQL,strmsg)Ifdl.EOF=TrueThenMsgBox"密码错误！",vbExclamation+vbOKOnly,"警告"mm.SetFocusmm.SelStart=0mm.Se

8、lLength=Len(mm.Text