Visual Basic - como cargo en un combo registros de uba base de da

Life is soft - evento anual de software empresarial
 
Vista:

como cargo en un combo registros de uba base de da

Publicado por mortade-lo (29 intervenciones) el 05/06/2001 13:21:35
quiero que un combo cargue los registros de una base de datos por
ejemplo los IDClientes de la tabla clientes, pongo la propiedad del combo ---- datafield = IDclientes pero solo muestra el primero en este caso el ; 1 gracias por la ayuda y a todos que dan soluciones a problemas .
un saludo.

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

RE:como cargo en un combo registros de uba base de

Publicado por isidroalmaguer (356 intervenciones) el 05/06/2001 16:15:35
hola...
te envio este codigo...

Sub pubLlenaLista(pLista As Control, pSP As String, Optional pIncluyeClave As Boolean, Optional pNoInicializar As Boolean)
' llena un listbox o un combobox
' en base a una consulta
' Ing. Isidro Almaguer De la Rosa 25/Abr/2000
' Modelo ADO 2.5
Dim bAgregarOK As Boolean

On Error GoTo fin

If IsMissing(pIncluyeClave) Then
pIncluyeClave = False
End If

If IsMissing(pNoInicializar) Then
pNoInicializar = False
End If

If Not pNoInicializar Then
' limpiar lista
pLista.Clear
End If

cnn.Errors.Clear
cnn.Errors.Refresh

Set rst = cnn.Execute(pSP)
'Set rst = db.OpenRecordset(pSP)
If cnn.Errors.Count = 0 Then
While Not rst.EOF 'And Err = 0 And cnn.Errors.Count = 0
If pNoInicializar Then
' se pidió no inicializar la lista, verificar que no exista elemento
bAgregarOK = Not pubExisteElemento(pLista, rst.Fields(0))
Else
bAgregarOK = True
End If
If bAgregarOK Then
If pIncluyeClave Then
pLista.AddItem Format(Left(Trim(rst.Fields(1)) & Space(5), 37), "!" & String(37, "@")) & " " & rst.Fields(0)
Else
pLista.AddItem rst.Fields(1)
End If
pLista.ItemData(pLista.NewIndex) = rst.Fields(0)
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

RE:como cargo en un combo registros de uba base de

Publicado por BENJO (167 intervenciones) el 05/06/2001 23:47:25
Si manejás un ComboBox DAO , la carga tiene que ser por código, tan sencillamente como el código que sigue:

Suponiendo que uses un DataControl "Data1"

Private Sub Load_Form( ) ' cuando se carga el form
Data1.Recordset.MoveFirst 'situo el Recordset al principio

Do While Not Data1.Recordset.EOF ' recorro toda la Base

ComboBox1.Add Data1.Recordset ! Id 'cargo datos
Data1.Recordset.MoveNext ' Adelanto el registro al siguiente

loop
Data1.Refresh 'Refreco el DataControl
ComboBox.Text =Data1.Recordset ! Id 'Asigno el primer registro al
' ComboBox


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