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 Buscar Temas de Hoy Marcar Foros Como Leídos

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.913
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


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 13:30:16.


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