Jump to content
Fórum Script Brasil
  • 0

Depurando sql's


bareta

Question

bom criei uma função para identificar um campo que esta gerando erro em insert.

bom como pré requisitos uma conexão em uma sub...

o código é esse:

CALL AbreConexao 'abre a conexão com o banco

on error resume next 'evita a parada do código com possiveis erros

campos="nome,endereco,data,numero_dia" 'campos do banco que receberão dados

valores="'"&nome&"', '"&endereco&"',#"& data &"#,"&numero 'valores para os campos acima citados, na mesma ordem separados por virgula e na mesma formatação que entrariam no insert

camp=split(campos,",")

val=split(valores,",")

tabela="xxx" 'nome da tabela que ira receber os dados

strINS = "Insert into "&tabela&" ("

strx=")"

strx2=") values ("

total=ubound(camp)

for i=0 to total

x2=""

x3=""

for i2=lbound(camp) to i

x5=trim(val(i2))

if x5="" then x5=0

if x5="''" then x5="'0'"

x2=x2&camp(i2)&","

x3=x3&x5&","

x4=camp(i2)

x2=x2

x3=x3

next

if right(x2,1)="," then

x2=left(x2,(len(x2)-1))

end if

if right(x3,1)="," then

x3=left(x3,(len(x3)-1))

end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

conexao.EXECUTE(sql)

if err<>0 then

response.write "Campo "&x4&" gerou erro === "&sql&"<br><br>"

end if

'o sistema irá escrever na tela a apartir do campo que gerou erro, como o erro se estenderá aos outros campos todos os restantes apresentação o debug

'este sistema insere dados na tabela campo a campo então se seu insert tem 100 campos serão 100 registros

next

dúvidas, sugestões, correções, pedidos e elogios postem neste tópico.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...