至顶网›软件频道 ›基于SQL Server的C/S数据库应用系统(4)

基于SQL Server的C/S数据库应用系统(4)

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

SQL Server 6.5作为面向中小型企业的网络数据库服务系统,提供了与众多高级数据库管理器相同的运行性能,向传统的数据库厂商发起了强有力的挑战。

作者：吴俊峰来源：ahcit.com 2007年9月4日

关键字：数据库 SQL Server SQL Server 各版本 SQL Server 6.5

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控件名。

④ 运行程序即可。

(4) 用RDO控件打开远程数据库

① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。

需要设：Data Source Name:数据源名,Description:描述,Server:SQL Server服务器名, Database Name:数据库名。(这种设置可在单机状态下设)

② 添加RDO控件和DBGrid控件：