2,749
社区成员
发帖
与我相关
我的任务
分享如何以编程方式修改vf数据库Databases中的Connections的连接句柄?
我知道可以用SQLSTRINGCONNECT('DRIVER=SQL Server;SERVER=servername;UID=sa;PWD=;DATABASE=mydata')建立一个连接句柄.
但是我在数据库mydata中全部使用Remote Views来修改SQL的数据, 并且所有的Remote Views都是通过一个(Connections)连接myconet来和SQL SERVER连接,整套程使用正常.
目前的问题是,客户SQL SERVER的名称及IP地址不确定,每次在运行程序前才能确定SQL SERVER的IP地址, 所以不能在VFP开发环境中确定死myconet连接, 需要在程序运行时先让用户先输入IP然后以编程方式修改myconet连接,接下来才进入程序.
请问: 如何以编程方式修改myconet连接句柄?
但是我在数据库mydata中全部使用Remote Views来修改SQL的数据, 并且所有的Remote Views都是通过一个(Connections)连接myconet来和SQL SERVER连接,整套程使用正常.
目前的问题是,客户SQL SERVER的名称及IP地址不确定,每次在运行程序前才能确定SQL SERVER的IP地址, 所以不能在VFP开发环境中确定死myconet连接, 需要在程序运行时先让用户先输入IP然后以编程方式修改myconet连接,接下来才进入程序.
请问: 如何以编程方式修改myconet连接句柄?
...全文
请发表友善的回复…
发表回复
cxmcxm 2003-07-17
- 打赏
- 举报
应为
dbsetprop('连接名','connection','connectstring',连接串)
dbsetprop('连接名','connection','connectstring',连接串)
cxmcxm 2003-07-17
- 打赏
- 举报
同意 whiteluobo(白萝卜)
打开数据库
set date to '打开的数据库'
dbsetprop('连接名','connectstring',连接串)
连接串与sqlstringconnect()中的连接串相同
打开数据库
set date to '打开的数据库'
dbsetprop('连接名','connectstring',连接串)
连接串与sqlstringconnect()中的连接串相同
whiteluobo 2003-07-17
- 打赏
- 举报
dbsetprop(...)
myperry 2003-07-17
- 打赏
- 举报
哇! 好冷清噢!
whiteluobo 2003-07-17
- 打赏
- 举报
看来得另外专门写一个动态创建odbc数据源的.dll了
whiteluobo 2003-07-17
- 打赏
- 举报
哈，好像有点出入了，我上面的程序是主要是针对odbc的不同的datasource
whiteluobo 2003-07-17
- 打赏
- 举报
sorry,才来
=DBSETPROP("yourConnectionName", "CONNECTION", "DataSource", yourDatasource)
=DBSETPROP("yourConnectionName", "CONNECTION","PASSWORD",yourPassword)
=DBSETPROP("yourConnectionName", "CONNECTION","USERID",yourId)
=DBSETPROP("yourConnectionName", "CONNECTION", "DispLogin", 3)
conOK=sqlconnect("yourConnectionName")
if (conOK>0)
message("Congratulations! OK")
endif
=DBSETPROP("yourConnectionName", "CONNECTION", "DataSource", yourDatasource)
=DBSETPROP("yourConnectionName", "CONNECTION","PASSWORD",yourPassword)
=DBSETPROP("yourConnectionName", "CONNECTION","USERID",yourId)
=DBSETPROP("yourConnectionName", "CONNECTION", "DispLogin", 3)
conOK=sqlconnect("yourConnectionName")
if (conOK>0)
message("Congratulations! OK")
endif
myperry 2003-07-17
- 打赏
- 举报
怎么没人知道?
myperry 2003-07-17
- 打赏
- 举报
to: whiteluobo(白萝卜)
能不能讲详细一点, 谢谢!
能不能讲详细一点, 谢谢!
