André
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 02/12/2010 22:49 hs
Tente este. Do While Not rs.EOF
txtCodigoID.Text = rs("CodigoID")
txtNomeP.Text = rs("NomeP") & ""
txtEndeP.Text = rs("EndeP") & ""
txtCidadeP.Text = rs("CidadeP") & ""
cboEstadoP.AddItem rs("EstadoP") & ""
cboSexoP.AddItem rs("SexoP") & ""
cboNatureza.AddItem rs("Natureza") & ""
rs.MoveNext
Loop
rs.Close |
|
|
|
|
|
NJNEWS
|
AMPARO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/12/2010 10:37 hs
Andre deu certo eu tinha que mudar o style = 0 estou fazendo os testes grato |
|
|
|
|
|
Postada em 03/12/2010 12:41 hs
style=0 permite digitar no combo em execução style=2 solo leitura. se vc referencia assim combo1.text=rs("Natureza") ' se o valor do recordset existe no combobox ele nao tem que dar erro. mais no seu caso como esse valor natureza existe no banco mais nao na combobox pq deixo style=2 entao sempre vai dar erro. particularmente uso o style=2. pq assim evita que o usuario digite qualquer coisa e se nao tem validacao grava no banco inconsitencia, e é o que deve ter acontecido no seu caso. blz
|
|
|
|
NJNEWS
|
AMPARO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/12/2010 11:10 hs
Realmente Juan Carlos ele salva quaquer coisa no Banco,, |
|
|
|
|
|
Postada em 04/12/2010 11:55 hs
Isso cara. mais vc pode ate deixar no style=0 mais antes de gravar vc teve ter uma função validar_campos que veirifica se o valor digitado no combo é valido. por exemplo: vc tem no combo o sexo (M, F), na funcao fazer que se informa outro valor que nao seja (M ou F) entao envia mensagem e não grava. Ou se vc tiver uma constraint no banco que so aceita valores M e F ai tbm vai funcionar para esse campo. No banco access, sql server, oracle, etc vc define os valores que deve aceitar se nao quiser validar no vb.
|
|
|
|
