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 07-10-2007
metroyd metroyd is offline
Miembro
 
Registrado: oct 2007
Posts: 78
Poder: 18
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



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 23:28:59
manejo de errores de base de datos usando dbexpress e interbase ramirezjas Conexión con bases de datos 1 07-07-2007 22:15:13
Manejo de Consultas con Componentes Zeos claudiorene Firebird e Interbase 10 21-06-2007 01:27:58
Consultas en otra base de datos maestri Firebird e Interbase 2 31-01-2007 17:05:45
manejo de la base de datos con sql altatrejo Conexión con bases de datos 0 22-08-2005 19:52:04


La franja horaria es GMT +2. Ahora son las 01:15:13.


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