Ledian2006
06-01-2006, 21:33:42
Hola amigos de este foro:
De antemano felicitaciones en este año nuevo.
Estoy haciendo un proyecto en Delphi7 y me surge el siguiente obstaculo, Les explico.
1- Al iniciar el sistema pregunto el mes en que se va a procesar la información. (guardo el mes en la variable MES)
2- Busco si el fichero existe, concatenando (DB + MES)
3- Si no exista copio el fichero DBenero.mdb en otro directorio. (salvando la información)
(Suponiendo MES = 'febrero')
4- Limpio todas las tablas de DBenero
5- Renombro el fichero DBenero por DBfebrero
* He aqui mi obstaculo: Como podría modificar la Propiedad ConnectionString del ADOConnection1 para que sepa a que mdb Conectarse.
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\ DB' + mes + '.MDB;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;Jet OLEDBdatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
Me da los siguientes errores
1- String literals may have at most 255 elements
2- No me diferencia bien las cadenas debido a que hay muchas comillas
3- Entre otros
Bueno, no se si halla escogido un buen algoritmo pero no se me a ocurrido nada mejor. Me gustaría que me ayudaran.
Gracias de antemano.
Saludos
De antemano felicitaciones en este año nuevo.
Estoy haciendo un proyecto en Delphi7 y me surge el siguiente obstaculo, Les explico.
1- Al iniciar el sistema pregunto el mes en que se va a procesar la información. (guardo el mes en la variable MES)
2- Busco si el fichero existe, concatenando (DB + MES)
3- Si no exista copio el fichero DBenero.mdb en otro directorio. (salvando la información)
(Suponiendo MES = 'febrero')
4- Limpio todas las tablas de DBenero
5- Renombro el fichero DBenero por DBfebrero
* He aqui mi obstaculo: Como podría modificar la Propiedad ConnectionString del ADOConnection1 para que sepa a que mdb Conectarse.
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\ DB' + mes + '.MDB;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;Jet OLEDBdatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
Me da los siguientes errores
1- String literals may have at most 255 elements
2- No me diferencia bien las cadenas debido a que hay muchas comillas
3- Entre otros
Bueno, no se si halla escogido un buen algoritmo pero no se me a ocurrido nada mejor. Me gustaría que me ayudaran.
Gracias de antemano.
Saludos