怎样用函数sqlconfigdatasource()编程建立远程用户数据源?
在《专家门诊——Visaul FoxPro开发答疑》一书中,有一个用函数sqlconfigdatasource()编程建立用户远程数据源的程序:#DEFINE ODBC_Add_DSN 1
#DEFINE ODBC_Config_DSN 2
#DEFINE ODBC_Remove_DSN 3
DECLARE Integer SQLConfigDataSource IN odbccp32 ;
Integer hwndParent,;
Integer fRequest,;
String lpszDriver,;
String lpszAttributes
hwndParent=NULL
lpszDriver="SQL Server"
lpszAttributes="Server=CCB-zhj"+CHR(0)+;
"Description=连接到SQL Server示例数据库Pubs"+CHR(0)+;
"DSN=MySQLServerPubs2"+CHR(0)+;
"Database=Pubs"
nReturn=SQLConfigDataSource(0,ODBC_config_DSN,lpszDriver,lpszAttributes)
If Rreturn=0 &&配置失败表示该数据源不存在,所以建立新数据源
nReturn=SQLConfigDataSource(0,ODBC_Add_DSN,lpszDriver,lpszAttributes)
If Rreturn=0
Messagebox('添加ODBC数据源失败,请与系统管理员联系!',16,'提示')
else
inHandle=SQLConnect("MySQLServerPubs2","sa","") &&链接到数据库
=SQLEXEC(inHandle 'seclet*from jobs') && 读取数据
browse
endif
endif
clear dlls
我编制了一个小型C/S模式应用程序,想模仿上面程序为用户建立远程数据源。我用Microsoft Visaul FoxPro Driver 做引擎,服务器是仅知道IP地址的一台主机。我的程序该怎样写,特别是上面程序中的lpszAttributes="Server=CCB-zhj"该怎样改写。请指教。