欢迎来到天天文库
浏览记录
ID:34726715
大小:67.68 KB
页数:5页
时间:2019-03-10
《vb与sql数据库连接》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、VB连接SQL数据库的方法VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2.6library和microsoftactiveXDataobjectsrecordset2.6两个组件,这是在连接数据前所必做的工作。2、接下来定义ADO的连接对象,如下所示:Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordset第一种方法采用的是无源的数据库连接方法conn.Co
2、nnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn.ConnectionTimeout=30conn.Openrs.Open"select用户名,密码fromloginwhere用户名='"&Trim(Combo1.Text)&"'And密码='"&Trim(Text1.Text)&"'",conn,adOpenStatic,adLockReadOnly,adCmdTextIfrs.EOF=TrueAndrs.BOFThenm=MsgBox("请重新
3、登录",vbExclamation)Text1.Text=""Text1.SetFocusElseForm1.HideEndIfrs.Close这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString="DSN=login;uid=sa;pwd=;"conn.ConnectionTimeout=30conn.Openrs.Open"select用户名fromlogin",conn,
4、adOpenStatic,adLockReadOnly,adCmdTextDimiAsStringFort=0ToVal(rs.RecordCount)-1i=Trim(rs.Fields("用户名").Value)rs.MoveNextCombo1.AddItemiNexttrs.Close连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。下面是连接数据库具体代码:程序代码PublicconnAsN
5、ewADODB.ConnectionPublicrsAsNewADODB.RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn()AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value="127.0.0.1"''服务器的名字conn.Properties("i
6、nitialcatalog").Value="chart"''库名conn.Properties("integratedsecurity").Value="SSPI"''登陆类型conn.OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan''tconnect"CallMsgBox(mag,vbOKCancel,"Error:Dataconnect")addFlag=FalseEndEndFunctionPublicSubclocn()OnErrorResumeNextIfconn.Sta
7、te<>adStateClosedThenconn.CloseSetconn=NothingEndSubPublicFunctionopenrs(ByValstrsqlAsString)AsBoolean''连接数据库记录集DimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adO
8、penKeyset.LockType=adLockO
此文档下载收益归作者所有