vb数据库编程实例？求VB连接数据库实例

一、求VB连接数据库实例

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2。6library和microsoftactiveXDataobjectsrecordset2。

6两个组件，这是在连接数据前所必做的工作。2、接下来定义ADO的连接对象，如下所示：Setconn=NewADODB。ConnectionSetrs=NewADODB。Recordset第一种方法采用的是无源的数据库连接方法conn。

ConnectionString="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("请重新登录",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,adOpenStatic,adLockReadOnly,adCmdTextDimiAsStringFort=0ToVal(rs。

RecordCount)-1i=Trim(rs。Fields("用户名")。Value)rs。MoveNextCombo1。AddItemiNexttrs。Close下面是连接数据库具体代码：PublicconnAsNewADODB。

ConnectionPublicrsAsNewADODB。RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn()AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB。

Connectionconn。ConnectionTimeout=25conn。Provider="sqloledb"conn。Properties("datasource")。Value="127。

0。0。1"''服务器的名字conn。Properties("initialcatalog")。Value="chart"''库名conn。Properties("integratedsecurity")。

Value="SSPI"''登陆类型conn。OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan''tconnect"CallMsgBox(mag,vbOKCancel,"Error:Dataconnect")addFlag=FalseEndEndFunctionPublicSubclocn()OnErrorResumeNextIfconn。

StateadStateClosedThenrs。CloneSetrs=Nothing。

二、vb能做什么程序

VB可以做数据库前台开发,也可做后台,还可以做很多应用软件。一般开发游戏很少用到VB。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序

三、如何用vb连接ACCESS数据库

首先,我们需要引用ADO.具体的方法是,在"工程"--"引用"中,找到"MicrosoftActiveXDataObject*.*Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.

然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.