精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VFP>>〖多层应用〗>>Re:用VFP怎么访问SQL数据库?

主题:Re:用VFP怎么访问SQL数据库?
发信人: 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 


加入Foxer资料信息传送站    

[关闭][返回]