Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/04/2007, 21:05
PACO_TORG
 
Fecha de Ingreso: marzo-2007
Mensajes: 53
Antigüedad: 18 años, 1 mes
Puntos: 0
hola porque no puedo enlzar mi combo1 con bd con codigo?

porque me marca un error al querer enlazar mi combo1 con la bd.. esto es lo que dice "no se puede enlazar con el campo o DataMember "tal producto"?
este es el codigo que uso..

Private Sub Form_Load()
Dim Ruta As String


Dim Comando As String
Comando = "select * from PRODUCTOS order BY PRODUCTO"
Ruta = App.Path & "\INVENTARIO.mdb"


Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
MiConexion.Open
Set MiRecordSet = New ADODB.Recordset

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Ruta & ";Persist Security Info = False;Jet OLEDB:Database Password=xxxx"
Adodc1.CommandType = 8
Adodc1.RecordSource = Comando
Adodc1.Refresh

combo1.DataField = Adodc1.Recordset.Fields("producto").Value

en propiedades del combo1 DataSource selecciono adodc1 ya que si no lo selecciono hace por enlazarse ..

se que algo estoy haciendo mal.. pero ¿que sera?