| |
| |
SQL Server- #17928 in section [742825] |
| Sec: |
(51) MS-Visual FoxPro 9.0 |
| Von: |
Harro Schippan |
| An: |
Hartmut Eckert |
| Am/Um: |
13.10.2020 15:52:17 |
Hallo Hartmut,
ein bischen anpassen und schon geht's.
Bei Fragen einfach nochmal melden.
Viel Spaß
Gruß Harro
*********************************************************************************************
CLOSE DATABASES all
CLEAR ALL
CLEAR
SET DATE TO GERMAN
PUBLIC ppfad, gcSQLServer, gcDatenbestand, gcSQLDriver, gcSQLPw, gcSQLUser, cnnstr, gnConnHandle, wPfad, fp, daten, gcZielPfad, gcSprache
*********************************************************************************************
gcSQLServer = "DTS-020\SQLEXPRESS"
gcDatenbestand = "JansenDB"
gcSQLDriver = "SQL Server"
gcSQLPw = "geheim"
gcSQLUser = "DerUser"
*********************************************************************************************
cnnstr = 'driver={' + gcSQLDriver + '};Trusted_Connection=No;server=' + gcSQLServer + ';uid=' + gcSQLUser + ';pwd=' + gcSQLPw + ';database=' + gcDatenbestand + ''
gnConnHandle = SQLStringCONNECT(cnnstr)
retcd = SQLSETPROP(gnConnHandle, 'asynchronous', .f.)
*********************************************************************************************
* alle Tabellen holen
IF 1 = 1
retcd = SQLTABLES(gnConnHandle,"'TABLE'","Tabliste")
SELECT tabliste
index on table_name tag Table_name
SET ORDER TO table_name
BROWSE LAST NOWAIT
ENDIF
********************************************************************************************
strSQL = SPACE(0)
strSQL = strSQL + " SELECT prospect_i,lngid,company from d_pro order by prospect_i"
retcd = SQLEXEC(gnConnHandle,strSQL,"pro")
FehlerSQL("Lese Kontakte",strSQL)
IF retcd = -1
? "oh weh"
sqldisconnect(0)
RETURN
ENDIF
SELECT pro
wprospect_i = SPACE(0)
SCAN
IF wProspect_i = prospect_i
? "oh weh", prospect_i
ENDIF
wProspect_i = prospect_i
ENDSCAN
********************************************************************************************
retcd = SQLDISCONNECT(0)
? "Disconnect", retcd at 45
? "Ende:", datetime()
********************************************************************************************
FUNCTION FehlerSQL(wText,wSQLBefehl)
IF retcd = -1
? wText
? wSQLBefehl
lnError = AERROR(laError)
? lnerror
FOR i = 1 TO lnError
? i, laError(i,1)
? i, laError(i,2)
? i, laError(i,3)
? i, laError(i,4)
? i, laError(i,5)
ENDFOR
* jetzt die Fehlermeldungen auswerten
sqldisconnect(0)
CANCEL
ENDIF
ENDFUNC
********************************************************************************************
|
|
|
|
