Cargar un BDListBox

[[Caral]]

Hola

Empezado por LENOCB

pero no los veo.... jeje me esta volviendo loco esto

Ya somos dos
No entiendo nada.
Algun maestro, por favor, ayuadaaaa.
Saludos

[LENOCB]

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

[[Caral]]

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]]

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]

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]]

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

[LENOCB]

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]]

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]

sisi gracias !!!!