欢迎来到天天文库
浏览记录
ID:34726742
大小:62.18 KB
页数:3页
时间:2019-03-10
《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
此文档下载收益归作者所有