oracle vfp,VFP如何连SQL Server及Oracle

1.连接SQL Server

Public gnConnhandle &&将该SQL连接句柄设为全局变量，其他过程中仍可继续调用

lnWindowHandle=0

lcODBCDriver='SQL Server' &&Driver类型

lcODBCServer ='10.1.50.3' &&SQL Server 服务器名

lcODBCDatabase='pdmdata' &&要连接的数据库名称

cna='admin' &&数据库用户名

cpa='12345' &&数据库密码

gnConnhandle=SQLSTRINGCONNECT('driver='+lcODBCDriver+';Server='+lcODBCServer+';u id=&cna;pwd=&cpa;database='+lcODBCDatabase)

SQLSETPROP(0,'DispLogin',3)

SQLSETPROP(0,"IdleTimeout",0)

IF gnConnhandle<=0 &&判断SQL连接是否成功

=MESSAGEBOX("连接数据库失败,请与系统管理员联系！",0+48,"提示")

RETURN

ELSE

WAIT WIND '成功连接数据库.....' TIMEOUT 4

ENDIF

2.链接Oracle

首先要你本机要安装有oracle客户端，找到安装目录Oracle\ora90\network\ADMIN下的tnsnames.ora，里面可配置链接的服务器，

例如增加一个名为mycon新连接，就在该文件下加入：

mycon=

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = 10.1.50.3)(PORT = 1521))

)

(CONNECT_DA TA =

(SID = DEV)

)

)

以上改成你要连的IP即可。

之后，在vfp实现连接，以下改成你的uid和pwd即可：

moracle_con=SQLSTRINGCONNECT("DRIVER={Microsoft ODBC for Oracle};server=mycon;UID=admin;Pwd=12345")