Vb6.0连接数据库方式.doc

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：任何使用你的计算机的用户和程序都可以使用的DSN3）文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用2.2创建ODBC数据源的步骤（1）启动控制面板2）双击ODBC图标，启动ODBC数据源3）换到“用户DSN”标签，单击“添加”选择SQLServer作为数据源的驱动程序4）为数据源命名，按提示操作即可创建ODBC数据源2.3创建数据库连接创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等1) Database：字符串表达式，指定服务器上的数据库名称2) UID:字符串表达式，为ODBC数据源指定用户标识(用户账号名)3) PWD：字符串表达式，为ODBC数据源指定用户口令4) 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。