开发基于SQL SERVER 的C/S数据库应用系统?

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”；?