COMO PREENCHER?

SILVERDRAGON 20/04/2007 11:45:49
#212955
Vamu la entaum...

 
Dim msql As String

   'rx é o meu recordset
    Set rx = New ADODB.Recordset

   'Aqui você vai mudar o meu campo codigo pelo seu id e o nome pelo registro
    msql = "select codigo, nome from cad_cliente"

   'rx(recordset) abre a conexão e a string sql
    rx.open msql, cn

   'Aqui vai preencher enquanto tiver registro na tabela
    Do While Not rx.EOF
      Me.Combo1.AddItem rx!codigo & " - " & rx!nome 'mudar campo codigo pelo seu campo id e campo nome pelo seu campo registro
      rx.MoveNext
    Loop
End Sub

Verificar:
1ºOlhe o nome do seu recordset
2ºDeclare em um modulo seu recordset e connection
3ºVerifique o caminho do seu DataBase.


caso d algum problema me envia o programa com a tabela...

Dei uma olhada no codigo do piolho acho q tbm funciona

flw
USUARIO.EXCLUIDOS 20/04/2007 11:46:41
#212956
aproveitando esse tópico:

eu tenho esse campo dRecebeCNPJ_CPF = SQLPegaColLng(Rs(9))

como posso converter essa variável em double. tipo Dbl(dRecebeCNPJ_CPF)

só q o vb naum tem essa função Dbl.
SILVERDRAGON 20/04/2007 11:49:17
#212960
Declara a variavel como sendo double...
USUARIO.EXCLUIDOS 20/04/2007 11:49:49
#212961
é cdbl esqueci,. rsrs
SILVERDRAGON 20/04/2007 11:51:33
#212962
Usa a função CDbl

exemplo:

CDbl(expression)



flw
SILVERDRAGON 20/04/2007 11:53:45
#212963
Assim:


  
Dim aDec As Decimal
Dim aDbl As Double

aDec = 234.456784D

aDbl = CDbl(aDec * 8.2D * 0.01D)



flw
HUGOSSOUZA 20/04/2007 11:56:50
#212966
RAFA..CRM,
posta seu código
USUARIO.EXCLUIDOS 20/04/2007 13:16:20
#212990
fiz essa função:

sSQL = "SELECT"
sSQL = sSQL & " CD_SEQEMIT," '0
sSQL = sSQL & " NOMEEMIT" '1
sSQL = sSQL & " FROM"
sSQL = sSQL & " EMITCHEQ"
sSQL = sSQL & " WHERE"
sSQL = sSQL & " CD_PFJ = " & CStrSQL(m_CDPFJ)
sSQL = sSQL & " ORDER BY"
sSQL = sSQL & " CD_SEQEMIT"

If Not ExecBanco(ACT_OPENRS, sSQL, Rs) Then GoTo Fim

If NumeroRegistros(Rs) > 0 Then
While Not Rs.EOF

With cmbCHEQ_NOMEEMIT
.AddItem SQLPegaColLng(Rs("CD_SEQEMIT")) & " - " & SQLPegaColStr(Rs("NOMEEMIT"))
.ItemData(.NewIndex) = SQLPegaColLng(Rs("CD_SEQEMIT"))
End With

Rs.MoveNext
Wend

Rs.Close
End If

Set Rs = Nothing

só q está jogando zero na combo. está assim: 0-

tinha q ser 1- rafael
HUGOSSOUZA 20/04/2007 13:25:58
#212992
ele coloca "0-" ou "0-rafael"?
vc quer o um contador na combo ou o valor real que esta no banco de dados?

ve se isso te ajuda:
dim cont as integer
cont = 1
While Not Rs.EOF
    With cmbCHEQ_NOMEEMIT
         '.AddItem SQLPegaColLng(Rs("CD_SEQEMIT")) & " - " & SQLPegaColStr(Rs("NOMEEMIT"))
          .AddItem cont & " - " & SQLPegaColStr(Rs("NOMEEMIT"))
         .ItemData(.NewIndex) = SQLPegaColLng(Rs("CD_SEQEMIT"))
    End With
cont = cont + 1
Rs.MoveNext
Wend
USUARIO.EXCLUIDOS 20/04/2007 13:39:12
#212995
esse 1 - rafael é registro q vvem do banco

id- nome
Página 2 de 4 [36 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar