Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cargar un BDListBox (https://www.clubdelphi.com/foros/showthread.php?t=51956)

Caral 05-01-2008 17:45:18

Hola
Cita:

Empezado por LENOCB (Mensaje 256239)
pero no los veo.... jeje me esta volviendo loco esto

Ya somos dos:D:D
No entiendo nada.:):confused:
Algun maestro, por favor, ayuadaaaa.:D:D
Saludos

LENOCB 05-01-2008 17:50:40

no estoy editando bien la consulta debe ser eso; me tiene que mostrar 3 campos que son :Usuario / Password / Descripcion ....

Caral 05-01-2008 17:54:34

Hola
Codigo.
Pon el codigo completo del unit.
Otra cosa:
Cuando pongas codigo, Presiona el boton de Ir a Avanzado, esto te abrira otra pantalla, ahi veras arriba varios dibujos, entre ellos esta uno que dice resaltar sintaxis delphi, entre estas etiquetas pones el codigo.
Saludos

Caral 05-01-2008 18:00:06

Hola
Código Delphi [-]
begin
i:=0;
cant:=DBListBox1.Count;
While (i <> cant) do begin
If(DBListBox1.Selected[i]=True)then
cod:=i+1;
i:=i+1;
end;
FormSistema.ADOQuery1.SQL.Text:='Select * From TContraseñas Where Cod_G = :cod ) ';
FormSistema.ADOQuery1.Parameters.ParamByName('cod').Value := cod;
FormSistema.ADOQuery1.Active:=True;
end;
Saludos

LENOCB 05-01-2008 18:00:15

por fin ..... eran cosas sin editar del dbgrid !!!!!!! jeje siempre me pasa lo mismo, me olvido de un monton de cosas y me pongo loco !!!!!
Gracias Caral por la ayuda, pero no te libraras de mi rapididamente,ya voy a poner mas consultas, gracias .-
saludos

Caral 05-01-2008 18:03:16

Hola
Recuerda, si la consulta es otra, tienes que hacer un hilo nuevo.
Consulta por Hilo.
Saludos

LENOCB 05-01-2008 18:22:52

ahora es algo relacionado, una vez que tengo todo hecho, ahora quiero que en un label, me aparezca el nombre del grupo que seleccioné, me explico ? caral .-
saludos

Caral 05-01-2008 19:24:29

Hola
No se si sera esto:
Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
var
i : integer;
begin
i:= ListBox1.ItemIndex;
If(ListBox1.Selected[i]=True)then
label1.Caption:= ListBox1.Items[i];
end;
Cuando das click a un item del listbox el label obtiene el nombre de este item.
Saludos

LENOCB 05-01-2008 19:37:07

sisi gracias !!!!


La franja horaria es GMT +2. Ahora son las 00:54:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi