COMO CARREGAR UMA COMBOBOX

USUARIO.EXCLUIDOS 08/04/2004 15:21:58
#19482 Resposta escolhida

Já experimentou utilizar um DBCombo ou um DataCombo? é bem mais simples, rápido e seguro. Utilizando o exemplo do Francisco Silva como base, ficaria:

Dim rs As ADODB.Recordset

Private Sub Form_Load()
Dim Conn As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenForwardOnly
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Estoque\DADOS\db1.mdb;Persist Security Info=False;"
rs.LockType = adLockReadOnly
rs.Source = "Select * From Usuários;"
rs.Open
Set DataCombo1.RowSource = rs
DataCombo1.ListField = rs.Fields(2).Name
DataCombo1.ReFill
rs.MoveFirst
End Sub

USUARIO.EXCLUIDOS 08/04/2004 21:31:41
#19558

Beleza. Vou supor o db: Dim db as DAO.Database, o Opendatabase, etc, esses já devem estar na inicialização do sistema, certo? Então, no Form vamos ter:

'Usando o DBCombo:
'---------------------------------
Option Explicit

Dim rs As DAO.Recordset

Private Sub Form_Load()
Set rs = db.OpenRecordet("Select * From Usuários;")
Set DBCombo1.RowSource = rs
DBCombo1.ListField = rs.Fields("Nome")
DBCombo1.ReFill
rs.MoveFirst
End Sub

Private Sub Form_Unload()
rs.Close
Set rs = Nothing
End Sub
'---------------------------------


'Usando o ComboBox:
'---------------------------------
Option Explicit

Private Sub Form_Load()
Dim rs As DAO.Recordset
Set rs = db.OpenRecordet("Select * From Usuários;")
Set DBCombo1.RowSource = rs
While Not rs.EOF = True
Combo1.AddItem rs.Fields("Nome")
rs.MoveNext
Wend
s.Close
Combo1.ListIndex = 0
Set rs = Nothing
End Sub
'---------------------------------

Valew?