Vb6.0连数据库1.1ADO(ActiveXDataObject)连接方式在连接数据库前，首先要在VisualBasic6.0菜单中“工程”一＞“引用冲选择MicrosoftActiveXDataObjects2.6Library和MicrosoftActiveXDataObjectsRecordset2.6Library这两个组件。实例：以建立登陆系统为例，介绍无源数据库连接。在MicrosoftSQLServer2000中建立一个Student的数据库，在Student数据库中建立login_user(name,password)的数据表，MicrosoftSQLServer服务器的名为data_server。代码如下：OptionExplicitPublicLoginSucceededAsBoolean'引用MicrosoftActiveXDataObjects2.6Library'定义连接对象和记录集DimconnAsADODB.ConnectionDimrsAsADODB.Recordset'对取消按钮单击事件的响应PrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=FalseMe.HideEndSub'对登录按钮单击事件的响应PrivateSubcmdOK_Click()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordset'建立无源数据库连接conn.ConnectionString="driver={sqlserver};server=data_server;uid=sa;pwd=;Database=student"conn.ConnectionTimeout=50conn.OpenDimstrAsString'连接连接对象Setrs.ActiveConnection=conn'设置游标类型rs.CursorType=adOpenDynamicIfTrim(txtUserName.Text="")ThenMsgBox"用户名不能为空，请重新输入用户名！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElse'设置查询字符串str="select*fromlogin_userwherename='"&Trim(txtUserName.Text)&"'"rs.OpenstrIfrs.EOF=TrueThenMsgBox"没有这个用户，请重新输入用户名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElse'登录成功，连接主窗口If(Trim(txtPassword.Text)=Trim(rs.Fields("password")))ThenLoginSucceeded=TrueMe.Hidemain.ShowElseMsgBox"密码不正确，请重输入密码!",,"警告"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndIfEndIfEndSub2通过配置ODBC环境，进行数据源的注册，对数据库进行连接、访问和操作。2.1ODBC数据源分为以下三类：（1）用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。（2）系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。（3）文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。2.2创建ODBC数据源的步骤（1）启动控制面板。（2）双击ODBC图标，启动ODBC数据源。（3）换到“用户DSN”标签，单击“添加”。选择SQLServer作为数据源的驱动程序。（4）为数据源命名，按提示操作即可创建ODBC数据源。2.3创建数据库连接创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。Database:字符串表达式，指定服务器上的数据库名称。UID:字符串表达式，为ODBC数据源指定用户标识(用户账号名)。PWD:字符串表达式，为ODBC数据源指定用户口令。DSN：字符串表达式，指定连接的ODBC数据源名称。利用已配置好的ODBC数据源进行连接。实例：以建立查询系统为例，介绍有源数据库连接。创建ODBC数据源名称为stud，通过ADO与数据库student进行连接，代码如下：DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString="dsn=stud;uid=sa;pwd=;database=student"conn.OpenDimstrAsStringSetrs.ActiveConnection=connrs.CursorType=adOpenDynamicstr="select*fromlogin_user"rs.OpenstrtxtUserName.Text=rs.Fields("name")txtPassword.Text=rs.Fields("password")EndSub
本文档为【Vb60连接数据库方式】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483