Delphi - mostrar el resultado de una consulta SQL en varios Edit.

 
Vista:

mostrar el resultado de una consulta SQL en varios Edit.

Publicado por Elianny (17 intervenciones) el 06/03/2018 19:22:48
Buenas a todos/as

Estoy incursionando en la programación Delphi

Uso Delphi 7 y Access 2007

Quiero por favor me ayuden a mostrar el resultado de una consulta SQL en varios Edit.

En Vivual Basic.net 2010 yo lo ago. así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim miclase2 As New conexion2
Dim DsPersonas2 As New DataSet
 
 
DsPersonas2 = miclase2.TraeDataset("SELECT nom_cli,apell_cli,tel_cli,dir_cli,cuiud_cli FROM tbla_clientes WHERE codigo_cliente=" & txtCodigoClienteEnviado.Text & "")
 
If DsPersonas2.Tables(0).Rows.Count > 0 Then
	txtEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(0).ToString
 
 
 
	txtTelefonoEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(1).ToString
	txtDireccionEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(2).ToString
 
	'
	txtCiudadEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(3).ToString

End If



pero me urge saber como se hace este mismo procedimiento en Delphi 7

Saludos a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

mostrar el resultado de una consulta SQL en varios Edit.

Publicado por E.T. (1203 intervenciones) el 06/03/2018 23:57:30
Es técnicamente lo mismo, sólo cambia la sintaxis de un leguaje al otro:

1
2
3
4
5
6
7
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT nom_cli,apell_cli,tel_cli,dir_cli,cuiud_cli FROM tbla_clientes WHERE codigo_cliente=' + edit1.Text);
Query1.Open;
If not Query1.Eof then begin
  Edit2.Text := Query1.FieldByName('nom_cli').AsString;
end;

Esto asumiendo que ya agregaste tu query a tu form, y el query ya fue configurado a hacer la conexión a tu base de datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar