COMBOBOX, COMO EMPLEMENTAR?

NALDO 01/10/2010 15:42:37
#354259
Olá eu queria um codigo para uma combobox pesquisando codigo usando banco mysql... eu queria que o combo mostra-se os codigos cadastrados na tabela depesas de um banco mysql... eu pesquisei aqui e achei exemplos com Access e sem banco... se poderem me ajudar ;s
SNNIFFER 01/10/2010 15:52:09
#354263
Deixa ver se entendi, voce quer preencher o combobox com dados de uma tabela do Mysql?
Se for isso.

Set prs = New ADODB.Recordset
SQL = [Ô]Select * From servicos[Ô]
prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText

If prs.RecordCount = 0 Then
CmbTipo.Enabled = False
Else
CmbTipo.Clear
prs.MoveFirst
While (prs.EOF = False)
CmbTipo.AddItem prs.Fields([Ô]descricao[Ô])
prs.MoveNext
Wend
End If
ADRIANO 01/10/2010 15:56:32
#354265
Tu vai conectar o banco normalmente, aí vc vai fazer uma consulta tal qual como vc necessite, em seguida vc faz um loop para popular a sua combobox.

ex:
rs.movefirst
while not rs.eof
    combo1.additem rs([Ô]campo[Ô]).value
    rs.movenext
wend


Abraço,

Adriano Daniel Müller
NALDO 01/10/2010 17:29:28
#354274
Dim sSQL As String
Dim rs As New ADODB.Recordset
Dim i As Long

sSQL = [Ô][Ô]
sSQL = sSQL & [Ô] SELECT [Ô]
sSQL = sSQL & [Ô] codigo [Ô]
sSQL = sSQL & [Ô] FROM[Ô]
sSQL = sSQL & [Ô] dispesa [Ô]

If rs.State = 1 Then rs.Close

rs.Open sSQL, Conn, adOpenDynamic

Do While rs.EOF = False
i = i + 1
cbo.AddItem rs(0)


rs.MoveNext
Loop
Tópico encerrado , respostas não são mais permitidas
Voltar