Agregar datos de una consulta a Combo

[spiderman78]

Que tal como estan, bueno les deseo un buen comienzo de año, y de nuevo aqui con una consulta, miren tengo una consulta de una tabla la cual tengo varios registros los cuales se identifican por medio de un numero q identifico como id1, asi q estoy realizando la siguiente consulta

Código:

Private Sub DatosPotencias()
    Dim potencias As ADODB.Recordset
    Dim sql As String, cadena As String, cadena1 As String
        cadena = id1.Text
    Call VisualizarPotencias
        sql = "SELECT * FROM tblpotencias WHERE id1 Like '" & cadena & "' ORDER BY id1"
    Set potencias = New ADODB.Recordset
        potencias.Open sql, BD, adOpenKeyset, adLockOptimistic
    If potencias.BOF = True Or potencias.EOF = True Then
    Exit Sub
    End If
End Sub

pero lo que trato de realizar es que si encuentr 3 registros o 10 registros, los q sean me los muestre en un combo........ de antemano muchas gracias por las respuestas

saludos

[culd]

Código:

Private Sub DatosPotencias()
    Dim potencias As ADODB.Recordset
    Dim sql As String, cadena As String, cadena1 As String
        cadena = id1.Text
    Call VisualizarPotencias
        sql = "SELECT * FROM tblpotencias WHERE id1 Like '" & cadena & "' ORDER BY id1"
    Set potencias = New ADODB.Recordset
        potencias.Open sql, BD, adOpenKeyset, adLockOptimistic
    If potencias.BOF = False Or potencias.EOF = False Then
         potencias.MoveFirst         
         Do While potencias.EOF = False
               combo1.additem potencias("ELCAMPO")
               potencias.MoveNext
         Loop
    End If
End Sub

Lo que hace es si hay registros (osea si no es el fin del archivo) recorre con un mientras todos los registros y va abregando al combo... ahi donde dice ELCAMPO ingresas el campo que queres que cargue...

[franko1809]

Que tal tio me parece que tambien se puede hacer en un combo simple no lo he probado pero yo cargo los datos de una tabla en un Datacombo de esta manera

Código:

Dim rsCliente As Recordset

Public Function LlenarCliente()
 Set rsCliente = New Recordset
 rsCliente.Open "SELECT * FROM cliente", dbConex, adOpenStatic, adLockOptimistic
'********************
 dtcCliente.BoundColumn = "CodClie"
 dtcCliente.ListField = "NomClie"
 Set dtcCliente.RowSource = rsCliente
'*******************
End Function

El combo simple no tiene esas propiedades
El componente del datacombo es Micrisoft DataList control 6.0

[spiderman78]

Iniciado por franko1809

Que tal tio me parece que tambien se puede hacer en un combo simple no lo he probado pero yo cargo los datos de una tabla en un Datacombo de esta manera

Código:

Dim rsCliente As Recordset

Public Function LlenarCliente()
 Set rsCliente = New Recordset
 rsCliente.Open "SELECT * FROM cliente", dbConex, adOpenStatic, adLockOptimistic
'********************
 dtcCliente.BoundColumn = "CodClie"
 dtcCliente.ListField = "NomClie"
 Set dtcCliente.RowSource = rsCliente
'*******************
End Function

El combo simple no tiene esas propiedades
El componente del datacombo es Micrisoft DataList control 6.0

Que tal gracias por la ayuda, ya configure el codigo de acuerdo a mis necesidades, solo que no me muestra ninguna informacion mi codigo quedo de la siguiente manera

Public Function LlenarCliente()
Set rsCliente = New Recordset
rsCliente.Open "SELECT * FROM tblpotencia", BD, adOpenStatic, adLockOptimistic
DataCombo1.BoundColumn = "potencia"
DataCombo1.ListField = "id1"
Set DataCombo1.RowSource = rsCliente
End Function

Saludos y gracias por la ayuda

[spiderman78]

Iniciado por culd

Código:

Private Sub DatosPotencias()
    Dim potencias As ADODB.Recordset
    Dim sql As String, cadena As String, cadena1 As String
        cadena = id1.Text
    Call VisualizarPotencias
        sql = "SELECT * FROM tblpotencias WHERE id1 Like '" & cadena & "' ORDER BY id1"
    Set potencias = New ADODB.Recordset
        potencias.Open sql, BD, adOpenKeyset, adLockOptimistic
    If potencias.BOF = False Or potencias.EOF = False Then
         potencias.MoveFirst         
         Do While potencias.EOF = False
               combo1.additem potencias("ELCAMPO")
               potencias.MoveNext
         Loop
    End If
End Sub

Lo que hace es si hay registros (osea si no es el fin del archivo) recorre con un mientras todos los registros y va abregando al combo... ahi donde dice ELCAMPO ingresas el campo que queres que cargue...

Que tal gracias por la ayuda ya probe el codigo, pero me marca un error el cual me dice q el operador obdc no admites las propiedades solicitadas, y me lo marca en esta linea

Private Sub DatosPotencias()
Dim potencias As ADODB.Recordset
Dim sql As String, cadena As String, cadena1 As String
cadena = id1.Text
Call VisualizarPotencias
sql = "SELECT * FROM tblpotencias WHERE id1 Like '" & cadena & "' ORDER BY id1"
Set potencias = New ADODB.Recordset
potencias.Open sql, BD, adOpenKeyset, adLockOptimistic--------------> error
If potencias.BOF = False Or potencias.EOF = False Then
potencias.MoveFirst
Do While potencias.EOF = False
Combo2.AddItem potencias("potencia")
potencias.MoveNext
Loop
End If
End Sub

Saludos

[Avellaneda]

Hola,
si el campo id1 es de tipo texto:

sql = "SELECT * FROM tblpotencias WHERE id1 = '" & cadena & "' ORDER BY id1"

si es numérico:

sql = "SELECT * FROM tblpotencias WHERE id1 = " & cadena & " ORDER BY id1"

El operador Like se suele utilizar para búsquedas por aproximación, para búsquedas exactas es mas efectivo el signo igual.

[franko1809]

Iniciado por spiderman78

Que tal gracias por la ayuda, ya configure el codigo de acuerdo a mis necesidades, solo que no me muestra ninguna informacion

Llamaste a la funcion al momento de cargar el form

Código:

Private Sub Form_Load()
 LlenarCliente
End Sub

[spiderman78]

Iniciado por franko1809

Llamaste a la funcion al momento de cargar el form

Código:

Private Sub Form_Load()
 LlenarCliente
End Sub

Claro si esta llamda la funcion no presisamente al abrir formulario pero si esta llamada....... gracias

saludos

[spiderman78]

Iniciado por Avellaneda

Hola,
si el campo id1 es de tipo texto:

sql = "SELECT * FROM tblpotencias WHERE id1 = '" & cadena & "' ORDER BY id1"

si es numérico:

sql = "SELECT * FROM tblpotencias WHERE id1 = " & cadena & " ORDER BY id1"

El operador Like se suele utilizar para búsquedas por aproximación, para búsquedas exactas es mas efectivo el signo igual.

Que tal gracias por la ayuda ya modifique la linea pero me sigue apareciendo el mismo error en la misma linea

saludos

[franko1809]

Que raro tio, primero prueba con esta consulta

sql = "SELECT * FROM tblpotencias"

Si te funciona quiere decir que el error esta en el WHERE id1 = '" & cadena & "' ORDER BY id1, es decir en la clausula where

Te sugiero revises tu base de datos y mires que tipo de dato tiene el campo id1, numerico, texto ú otro

Tambien puede probar asi directamente sin usar la variable cadena sino la caja de texto

Código:

sql = "SELECT * FROM tblpotencias WHERE id1 = '" & id1.Text & "' ORDER BY id1"

[spiderman78]

Iniciado por franko1809

Que raro tio, primero prueba con esta consulta

sql = "SELECT * FROM tblpotencias"

Si te funciona quiere decir que el error esta en el WHERE id1 = '" & cadena & "' ORDER BY id1, es decir en la clausula where

Te sugiero revises tu base de datos y mires que tipo de dato tiene el campo id1, numerico, texto ú otro

Tambien puede probar asi directamente sin usar la variable cadena sino la caja de texto

Código:

sql = "SELECT * FROM tblpotencias WHERE id1 = '" & id1.Text & "' ORDER BY id1"

Que tal, si mira ya estuve revisando y mi problema hasta cierto punto es con la base de datos ya que tengo varios id1 con el mismo numero si solo dejo 1 me funciona la consulta, pero el problema es q efectivamente necesito que sean varios con el mismo id1 y todos los q encuentre me los ponga en un combo...

saludos

[spiderman78]

Que tal solo para comentarles q ya me quedo el codigo es el siguiente por si a alguien le sirve

Option Explicit
Dim potencias1 As ADODB.Recordset

Private Sub DatosPotencias()
Dim sql As String, cadena As String
cadena = id.Text
Call VisualizarPotencias
sql = "SELECT * FROM tblpotencia WHERE id1 Like '" & cadena & "' ORDER BY potencia"
Set potencias1 = New ADODB.Recordset
potencias1.Open sql, BD, adOpenKeyset, adLockOptimistic
If potencias.BOF = False Or potencias.EOF = False Then
potencias.MoveFirst
Do While potencias.EOF = False
Combo2.AddItem potencias("potencia")
potencias.MoveNext
Loop
End If
End Sub

Muchas gracias a todos por la ayuda

Saludos