1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
lob_Report est un objet Automation dynamique
lob_Application est un objet Automation dynamique
lob_Application = allouer un objet Automation "CrystalRuntime.Application"
lob_Report = allouer un objet Automation "CrystalRuntime.Report"
lob_Report = lob_Application >>OpenReport (fch_NomEdition)
len_Nombre = lob_Report >>Database >>Tables >>Count
CAS "OLE"
lob_Report >>Database >>Tables (len_Nombre)>>DllName = "crdb_ado.dll"
POUR len_indice = 1 A len_Nombre
lch_TableLocation = lob_Report >>Database >>Tables (len_indice)>>Location
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>DeleteAll
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Data Source ","""" + fch_Serveur + """")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Provider ", """" + gfn_Ch_RecupProvider1(",,,,," + fch_Provider) + """")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Database ", """" + fch_NomBase + """")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("User Id ", """" + fch_User + """")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Password ", """" + fch_Password + """")
lob_Report >>Database >>Tables (len_indice)>>Location = lch_TableLocation
FIN
CAS "ODBC"
lob_Report >>Database >>Tables (len_Nombre)>>DllName = "crdb_odbc.dll"
POUR len_indice = 1 A len_Nombre
lch_TableLocation = lob_Report >>Database >>Tables (len_indice)>>Location
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>DeleteAll
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Data Source","" + fch_Serveur + "")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("DSN","" + fch_Provider + "")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Database", "" + fch_NomBase + "")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("UserId", "" + fch_User + "")
lob_Report >>Database >>Tables (len_indice)>>ConnectionProperties >>Add ("Password", "" + fch_Password + "")
lob_Report >>Database >>Tables (len_indice)>>Location = lch_TableLocation
FIN
ACX_Crystal >>ReportSource = lob_Report
ACX_Crystal >>ViewReport |
Partager