2007-02-07

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

来源: 本站收集整理作者:佚名评论 0 条

③ 在程序中添加如下代码：假定数据源名为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

④ 运行程序即可。
共6页: 上一页 [1] [2] [3] [4] 5 [6] 下一页

(本文仅表明作者个人观点,不代表本站及其管理员立场.) 推荐收藏投稿打印返回关闭

上一篇：手工卸载SQL Server 2000数据库
下一篇：如何改进SQL Server安全系统

热门排行

推荐文章

相关文章