![]() |
Manejo de consultas SQL y Bases 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!!!!!!!!!!!!! :confused: 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!! |
La franja horaria es GMT +2. Ahora son las 12:49:47. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi