É o seguinte tenho que fazer uma alteração de um arquivo em ASP,
ja vou dizendo que não manjo nda de asp.
segue parte do script onde eu tenho que fazer isso:
linha = objFile.ReadLine str_cd_carga = trim(replace(Mid(linha, 1, 6),"'","''")) str_dt_carga = trim(replace(Mid(linha, 7, 10),"'","''")) str_nr_hora_entrada = trim(replace(Mid(linha, 17, 2),"'","''")) str_nr_minuto_entrada = trim(replace(Mid(linha, 19, 2),"'","''")) str_nr_hora_saida = trim(replace(Mid(linha, 21, 2),"'","''")) str_nr_minuto_saida = trim(replace(Mid(linha, 23, 2),"'","''")) str_cd_residuo = trim(replace(Mid(linha, 25, 6),"'","''")) str_cd_cliente = trim(replace(Mid(linha, 31, 6),"'","''")) str_cd_unidade_cliente = trim(replace(Mid(linha, 37, 6),"'","''")) str_dt_vigencia = trim(replace(Mid(linha, 43, 10),"'","''")) str_qt_residuo = trim(replace(Mid(linha, 53, 10),"'","''")) str_vl_residuo = trim(replace(Mid(linha, 63, 10),"'","''")) str_vl_fundacao = trim(replace(Mid(linha, 73, 10),"'","''")) str_tx_fundacao = trim(replace(Mid(linha, 83, 8),"'","''")) str_ds_placa_veiculo = trim(replace(Mid(linha, 91, 8),"'","''")) if isNumeric(str_cd_carga) then SQL = "Select * from cargas" SQL = SQL & " where CD_CARGA = " & CLng(str_cd_carga) SQL = SQL & " and CD_CLIENTE = " & CInt(str_cd_cliente) SQL = SQL & " and CD_UNIDADE_CLIENTE = " & CInt(str_cd_unidade_cliente) set registro = conexao.execute(SQL) if registro.EOF then SQL = "Insert into cargas" SQL = SQL & " (CD_CARGA, DT_CARGA, NR_HORA_ENTRADA, NR_MINUTO_ENTRADA, NR_HORA_SAIDA, NR_MINUTO_SAIDA, CD_RESIDUO, CD_CLIENTE, CD_UNIDADE_CLIENTE, DT_VIGENCIA, QT_RESIDUO, VL_RESIDUO, VL_FUNDACAO, TX_FUNDACAO, DS_PLACA_VEICULO)" SQL = SQL & " values ("& CLng(str_cd_carga) &",'"& CDate(str_dt_carga) &"',"& str_nr_hora_entrada &","& str_nr_minuto_entrada &","& str_nr_hora_saida &","& str_nr_minuto_saida &","& str_cd_residuo &","& CLng(str_cd_cliente) &","& CLng(str_cd_unidade_cliente) &",'"& CDate(str_dt_vigencia) &"',"& str_qt_residuo &","& str_vl_residuo &","& str_vl_fundacao &","& str_tx_fundacao &",'"& str_ds_placa_veiculo &"')" conexao.execute(SQL) nr_inseridos = nr_inseridos + 1 else SQL = "Update cargas set" SQL = SQL & " DT_CARGA = '"& CDate(str_dt_carga) &"'," SQL = SQL & " NR_HORA_ENTRADA = "& str_nr_hora_entrada &"," SQL = SQL & " NR_MINUTO_ENTRADA = "& str_nr_minuto_entrada &"," SQL = SQL & " NR_HORA_SAIDA = "& str_nr_hora_saida &"," SQL = SQL & " NR_MINUTO_SAIDA = "& str_nr_minuto_saida &"," SQL = SQL & " CD_RESIDUO = "& str_cd_residuo &"," SQL = SQL & " CD_CLIENTE = "& str_cd_cliente &"," SQL = SQL & " CD_UNIDADE_CLIENTE = "& str_cd_unidade_cliente &"," SQL = SQL & " DT_VIGENCIA = '"& CDate(str_dt_vigencia) &"'," SQL = SQL & " QT_RESIDUO = "& str_qt_residuo &"," SQL = SQL & " VL_RESIDUO = "& str_vl_residuo &"," SQL = SQL & " VL_FUNDACAO = "& str_vl_fundacao &"," SQL = SQL & " TX_FUNDACAO = "& str_tx_fundacao &"," SQL = SQL & " DS_PLACA_VEICULO = '"& str_ds_placa_veiculo &"'" SQL = SQL & " where CD_CARGA = " & CLng(str_cd_carga) SQL = SQL & " and CD_CLIENTE = " & CInt(str_cd_cliente) SQL = SQL & " and CD_UNIDADE_CLIENTE = " & CInt(str_cd_unidade_cliente) conexao.execute(SQL) nr_alterados = nr_alterados + 1 end if end iftipo eu tenho que comparar str_cd_carga e str_cd_unidade_cliente com CLng(str_cd_carga) e CInt(str_cd_unidade_cliente), só explicando melhor se:
str_cd_carga for = CLng(str_cd_carga) e str_cd_unidade_cliente for = 0 e CInt(str_cd_unidade_cliente) for tbem = 0.
ai eu tenho que excluir esse dados do banco.
Não sei se fui claro..
Qualquer ajuda é bem vinda.
flws...
Edição feita por: chipis, 23/11/2007, 10:54.