Ver Mensaje Individual
  #1  
Antiguo 09-02-2007
Avatar de sapoku
sapoku sapoku is offline
Registrado
 
Registrado: feb 2007
Ubicación: Chile
Posts: 7
Reputación: 0
sapoku Va por buen camino
ejemplo completo de ado solo por codigo???

hola. es mi primer post y les informo que soy bastante newby en delphi.
estoy tratando de hacer un modulo u unit para manejar bases de datos, pero solo mediante codigo.

aqui estan las declaraciones de variables para la unidad.

unit b_d;
interface
uses
ADODB, SysUtils, DB, Messages, Windows;
VAR
// OBJETO PARA LA CONEXION A LA BD
CONEXION: TADOCONNECTION;
STRING_CONEXION: STRING;
// OBJETOS PARA CONECTAR A TABLAS
TABLA_CLIENTE:TADOTABLE;
// OBJETOS PARA FUENTES DE DATOS ---- DATA SOURCE
DS_CLIENTE: TDATASOURCE;

// DECLARACION DE FUNCIONES
FUNCTION INICIAR_CONEXION():BOOLEAN;
PROCEDURE TERMINAR_CONEXION();
FUNCTION INICIAR_CLIENTES():BOOLEAN;
PROCEDURE MSJ_PRUEBA();

luego genero una funcion para inicializar la conexion, la cual anda bien.

FUNCTION INICIAR_CONEXION():BOOLEAN;
VAR
PROVEEDOR, SERVER, DATABASE, UID,PWD :STRING;
BEGIN
PROVEEDOR:='DRIVER={MySQL ODBC 3.51 Driver};';
SERVER:='SERVER=localhost;';
DATABASE:='DATABASE=sistema_apolonia;';
UID:='UID=root;';
PWD:='PWD=marciano;';
String_CONEXION := PROVEEDOR + SERVER + DATABASE + UID + PWD+ ' OPTION=3' ;
try
CONEXION := TADOConnection.Create(nil);
CONEXION.ConnectionString := String_CONEXION;
CONEXION.Open();
MSJ_PRUEBA();
INICIAR_CONEXION := true;
except
INICIAR_CONEXION := false;
end;
end;

mi problema esta en cuando quiero conectar el elemento ttable, para el cual genere una funcion.

FUNCTION INICIAR_CLIENTES():BOOLEAN;
BEGIN
try
TABLA_CLIENTE.Connection := CONEXION;
TABLA_CLIENTE.TableName:= 'ficha_paciente';
TABLA_CLIENTE.Active:= TRUE;
DS_CLIENTE.DataSet := TABLA_CLIENTE;
DS_CLIENTE.Enabled:= TRUE;
MSJ_PRUEBA();
INICIAR_CLIENTES:= TRUE;
finally
INICIAR_CLIENTES:= FALSE;
end;
end;
PROCEDURE MSJ_PRUEBA();
BEGIN
MessageBox(0,
pchar( ''
+#13#10+' BASE INICIADA CORRECTAMENTE '),
pchar('MENSAJE DE PRUEBA'),
MB_OK+MB_ICONINFORMATION);
end;

me da un error cuando trato de entregar el objeto conexion.


cualquier ayuda sera muy agradecida...
Responder Con Cita