A ligação via DAO não funciona, no exemplo em

o que é o Index e o MoveMin

 

Obrigado

cara na boa é o terceior topico que vc abre só com isso ? abre um topico e fica posta só nele

se não funciona, como faço?

 

Obrigado

vc se cadastrou ? entra com o login , se torna membro que eu resolvo isso pra vc

já me cadastrei e já entrei com o login

 

Dumas

'------------------------Em ADO

Function RecordBD(combo As ComboBox)
combo.Clear
Set TA = New ADODB.Recordset
TA.LockType = adLockOptimistic
TA.Open "Select  * from Tabela", Db, adOpenDynamic
Do Until TA.EOF
    combo.AddItem TA!field
    TA.MoveNext
Loop
End Function

'-----------------------EM DAO

Function RecordBD(Combo as Combobox)
combo.clear
set tb = db.openrecordset("Tabela")
tb.moveMin
do until tb.eof
 combo.additem tb!Field
        tb.movenext
loop
end function

'---------------Chamando função no form_load

recordbd(combo1) 'tanto em ado como em dao