GRID ERRO
gente estava salvando os dados pelo meu grid e derepente me apaeceu este erro, isto ocorreu depois que crei mais dois campos alguem ja passou por isso
A mensagem de erro não te diz nada? Veja bem:
[Ô]Baixa não processada não é um valor válido para DateTime[Ô]...
[Ô]Baixa não processada não é um valor válido para DateTime[Ô]...
Provavelmente foi campo do tipo data, certo? e esse campo esta nulo?
estou usando assim
For Each s As DataGridViewRow In DGBAIXA.Rows
Try
Dim con As SqlConnection
[ô] Dim x As Boolean
[ô]conecta à base de dados
con = New SqlConnection()
con.ConnectionString = [Ô]server=10.50.66.146; uid=Admin; pwd=mesa123; database=CTR[Ô]
[ô]verifica a conecção.
Dim SQL As String = [Ô]UPDATE baixa SET Usuario= @Usuario, Data_Importacao= @Data_Importacao, Hora= @Hora, Data= @Data, Canal= @Canal, Numero_FQ_OS_WF= @Numero_FQ_OS_WF, Contrato_Mae= @Contrato_Mae, Tipo= @Tipo, Segmento= @Segmento, Motivo= @Motivo, Obs_Geral_Outros_Motivos= @Obs_Geral_Outros_Motivos, Solicitante_User= @Solicitante_User, Nome= @Nome, Cpf= @Cpf, Contrato= @Contrato, Orgao= @Orgao, MB= @MB, N_Parcela= @N_Parcela, Data_Vencimento= @Data_Vencimento, Data_Pagto= @Data_Pagto, Valor_Baixa= @Valor_Baixa, Ag_Conta_Dac= @Ag_Conta_Dac, Conta= @Conta, Dac= @Dac, Subnivel= @Subnivel, Contrato_Estornado= @Contrato_Estornado, Parcela_Estornada= @Parcela_Estornada, Data_Estorno= @Data_Estorno, Data_Pendencia_a_ser_Regularizada= @Data_Pendencia_a_ser_Regularizada, Nome_Do_Autorizador= @Nome_Do_Autorizador, Data_Do_Envio_Para_Baixa= @Data_Do_Envio_Para_Baixa, Responsavel= @Responsavel, Nivel= @Nivel, Emissao_FE= @Emissao_FE, obs= @obs WHERE CONTRATO_MAE= @CONTRATO_MAE[Ô]
Dim command As New SqlCommand(SQL, con)
command.Parameters.Add([Ô]@Usuario[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Usuario[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Importacao[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Importacao[Ô]).Value.ToString
command.Parameters.Add([Ô]@Hora[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Hora[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data[Ô]).Value.ToString
command.Parameters.Add([Ô]@Canal[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Canal[Ô]).Value.ToString
command.Parameters.Add([Ô]@Numero_FQ_OS_WF[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Numero_FQ_OS_WF[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato_Mae[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Contrato_Mae[Ô]).Value.ToString
command.Parameters.Add([Ô]@Tipo[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Tipo[Ô]).Value.ToString
command.Parameters.Add([Ô]@Segmento[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Segmento[Ô]).Value.ToString
command.Parameters.Add([Ô]@Motivo[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Motivo[Ô]).Value.ToString
command.Parameters.Add([Ô]@Obs_Geral_Outros_Motivos[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]OBSERVACAO_GERAL_OUTROS_MOTIVOS[Ô]).Value.ToString
command.Parameters.Add([Ô]@Solicitante_User[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Solicitante_User[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nome[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Nome[Ô]).Value.ToString
command.Parameters.Add([Ô]@Cpf[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Cpf[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Contrato[Ô]).Value.ToString
command.Parameters.Add([Ô]@Orgao[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Orgao[Ô]).Value.ToString
command.Parameters.Add([Ô]@MB[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]MB[Ô]).Value.ToString
command.Parameters.Add([Ô]@N_Parcela[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]N_Parcela[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Vencimento[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Vencimento[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Pagto[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Pagto[Ô]).Value.ToString
command.Parameters.Add([Ô]@Valor_Baixa[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]VALOR_DA_BAIXA[Ô]).Value.ToString
command.Parameters.Add([Ô]@Ag_Conta_Dac[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Ag_Conta_Dac[Ô]).Value.ToString
command.Parameters.Add([Ô]@Conta[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Conta[Ô]).Value.ToString
command.Parameters.Add([Ô]@Dac[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Dac[Ô]).Value.ToString
command.Parameters.Add([Ô]@Subnivel[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Subnivel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato_Estornado[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Contrato_Estornado[Ô]).Value.ToString
command.Parameters.Add([Ô]@Parcela_Estornada[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Parcela_Estornada[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Estorno[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Estorno[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value = s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nome_Do_Autorizador[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Nome_Do_Autorizador[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Do_Envio_Para_Baixa[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Do_Envio_Para_Baixa[Ô]).Value.ToString
command.Parameters.Add([Ô]@Responsavel[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Responsavel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nivel[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Nivel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Emissao_FE[Ô], SqlDbType.Date).Value = s.Cells([Ô]Emissao_FE[Ô]).Value.ToString
command.Parameters.Add([Ô]obs[Ô], SqlDbType.VarChar, 500).Value = s.Cells([Ô]obs[Ô]).Value.ToString
For Each s As DataGridViewRow In DGBAIXA.Rows
Try
Dim con As SqlConnection
[ô] Dim x As Boolean
[ô]conecta à base de dados
con = New SqlConnection()
con.ConnectionString = [Ô]server=10.50.66.146; uid=Admin; pwd=mesa123; database=CTR[Ô]
[ô]verifica a conecção.
Dim SQL As String = [Ô]UPDATE baixa SET Usuario= @Usuario, Data_Importacao= @Data_Importacao, Hora= @Hora, Data= @Data, Canal= @Canal, Numero_FQ_OS_WF= @Numero_FQ_OS_WF, Contrato_Mae= @Contrato_Mae, Tipo= @Tipo, Segmento= @Segmento, Motivo= @Motivo, Obs_Geral_Outros_Motivos= @Obs_Geral_Outros_Motivos, Solicitante_User= @Solicitante_User, Nome= @Nome, Cpf= @Cpf, Contrato= @Contrato, Orgao= @Orgao, MB= @MB, N_Parcela= @N_Parcela, Data_Vencimento= @Data_Vencimento, Data_Pagto= @Data_Pagto, Valor_Baixa= @Valor_Baixa, Ag_Conta_Dac= @Ag_Conta_Dac, Conta= @Conta, Dac= @Dac, Subnivel= @Subnivel, Contrato_Estornado= @Contrato_Estornado, Parcela_Estornada= @Parcela_Estornada, Data_Estorno= @Data_Estorno, Data_Pendencia_a_ser_Regularizada= @Data_Pendencia_a_ser_Regularizada, Nome_Do_Autorizador= @Nome_Do_Autorizador, Data_Do_Envio_Para_Baixa= @Data_Do_Envio_Para_Baixa, Responsavel= @Responsavel, Nivel= @Nivel, Emissao_FE= @Emissao_FE, obs= @obs WHERE CONTRATO_MAE= @CONTRATO_MAE[Ô]
Dim command As New SqlCommand(SQL, con)
command.Parameters.Add([Ô]@Usuario[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Usuario[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Importacao[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Importacao[Ô]).Value.ToString
command.Parameters.Add([Ô]@Hora[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Hora[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data[Ô]).Value.ToString
command.Parameters.Add([Ô]@Canal[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Canal[Ô]).Value.ToString
command.Parameters.Add([Ô]@Numero_FQ_OS_WF[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Numero_FQ_OS_WF[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato_Mae[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Contrato_Mae[Ô]).Value.ToString
command.Parameters.Add([Ô]@Tipo[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Tipo[Ô]).Value.ToString
command.Parameters.Add([Ô]@Segmento[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Segmento[Ô]).Value.ToString
command.Parameters.Add([Ô]@Motivo[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Motivo[Ô]).Value.ToString
command.Parameters.Add([Ô]@Obs_Geral_Outros_Motivos[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]OBSERVACAO_GERAL_OUTROS_MOTIVOS[Ô]).Value.ToString
command.Parameters.Add([Ô]@Solicitante_User[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Solicitante_User[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nome[Ô], SqlDbType.VarChar, 50).Value = s.Cells([Ô]Nome[Ô]).Value.ToString
command.Parameters.Add([Ô]@Cpf[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Cpf[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Contrato[Ô]).Value.ToString
command.Parameters.Add([Ô]@Orgao[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Orgao[Ô]).Value.ToString
command.Parameters.Add([Ô]@MB[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]MB[Ô]).Value.ToString
command.Parameters.Add([Ô]@N_Parcela[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]N_Parcela[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Vencimento[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Vencimento[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Pagto[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Pagto[Ô]).Value.ToString
command.Parameters.Add([Ô]@Valor_Baixa[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]VALOR_DA_BAIXA[Ô]).Value.ToString
command.Parameters.Add([Ô]@Ag_Conta_Dac[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Ag_Conta_Dac[Ô]).Value.ToString
command.Parameters.Add([Ô]@Conta[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Conta[Ô]).Value.ToString
command.Parameters.Add([Ô]@Dac[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Dac[Ô]).Value.ToString
command.Parameters.Add([Ô]@Subnivel[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Subnivel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Contrato_Estornado[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Contrato_Estornado[Ô]).Value.ToString
command.Parameters.Add([Ô]@Parcela_Estornada[Ô], SqlDbType.VarChar, 10).Value = s.Cells([Ô]Parcela_Estornada[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Estorno[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Estorno[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value = s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nome_Do_Autorizador[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Nome_Do_Autorizador[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Do_Envio_Para_Baixa[Ô], SqlDbType.Date).Value = s.Cells([Ô]Data_Do_Envio_Para_Baixa[Ô]).Value.ToString
command.Parameters.Add([Ô]@Responsavel[Ô], SqlDbType.VarChar, 30).Value = s.Cells([Ô]Responsavel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Nivel[Ô], SqlDbType.VarChar, 20).Value = s.Cells([Ô]Nivel[Ô]).Value.ToString
command.Parameters.Add([Ô]@Emissao_FE[Ô], SqlDbType.Date).Value = s.Cells([Ô]Emissao_FE[Ô]).Value.ToString
command.Parameters.Add([Ô]obs[Ô], SqlDbType.VarChar, 500).Value = s.Cells([Ô]obs[Ô]).Value.ToString
é igual o Kerplunk disse, em algum campo do tipo data você está passando um valor que não seja do tipo data, use o um breakpoint para depurar e ver onde esta o erro.
Já digo de cara, o erro é nesta linha:
command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value = s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value = s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
como assim ?
Citação::
Já digo de cara, o erro é nesta linha:
command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value = s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
Bom... Amigo, o KERPLUNK matou a charada... Leita atentamente que existe uma diferença ai.
essa parte refere-se a coluna do banco de dados command.Parameters.Add([Ô]@Data_Pendencia_a_ser_Regularizada[Ô], SqlDbType.Date).Value
e esta a coluna do data set s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
e esta a coluna do data set s.Cells([Ô]DATA_DA_PENDENCIA_A_SER_REGULARIZADA[Ô]).Value.ToString
Depure seu programa passo a passo até a linha que indiquei. Veja que valor está sendo passado para o campo [Ô]Data_Pendencia_a_ser_Regularizada[Ô]. Verá que o valor que está sendo passado não é uma data....
O engraçado que foi so eu inserir dois campos a mais que nao tem nada hever com data e me deu este erro
Tópico encerrado , respostas não são mais permitidas