开发学院数据库 MSSQL Server 基于SQL Server的C/S数据库应用系统阅读

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

　2007-05-19 09:44:27　来源：WEB开发网　　　

核心提示： Visual Basic 5.0 是Microsoft推出的一个功能强大的可视化编程工具，它凭借与ODBC良好的接口和提供给用户极其完善的网络数据库访问控件,赢得国内外众多编程爱好者的青睐，基于SQL Server的C/S数据库应用系统(6)，有了Visual Basic我们可以利用它

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)