PLEASE DE ADO A DAO

EDGAR
07 de Octubre del 2004
HOLA COLEGA, AQUI PRESENTO EL SIGUIENTE CODIGO QUE ESTA REALIZADO EN ADO YA QUE NECESITO SABER COMO PUEDO HACER PARA UTILIARLO PERO EN DAO YA QUE NECESITO ADAPTARLO A MI SISTEMA. EL OBJETIVO DE ESTE CODIGO ES QUE ME LEA UNA TABLA DE MI BASE DE DATOS LA CUAL ESTE ECHA EN ACCESS Y ME LLENO LOS COMBO BOX CON LA INFORMACIÓN QUE SE ENCUENTRA EN LA TABLA.. EL CODIGO FUNCIONA PERFECTAMENTE EN ADO PERO CUANDO LO PASO A DAO ME DA DIFERENTES ERRORES COMO POR EJEMPLO QUE NO ESTA DECLARADO EL ARREGLO DINAMICO “ReDim Preserve Biblioteca(i)” DE IGUAL FORMA ME MUESTRA ERRORES QUE NO COINCIDEN LOS DATOS... Agradezco Mucho de tu ayuda porque a lo mejor me esta faltando algo a la hora de pasarlo a dao.... Gracias

Dim WithEvents Con As ADODB.Connection
Dim WithEvents rst As ADODB.Recordset
Dim codest As Integer
Dim rs

Private Sub Combo1_Click()
Dim rs
If Combo1.ListIndex <> -1 Then
codest = Biblioteca(Combo1.ListIndex)
Combo2.Clear
Combo3.Clear
Combo4.Clear

'Set rs = CreateObject("ADODB.Recordset")
'rs.Open "SELECT COD_ESTADO,DES_ESTADO FROM ESTMUNPARR where DES_ESTADO ='" & est & "' ", "DSN=dnsrep"
' If rs.EOF = False Then
'codest = rs.Fields(0)
' End If
Else
codest = 0
End If
End Sub

Private Sub Combo1_GotFocus()
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT DISTINCT COD_ESTADO,DES_ESTADO FROM ESTMUNPARRCENT ", "DSN=dnsrep"

Do Until rs.EOF
i = i + 1
ReDim Preserve Biblioteca(i)
ReDim Preserve Biblioteca1(i)
Biblioteca(i - 1) = rs.Fields(0)
Biblioteca1(i - 1) = rs.Fields(1)
Combo1.AddItem rs.Fields(1).Value
Combo1.Refresh
rs.MoveNext
Loop
End Sub

Silvina
07 de Octubre del 2004
hola edgar, yo use dao en algunos sistemas y te explico como lo hacia, por supuesto que a lo mejor existen otras formas, pero espero que esta te ayude.
deberías usar un dbcombo de los que se unen a data control (la union al data la haces por propiedades, no por codigo), y en el codigo del data especificar en recordsource el sql, luego le asignas el campo que corresponda al combo.