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 07-10-2007
metroyd metroyd is offline
Miembro
 
Registrado: Oct 2007
Posts: 78
Poder: 12
metroyd Va por buen camino
Manejo de consultas SQL y Base de datos

No se si esto vaya aqui, pero bueno, espero me ayuden.
Estoy haciendo un sistemita en Delphi 6 usando bases de datos en MySQL. Tengo 2 tablas en la BD: USUARIOS y CORREO. En USUARIOS tengo los sig. campos: nombre, contraseña y direccion; mientras qeu en correos tengo: indice, de, para, asunto, mensaje.
Bien, tengo un Servidor y un Cliente; donde el Servidor manda correos al cliente, tambien crea nuevos clientes via TCP y via SMTP. El cliente solo accede a su cuenta y consulta su bandeja de entrada (lee, elimina, mensajes, etc). Lo que hasta ahorita tengo es enviar correos a los usuarios (guardar datos en la tabla CORREO desde el Servidor) usando lo siguiente:

procedure TForm2.Button1Click(Sender: TObject); // Boton Enviar Correo

var
consulta: String;
begin
consulta:='insert into correo'+'(indice, de, para, asunto, mensaje)'+'values('+chr(39)+Edit1.Text+chr(39)+','+chr(39)+Edit2.Text+chr(39)+','+chr(39)+Edit3.Text +chr(39)+','+chr(39)+Edit4.Text+chr(39)+','+chr(39)+Memo1.Text+chr(39)+')';
DataModule3.ADOQuery1.Close;
DataModule3.ADOQuery1.SQL.Clear;
DataModule3.ADOQuery1.SQL.Add(consulta);
DataModule3.ADOQuery1.ExecSQL;
end;

Bueno, tambien puedo agregar usuarios a la tabla USUARIOS mediante la siguiente instruccion:

procedure TForm1.Button1Click(Sender: TObject);
var
consulta: String;
begin
consulta:='insert into usuarios'+'(nombre, contraseña, direccion)'+'values('+chr(39)+Edit1.Text+chr(39)+','+chr(39)+Edit2.Text+chr(39)+','+chr(39)+Edit3.Te xt+chr(39)+')';
// DataModule1.ADOQuery1.SQL.Add('select * from usuarios');
//DataModule1.ADOQuery1.Open;
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add(consulta);
DataModule1.ADOQuery1.ExecSQL;

end;

Bueno, aqui vienen mis dudas: Que instrucciones debo usar en el CLIENTE para que pueda acceder a su bandeja de entrada????? Es decir, se abre la ventana del cliente, introduce su NOMBRE y su CONTRASEÑA, y si existen en la BD entra a checar los mensajes que estan con su direccion. Pues no se como hacer esto!!!!!!!!!!!!! Es obvio que se hace una busqueda, con los datos que estan en los EDIT1 y 2, pero no se muy bien que instrucciones usar.
Tambien quisiera saber que instrucciones me permiten borrar registros de la BD, esto para dar de baja cuentas y mensajes.
Bueno, sin mas por el momento, permitanme enviarles un cordial saludo esperando su ayuda!!
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Manejo de consultas SQL y Bases de datos metroyd SQL 0 07-10-2007 22:28:59
manejo de errores de base de datos usando dbexpress e interbase ramirezjas Conexión con bases de datos 1 07-07-2007 21:15:13
Manejo de Consultas con Componentes Zeos claudiorene Firebird e Interbase 10 21-06-2007 00:27:58
Consultas en otra base de datos maestri Firebird e Interbase 2 31-01-2007 16:05:45
manejo de la base de datos con sql altatrejo Conexión con bases de datos 0 22-08-2005 18:52:04


La franja horaria es GMT +2. Ahora son las 04:30:19.


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