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")