FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Grabar En SQL Campos Decimales, Solo me graba enteros? Con Codigo | freddiaz07 | SQL | 13 | 21-09-2006 18:44:34 |
el codigo completo | ElDioni | SQL | 2 | 11-07-2005 17:39:41 |
Pasar el código o solo la orientación | Pablo Carlos | Debates | 5 | 03-10-2004 16:07:54 |
Informe Completo | Franklim | Impresión | 5 | 02-04-2004 13:45:29 |
Escoger en una tabla sólo los registros cuyo código es par | lolobs | SQL | 3 | 25-09-2003 19:55:16 |
|