⑤ 单击“确定”按钮。?
(2) 对于File DSN的调试?
① 在系统的“开始”菜单上选择“设置”,单击其中的“控制面板”,弹出控制面板框。 ?
② 双击“32bit ODBC”图标,弹出“ODBC data source administrator”窗口,选择“Fil e DSN”页,单击“Add...”按钮。?
③ 在“Create New Data Source”窗口中选择“SQL SERVER”后,单击“下一步”按钮, 在弹出的输入框中输入数据源名,如“pms”, 单击“下一步”按钮,在弹出的信息框中单 击“完成”按钮。?
④ 在弹出的SQL Server Login对话框中:在“Server”栏中输入SQL Server服务器名;在 “Login ID”栏和“Password”栏中输入登陆SQL Server时用的用户名和用户口令;然后单 击“Options》”按钮,在Options框中的Database栏中选择所想登陆的SQL Server数据库名 。然后单击“OK”按钮。?
Visual Basic 5.0 是Microsoft推出的一个功能强大的可视化编程工具。它凭借与ODBC良好 的接口和提供给用户极其完善的网络数据库访问控件,赢得国内外众多编程爱好者的青睐。 有了Visual Basic我们可以利用它的ODBC接口在几分钟内编制一个基于SQL Server的客户机 /服务器数据库应用软件。??
9. 以下采用编程常用的DAO和RDO两种方法,为大家介绍 一下怎样使用Visual Basic 5.0访问远程SQL Server数据库??
(1) 用DAO方法打开远程数据库?
① 在本地ODBC的FileDSN中设置与SQL SERVER连接的数据源。?
需要设:Data Source Name:数据源名,Server:SQL服务器名,Login ID:用户名,Password :用户口令,Database Name:数据库名。(这种设置不可在单机状态下设)?
② 添加data控件,以及一个DBGrid控件?
③ 在程序中添加如下代码:假定数据源名为pms;用户名为:test;用户口令为:355;SQL Server数据表为:工资情况。?
Dim ssql As String?
Data1.Connect=″ODBC;DSN=pms;uid=test;pwd=355″?
ssql=″select*from 工资情况″?
Data1.RecordSource=ssql?
Data.Refresh?
④ 运行程序即可。?
(2) 用RDO方法打开远程数据库?
① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。?
需要设:Data Source Name:数据源名,Descrption:描述,Server:SQL Server服务器名,D atabase Name:数据库名。(这种设置可在单机状态下设)?
② 在程序中添加:?
Option Explicit?
Private mrdoenv As rdoEnvironment?
Private mrdoconn As rdoConnection?
Private mrdors As rdoResultset?
Private Sub Command1Click()?
Dim ssql As String?
Set mrdoenv=rdoEnvironments(0)?
Set mrdoconn=mrdoenv.OpenConnection(″pms″,rdDriverNoPrompt,False,″ODBC;UID=te st;PWD=355″)?
ssql=″select*from 工资情况″?
Set mrdors=mrdoconn.OpenResultset(ssql,rdOpenKeyset,rdConcurRowVer,0)?
以后对mrdors对象进行操作即可。(如:可用Text控件与其相连,但不可用DBGrid。)。?
(3) 用DAO控件打开远程数据库?
① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。(下转第19页)
? 需要设:Data Source Name:数据源名,Description:描述,Server:SQL Server服务器名, Database Name:数据库名。(这种设置可在单机状态下设)?
② 添加DAO控件和DBGrid控件。?
DAO控件:在DataSourcename中添入相应的ODBC的DSN,如“pms”;?
DBGrid:在Datasource中选择相应的DAO控件名。?
③ 在程序中添加:?
Data1.Connect=″UID=test;PWD=355″?
ssql=″select*from 工资情况 where 姓名 like′*′″?
Data1.RecordSource=ssql?
Data1.Refresh?
④ 运行程序即可。?
(4) 用RDO控件打开远程数据库?
① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。?
需要设:Data Source Name:数据源名,Description:描述,Server:SQL Server服务器名, Database Name:数据库名。(这种设置可在单机状态下设)?
② 添加RDO控件和DBGrid控件:?
RDO控件:在DataSourcename中添入相应的ODBC的DSN;在SQL中添入SQL查询语句;在Passwo rd中添入访问此数据库的密码;在Username中添入访问此数据库的用户名。?
DBGrid:在Datasource中选择相应的RDO控件名。?
③ 运行程序即可。?
注意:如果需要使用模糊查询功能,那么RDO的方法和控件均不适用。?
请选择DAO控件使用。?
通过上述设置,我们可以用SQL Server和Visual Basic这两种功能强大的网络编程软件编制 出各种满足需要的Client/Server数据库应用系统。