Depurando sql's

[bareta]

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.

[Ted k']

parabéns cara, que ótimo, sempre quando acontecer erros no meu SQL irei lembrar desse tópico, vlw mesmo, bom...!