[[egostar]]

Empezado por Caral

Hola
A ojo

Código Delphi [-]
QTemp.SQL.Text := 'Insert Into MiTabla1 (Id, nombre, apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
QTemp.ExecSQL;
QTemp.SQL.Text := 'Insert Into MiTabla2 (id_C, telefono_1, telefono_2) '+
                          'Values (' +Edit4.Text+', '+Edit5.Text+', '+Edit6.Text')'
QTemp.ExecSQL;

Saludos

Hey amigo, ya te sobraron Edit's

Código Delphi [-]
QTemp.SQL.Text := 'Insert Into MiTabla1 (Id, nombre, apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
QTemp.ExecSQL;
QTemp.SQL.Text := 'Insert Into MiTabla2 (id_C, telefono_1, telefono_2) '+
                          'Values (' +Edit1.Text+', '+Edit4.Text+', '+Edit5.Text')'
QTemp.ExecSQL;

Salud OS