lcDSNLess= "DRIVER = {SQL Server};" ; + "SERVER=SQL;" ; + "UID=sa" ; + "PWD=;" ; + "DATABASE=PUBS;" ; + "WSID=MyStation;" ; + "APP=MyApp" lnConnHandle=SQLSTRINGCONNECT(m.lcDSNLess) **Дальше что-то вроде if SQLEXEC(lnConnHandle, "SELECT * FROM testtable" , "MyCursor" ) = - 1 Return endif select MyCursor copy to VFPTable
(Это мои переменные) _NAMEDSN=ALLTRIM(thisform.txtDSNName.Value) - Название SysDSN _PSDSN=ALLTRIM(thisform.txtPaswUser.Value) - Пароль _USERDSN=ALLT(thisform.txtUserName.Value) - User _SYSDRVDSN=ALLTRIM(thisform.cboSysDsn.Value) - Название драйвера Оракла (ODBC) _SERVER=ALLTRIM(thisform.txtServer.Value) - название сервера declare integer SQLConfigDataSource in odbccp32.dll ; integer hwndParent,; integer fRequest,; string @ lpszDriver,; string @ lpszAttributes pnResCreate=SQLConfigDataSource( 0 , 4 ,_SYSDRVDSN,; "dsn=" +_NAMEDSN+chr( 0 )+ "server=" +_SERVER+chr( 0 )+ "uid=" +_USERDSN+chr( 0 )+; "BufferSize=65535 "+chr( 0 )+ "StdDayOfWeek=1 "+chr( 0 )+ "SynonymColumns=1 "+chr( 0 )+; "StripTrailingZero=0 "+chr( 0 )+ "GuessTheColDef=0 "+chr( 0 )+; repl(chr( 0 ), 2 )) IF pnResCreate= 1 WAIT WINDOW 'Ок ' TIMEOUT 1 ENDIF DECLARE INTEGER SQLWriteDSNToIni IN odbccp32.dll ; STRING cDSN, ; STRING cDriver pnSaveIni=SQLWriteDSNToIni(_NAMEDSN,_SYSDRVDSN) IF pnSaveIni= 1 WAIT WINDOW 'Ок' TIMEOUT 1 ENDIF
STORE SQLCONNECT(_NAMEDSN,_USERDSN,_PSDSN) TO gnConnHandle IF gnConnHandle <= 0 = MESSAGEBOX('Cannot make connection', 16 , 'SQL Connect Error') return ELSE ff= "SELECT * FROM deposits" =SQLPREPARE(gnConnHandle,ff,'Curs2') =SQLEXEC(gnConnHandle) SELE curs2 COPY TO prc_val1.dbf = SQLDISCONNECT(gnConnHandle) ENDIF
