USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Erro em ADO
Michaelsnts
SÃO BERNARDO DO CAMPO
SP - BRASIL
ENUNCIADA !
Postada em 30/07/2005 21:19 hs            
Estou programando em ADO e estou usando a rotina abaixo para conexao, porem qdo algum campo da tabela nao é preenchido (atraves de txt e combos em um formulario) da o seguinte erro: '-214 721 7887(80040e21)' - Erros
Abaixo segue o coigo que estou utilizando:
 
'No general
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
 
Private Sub Form_Load()
' abre a conexao com o BD
        With Conn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Meus documentosControle_de_Liberações_UP.mdb;Mode=Read|Write|Share Deny None;Persist Security Info=False"
        .ConnectionTimeout = 50
        .Open
        End With
        Rs.Open "Select * from tab_situação", Conn, adOpenKeyset, adLockOptimistic
        Rs.AddNew
        Trava_Tela
End Sub
Private Sub CmdOk_Click()
 'Aqui sera incluida a cod. para se gravar um novo registro
If txtNumero.Text = Empty Then
    MsgBox "Favor preencher o número da peça."
    txtNumero.SetFocus
ElseIf txtDenominação.Text = Empty Then
    MsgBox "Favor preencher o nome da peça."
    txtDenominação.SetFocus
ElseIf cbPrograma.Text = Empty Then
    MsgBox "Favor informar o programa."
    cbPrograma.SetFocus
Else
    Rs("Numero_peça_Situação") = txtNumero.Text
    Rs("Denominação_Situação") = txtDenominação.Text
    Rs("Programa_Situação") = cbPrograma.Text
    Rs("Cod_Programa_Situação") = cbCod_Programa.Text
    Rs("VDS_Situação") = txtVDS.Text
    Rs("Recebimento_Situação") = txtCronograma.Text
    Rs("Prev_B_Situação") = txtPrev_B.Text
    Rs("Real_B_Situação") = txtReal_B.Text
    Rs("Numero_Desenho_Situação") = txtNumero_Desenho.Text
    Rs("Data_Desenho_Situação") = txtData_Desenho.Text
    Rs("Inicio_Fabril_Situação") = txtInicio_Fabril.Text
    Rs("Tempo_Fabril_Situação") = txtTempo_Fabril.Text
    Rs("Prev_Entrega_Situação") = txtPrev_entrega.Text
    Rs("Fornecedor_Situação") = cbFornecedor.Text
    Rs("Contato_Situação") = cbContato.Text
    Rs("DDD_Tel_Situação") = txtDDD.Text
    Rs("Telefone_Situação") = txtTelefone.Text
    Rs("QA_Situação") = cbQualidade.Text
    Rs("SSE/PFCP_Situação") = txtSSE.Text
    Rs("SC_Situação") = txtSC.Text
    Rs("OBS_Situação") = txtObs.Text
    Rs.Update
    MsgBox "Registro incluido com sucesso!"
    CmdAdicionar.BackColor = vbWhite
    CmdOk.Enabled = False
    CmdOk.Visible = False
    CmdCancelar.Visible = False
    Call Destrava_Cmd
    Call Limpa_Campo
End If
End Sub
 
Alguem poderia me ajudar a resolver esta?
 
Valeu
Michaelsnts

Michaelsnts
TÓPICO EDITADO
 
DaviSaba
SANTA ROSA DE VITERBO
SP - BRASIL
ENUNCIADA !
Postada em 31/07/2005 11:39 hs            
faça assim que eu acho que resolveria seu problema:
 
Rs("Numero_peça_Situação") = iif(txtNumero.Text <> "", txtNumero.Text, "Null")
Rs("Denominação_Situação") = iif(txtDenominação.Text <> "", txtDenominação.Text, , "Null)
   
7Cordas
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 01/08/2005 10:17 hs            
Cara, utilize comandos SQL para inserções de dados. Deixar tudo a cargo do ADO é muito temerário. O SGBD é mais confiável do que os Componentes de Acesso a Daddos.
 

Cristiano Fischer
Projeto SIGA - Sistemas Integrados de Gestão
   
arm.g
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/08/2005 10:26 hs            
eu utilizo assim
 
If Not IsNull(rs!campo) Then
text1.Text = rs!Campo
End If
 
falow um abra'co
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página