Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-01-2006
Ledian2006 Ledian2006 is offline
Registrado
 
Registrado: ene 2006
Ubicación: Ciudad habana, Cuba
Posts: 4
Poder: 0
Ledian2006 Va por buen camino
Thumbs down ADO y su Propidad ConnectionString !!!

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.

Código Delphi [-]
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
Responder Con Cita
  #2  
Antiguo 06-01-2006
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.911
Poder: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Usa la funcion format asi:

Cadena := 'Ejemplo=%s';

Resultado := Format(Cadena,['Ejemplo']);

La funcion format facilita enormemente este tipo de cosas...
__________________
El malabarista.
Responder Con Cita
  #3  
Antiguo 07-01-2006
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 19
luisgutierrezb Va por buen camino
Nada mas complementando lo que se menciona, hay muchos parametros de la conexion que puedes quitar y seguira funcionando bien, haz pruebas y cuando logres reducirla entonces ya cambias lo de la base de datos, otra, por los 255 caracteres, mejor usa AnsiString que permite mas...
Responder Con Cita
  #4  
Antiguo 10-01-2006
Ledian2006 Ledian2006 is offline
Registrado
 
Registrado: ene 2006
Ubicación: Ciudad habana, Cuba
Posts: 4
Poder: 0
Ledian2006 Va por buen camino
Thumbs up Todo Resuelto

Gracias a ustedes he resuelto el problema.
muchas gracias.
Saludos Ledian
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:41:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi