Visual Basic - Base d DAtos y ComboBOX

Life is soft - evento anual de software empresarial
 
Vista:

Base d DAtos y ComboBOX

Publicado por Huesca (20 intervenciones) el 27/04/2005 00:59:48
Me podrían ayudar en komo poner en un combobox(List) Toda la kolumna de una tabla de una base de datos. Ejem. Creo mi base de datos(Acces) kreo varis tablas, una ejem. Producto. Dentro de producto Contiene: (Campos) Nombre, Precio, Fecha_PEdido, ETC.... Bueno lo ke kiero eske en el ComboBOX aparesca todo el kontenido del campo NOMBRE. Espero aia kedado klaro, pLIs HELP XD
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:Base d DAtos y ComboBOX

Publicado por Christian (10 intervenciones) el 27/04/2005 01:09:55
Espero que este ejemplo te sirva

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim constring1 As String

constring1 = \\\"Provider=MSDASQL.1;\\\" & _
\\\"Persist Security Info=False;Data Source=bodega\\\"

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.Open \\\"select * from USUARIO \\\", constring1
If rs.BOF = True Then
Else
rs.MoveFirst
Do While Not rs.EOF

Combo1.AddItem rs(\\\"USER\\\")

rs.MoveNext
Loop
End If
rs.Close

End Sub
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:Base d DAtos y ComboBOX

Publicado por Huesca (20 intervenciones) el 27/04/2005 01:30:44
No le entendí ni madres a esto carnal. DOnde hago señalo la ruta de mi base de datos..?? No utilizo mi DAta ??? Ademas de ke toda la linea ke tiene \\ esas madres me las marca kon ROjo, ke hago...??? PLis Help Denuevo.
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:Base d DAtos y ComboBOX

Publicado por Chistian Chileno (10 intervenciones) el 27/04/2005 15:36:09
Crea

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim constring1 As String
'Dns Crea la conexion Odbc con el nombre y la ubicacion ej Bodega
constring1 = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;Data Source=bodega"

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
'Extrae los datos de la tabla
rs.Open "select * from USUARIO ", constring1
If rs.BOF = True Then
Else
rs.MoveFirst
Do While Not rs.EOF
'Coloca datos en el combo box
Combo1.AddItem rs("USER")

rs.MoveNext
Loop
End If
rs.Close

End Sub
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:Base d DAtos y ComboBOX

Publicado por Huesca (20 intervenciones) el 27/04/2005 23:09:23
Muchas gracias tocallo pero la verdad no me salió, me marcaba un error.

Error '3265' en tiempo de ejecución:

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

Ademas io no había usado el ADODC,(a mi me enseñaron con el DAta pero enlazado a un DATAGRID) pero lo buske enlace mi base de datos, puse el nombre, descripción... le cambie los nombres del data source y el de from pero me marca el error....

De todos modos Gracias por tu kooperación... XD
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