pessoal, como é  que faço para meu datacombo tuchar de uma tabela os dados

 

                Set TB_Dependente = New ADODB.Recordset
                TB_Dependente.CursorLocation = adUseServer
                TB_Dependente.CursorType = adOpenStatic
                TB_Dependente.LockType = adLockOptimistic
                TB_Dependente.Open "SELECT * from DEPEND WHERE CLIE_Cod=" + Text14 + ";", Cnn
                DataCombo1.ListField = IIf(IsNull(TB_Dependente.Fields("NOME_dep")), "", TB_Dependente.Fields("NOME_dep"))

tentei assim mais nao deu certo...

 

pessoal, é urgente mesmo...

 

pessoal, sera que tem alguem que possa me ajudar...?

OI!

 

Coloque um componente ADODC no form.

 

Private Sub Form_Load()
 

 With Adodc1
    .Visible = False                     

    .ConnectionString = "Provider=SQLOLEDB.1;Password=" & senha & " ;Persist      Security Info=True;User ID=" & usuario & " ;Initial Catalog=" & NomeBAnco & ";Data Source='" & SERVIDOR & "'"     'esta é uma conexão com o SQL Server, com um   banco que tem usuario e senha'
  
     .RecordSource = "SELECT nome " & "FROM tabela " & "ORDER BY  nome "
    .EOFAction = adDoMoveMax
    .Mode = adModeReadWrite
    .Refresh
  End With
    Set DataCombo1.RowSource = Adodc1
     DataCombo1.ListField = "nome"
     DataCombo1.BoundColumn = "nome"
     DataCombo1.TabIndex = 0
End Sub

 

Se precisa visualizar mais de um campo da tabela, aconselho a usar o componente ListView

clau, eu estava usando um componete ADODC, mais o form, esta lento... estou é tentando tira todos os ADODC. será que tem outra forma de pucha ?

 

até para um datalis, servia..

Jongle.

 

Teu problema esta nesta linha:

 

DataCombo1.ListField = IIf(IsNull(TB_Dependente.Fields("NOME_dep")), "", TB_Dependente.Fields("NOME_dep"))

 

usa assim:

TB_Dependente.Open "SELECT * from DEPEND WHERE NOME_dep is not null and CLIE_Cod=" + Text14 + ";", Cnn

amigos valeu mesmo a ajuda......

 

 

obrigado....