carregar um comobox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: carregar um comobox

NJNEWS

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 01/12/2010 20:41 hs

cboNatureza.AddItem "" & RSS("Natureza")

funciona......., andre vou fazer os testes

NJNEWS
não registrado

Postada em 02/12/2010 16:35 hs

é ele apenas nao da o erro mas nao carrega nada..???

André
não registrado

Postada em 02/12/2010 18:59 hs

Como escrevi,se quiser como encher o combox;esta ai.

Sub CarregaRss(cbo As ComboBox)
   Dim rsCbo As ADODB.Recordset
   cbo.Clear
   Set rsCbo = db.Execute("SELECT ClienteID,Cadastro,Natureza From Rss ORDER BY ClienteID")
   Do While Not rsCbo.EOF
     'cbo.AddItem (rsCbo("ClienteID")
     'cbo.AddItem (rsCbo("Cadastro")
      cbo.AddItem (rsCbo("Natureza")
     'cbo.AddItem (rsCbo("ClienteID") & " | " & rsCbo("Cadastro"))
     'cbo.AddItem (rsCbo("ClienteID") & " / " & rsCbo("Cadastro") & " / " & rsCbo("Natureza"))
      rsCbo.MoveNext
   Loop
   rsCbo.Close
End Sub
Pode fazer o teste com todos,basta tirar a aspas simples.Só natureza não tem aspas.Este

e o primeiro teste.No load do form coloque CarregaRss combox1 deste jeito

NJNEWS

AMPARO
SP - BRASIL

Postada em 02/12/2010 20:29 hs

André Grato Pela sua Atenção, mais acho que eu não me expressei direito.

Ao clicar no cliente desejado ele carrega a tela com os devidos itens

Pois as combo, da o erro.

Private Sub ListP_dblClick()

Dim rsPaciente As New ADODB.Recordset
Dim SQL As String

ListP.Visible = False
    If RS.State = 1 Then RS.Close
    vOp = ""
    SQL = "SELECT TOP 20 * FROM Cad_Paciente"
    SQL = "Select * From Cad_Paciente Where NomeP ='" & txtNomeP.Text & "'"
    RS.Open SQL, CnSql, adOpenKeyset, adLockPessimistic
    If RS.RecordCount > 0 Then

txtCodigoID.Text = RS("CodigoID")
txtNomeP.Text = RS("NomeP") & ""

txtEndeP.Text = RS("EndeP") & ""

txtCidadeP.Text = RS("CidadeP") & ""

cboEstadoP.Text = RS("EstadoP") & ""

cboSexoP.Text = RS("SexoP") & ""

cboNatureza.Text = RS("Natureza") & ""

End If
RS.Close
End Sub

André
não registrado

ENUNCIADA !

Postada em 02/12/2010 21:30 hs

O erro pode esta acontecendo devido o "Style do Combox".O seu pode estar como

Style 2,tente o Style 0 ou 1.Mas esta forma como esta fazendo só preenche com

o primeiro registro da consulta na qual atende.Se sua consulta tiver 10 registros

só aparecerá "Um registro no Combox".

NJNEWS

AMPARO
SP - BRASIL

Postada em 02/12/2010 22:10 hs

Valeu Andre

Realmente estava como Style = 2, mudei pro Style 1, funcionou

agora não entendi porque, (.Se sua consulta tiver 10 registros

só aparecerá "Um registro no Combox".) ???

Grato

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR