|
发信人: ljun(闲云) 整理人: hunter__fox(2002-07-30 04:40:39), 站内信件 |
| 【 在 handsfree 的大作中提到：】
:【 在 ljun 的大作中提到：】 ::【 在 handsfree 的大作中提到：】 :::同上 :::...... :: : :...... * 建立、删除一个 ODBC 设置 *---------------------------------------- #Define ODBC_REMOVE_DSN 3 Declare INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING lnWindowHandle=0 lcODBCDriver=''SQL Server'' lcODBCName=''SharedData'' lcODBCDesc=''Shared Data Source'' lcODBCServer=''MYSQL'' lcODBCDatabase=''Shared'' *----建立ODBC-----sql server---------------------- lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ; ''DSN='' + lcODBCName + CHR(0) ; + ''Description='' + lcODBCDesc + CHR(0) ; + ''Server='' + lcODBCServer + CHR(0) ; + ''Database='' + lcODBCDatabase + CHR(0)) *----删除ODBC-----sql server---------------------- lreturn=SQLConfigDataSource(lnWindowHandle, 3, lcODBCDriver, ; ''DSN='' + lcODBCName + CHR(0) ; + ''Description='' + lcODBCDesc + CHR(0) ; + ''Server='' + lcODBCServer + CHR(0) ; + ''Database='' + lcODBCDatabase + CHR(0)) *----VFP - VFP--------------------------- ln=SQLConfigDataSource(lnWindowHandle, 1,"Microsoft Visual FoxPro Driver","DSN=Mydsn" + CHR(0) + "Description=MyDesc" + CHR(0)+"SourceType=DBC"+CHR(0) + "SourceDB=E:\Doingdbf\cw\2001\凭证.DBC"+ CHR(0)) If ln>0 &&success lnSQLHandle = SQLConnect("mydsn","","") If lnSQLHandle > 0 lnReturn = SQLEXEC(lnSQLHandle,"Select * from 凭证A","Query1") = sqldisconnect(lnSQLHandle) Endif Endif Clear DLLS ---- Foxer资料信息传送站 站点宗旨：共同进步 站点精神：Foxer共建Fox站(网站) 站点征召：请大家把好的贴子或文章粘到网站上 主页地址：http://webpage.smiling.com.cn/foxer/index.html 报名地址:http://www.smiling.com.cn/search/groupinfo.ecgi?group_id=25505 本站域名转向: vfoxer.126.com foxer126.126.com vfp126.126.com  |
|
[关闭][返回] |