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
sin imagen de perfil
Val: 65
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

mostrar el resultado de una consulta SQL en varios Edit.

Publicado por E.T. (1241 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