Ir para conteúdo
Fórum Script Brasil
  • 0

Erro No Código... Sql + Vb6


Guest Juliano Ballarini

Pergunta

Guest Juliano Ballarini

Vou postar o Código, o erro e o design do banco, vê se voces conseguem me ajudar!

   
For i = 1 To cNumerarios.Count
      sTemp = cNumerarios.Item(i)
      sSql = "Select * from TITULOCR2 Where EMPCOD = " & igEmpresa & " And CLICOD = " & ClienteSel & " And TCRNUM = '" & sTitNum & "'"
      Set rdoRs1 = rdoCo.OpenResultset(sSql, rdOpenDynamic, rdConcurRowVer)
      Debug.Print sSql
      
      With rdoRs1
         .AddNew
         !EMPCOD = igEmpresa   
         !CLICOD = ClienteSel    
         !TCRNUM = sTitNum
         !TCR1DATA = Format(Date, "YYYY/MM/DD")
         !TCR2SEQ = i
         !NUMTIP = FirstPiece(sTemp, "~")
         If Val(!NUMTIP) <> NumDin Then
            !TCR2SIT = 1
         Else
            !TCR2SIT = 4
         End If
         !TCR2BAN = Val(FirstPiece(sTemp, "~"))       '!TCR2BAN = Val(FirstPiece(sTemp, "~"))
         !TCR2AGE = Val(FirstPiece(sTemp, "~"))       '!TCR2AGE = Val(FirstPiece(sTemp, "~"))
         !TCR2DOC = Val(FirstPiece(sTemp, "~"))       '!TCR2DOC = Val(FirstPiece(sTemp, "~"))
         !TCR2VAL = CCur(FirstPiece(sTemp, "~"))      '!TCR2VAL = CCur(FirstPiece(sTemp, "~"))
         !PORTCOD = iPortador
         If IsDate(Piece(sTemp, "~", 1)) Then
            !TCR2DATV = Format(FirstPiece(sTemp, "~"), "YYYY/MM/DD")
            Else
            !TCR2DATV = Format(Date, "YYYY/MM/DD")
         End If
         If Val(!NUMTIP) <> NumDin Then
            !TCR2DATC = Null
            Else
            !TCR2DATC = Format(Date, "YYYY/MM/DD")
         End If
         !TCR2DATD1 = Null                          '!TCR2DATD1 = Null
         !PORTCOD1 = Null                           '!PORTCOD1 = Null
         !TCR2DATDV1 = Null                         '!TCR2DATDV1 = Null
         !TCR2ALIN1 = Null                          '!TCR2ALIN1 = Null
         !TCR2DATD2 = Null                          '!TCR2DATD2 = Null
         !PORTCOD2 = Null                           '!PORTCOD2 = Null
         !TCR2DATDV2 = Null                         '!TCR2DATDV2 = Null
         !TCR2ALIN2 = Null                          '!TCR2ALIN2 = Null
         !TCR2ACR = Null                            '!TCR2ACR = Null
         !TCR2DES = Null                            '!TCR2DES = Null
         !TCR2RENG = Null                           '!TCR2RENG = Null
         !TCR2REND = Null                           '!TCR2REND = Null
         !TCR2OBS = Null                            '!TCR2OBS = Null
         !POTATU = iPortador
         !DATAT = Format(Date, "YYYY/MM/DD")
         !HORAT = Time
         !MAQAT = sgNomeEstacao
         !USUAT = igUsuario
         .Update
      End With ' ERRO AQUI
      
   Next i
Tabela do Banco de Dados ( MS SQL Server 2000 ) tbldesign.jpg Erro gerado: errocupom.jpg Código que gerou a mensagem de erro:
MsgBox Err.Number & " - " & Err.Description & vbNewLine & Err.Source & vbNewLine & vbNewLine & "Ocorreu um erro ao atualizar os arquivos.", vbCritical

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...