Bom dia,
estou tentando popular uma cambo com dados do banco.
e preciso passar o código do item carregado. São estados, entao quando a pessoa selecionar o estado eu vou armazenar o código.
O problema é que não estou conseguindo popular a cambo com o estado e o seu respectivo código.
Código:
Sub ConsultaUF()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim strDB As String
Dim strSQL As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strDB = ThisWorkbook.Path & "sindprodrural.accdb"
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strDB & ";"
cn.Open
strSQL = "SELECT * FROM estados"
Set rs = cn.Execute(strSQL)
If rs.RecordCount < 0 Then
Do While Not rs.EOF
frmCadProd.cbUFend.AddItem rs.Fields("sigla"), rs.Fields("Código") NESTA PARTE QUE ESTÁ O PROBLEMA, QUERO QUE SEJA EXIBIDO A SIGLA DO ESTADO E SEJA ARMAZENADO O CÓDGIO DELE.
rs.MoveNext
Loop
End If
rs.Close
cn.Close
'
End Sub
SOCORRO. VALEU!!
Postado : 22/10/2015 10:16 am