基于的数据库应用系覆盖

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nnect=″ODBC;DSN=pms;uid=test;pwd=355″ssql=″select*from 工资情况″cordSource=ssqlfresh

④ 运行程序即可。 (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=enConnection(″pms″,rdDriverNoPrompt,False,″ODBC;UID=te st;PWD=355″)ssql=″select*from 工资情况″Set mrdors=enResultsetssql,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控件名。

其超萌的猫形象一经公布就让广大用户有了不一样的感受。而在3月15日消费者权益日 ④ 运行程序即可。 (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数据库应用系统。