Delphi, insertando registro en la base de datos

Componentes de conexión
Ahora que ya tenemos la conexión ODBC realizada, conectaremos a Delphi con la base de datos por medio de los componentes de la paleta BDE de Delphi. 
 
bde
 
BDE (Borland Database Engine)
Esta paleta tiene los componentes de conexión como TDatabase que es donde se configura la base de datos a la cual vamos acceder, TTable y TQuery se utilizan para acceder a las tablas. En este tutorial vamos a tratar con componentes TQuery, por que son más flexibles que los TTable.
 
Configurando TDatabase
En el Object Inspector podemos observar las propiedades de los objetos. Para el objeto TDatabase damos clic en la propiedad AliasName y buscamos el Alias creado en el capitulo anterior el cual es Persona. Escribimos un nombre en la propiedad DatabaseName para este caso bdpersona el cual es el nombre en delphi de la base de datos. Por último en la propiedad connected le asignamos true y ya esta nuestra conexión Delphi - Access.
 
Insertando Registro en la BD
Para Insertar registro en la base de datos lo hacemos por medio del componente TQuery. en la propiedad name escribimos consulta y en la propiedad DatabaseName escribimos bdpersona. Ahora realizamos un formulario con los componentes de la paleta standar TEdit, TLabel, TButton el cual debe quedar de la siguiente
 
form
En la propiedad nombre de los TEdit colocamos el nombre de los campo de la base de dato, por ejemplo nombre, direccion, telefono para cada campo en el formulario. Despues que tengamos nuestro formulario como el de la imagen ilustrativa, damos doble clic en el boton Guardar e Insertamos el siguiente código.
 
Escribiendo código SQL en Delphi.
Ya sabemos que nuestro TQuery se llama consulta. entonces escribimos.
consulta.close;
consulta.sql.clear;
consulta.sql.add('INSERT INTO persona (id,nombre,direccion, telefono) VALUES ('+#39+ PChar (id.Text)+#39);
Consulta.SQL.Add (','+#39+ PChar (nombre.Text)+#39+ ',' +#39+ PChar (direccion.Text)+#39+ ','+#39+ PChar (telefono.text)+#39')');
Consulta.ExecSQL; showMessage('Datos Guardados'); consulta.close;
 
Para el boton Cancelar escribimos Close;
 
Siguiente >> Mostrar Datos en un DBGrid
 
Anterior >> Configuración ODBC
 
Regresar al Inicio

 

Noticias Relacionadas