Jump to content
Sign in to follow this  
marvazoler

ASP x FIREBIRD

Recommended Posts

Bom dia, preciso resolver uma coisa que me da tregua, sempre fiz asp x com mysql, mas agora!

 

 

set strConexao = CreateObject("ADODB.Connection")
strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")

 

Set oRs = Server.CreateObject("ADODB.Recordset")
varempresa = request.Form("txtempresa")
varcnpj = request.Form("txtcnpj")
'varcodigo = request.Form("txtsenha")
'varseguimento = request.Form("txtseguimento")
varemail = request.Form("txtemail")
varcidade = request.Form("txtcidade")
Set oRs = bd.Execute("INSERT INTO EMPRESA (NOME_FANTASIA,CNPJ,EMAIL,CIDADE)VALUES('"&varempresa&"','"&varcnpj&"','"&varemail&"','"&varcidade&"'")
Olha o erro!

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/cadastrar.asp, linha 29

 

 

Ja revisei , desde ja agradeço!

Share this post


Link to post
Share on other sites

inicialmente, sua sql está com erro (observe os parenteses).

se o erro persistir poste a linha 29

Share this post


Link to post
Share on other sites

("insert into EMPRESA (NOME_FANTASIA,CNPJ)values('"&varempresa&"','"&cnpj&"')")

 

aparentemente sql agora ok, de um response.write p/ verificar as variaveis.. essa "cnpj", por exemplo..

Share this post


Link to post
Share on other sites

Deve ter algo estranho:

 

set strConexao = CreateObject("ADODB.Connection")
strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")
Set oRs = Server.CreateObject("ADODB.Recordset")
varempresa = request.form("txtempresa")
varcnpj = request.form("txtcnpj")
Set oRs = bd.Execute("insert into EMPRESA (NOME_FANTASIA,CNPJ)values('"&varempresa&"','"&cnpj&"')")
Ainda da o erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/cadastrar.asp, linha 26

Desde ja agradeço

Share this post


Link to post
Share on other sites

bom testei aqui com mysql e nessa linha deu erro:

Set oRs = bd.Execute("INSERT INTO EMPRESA

tente trocar por:

Set oRs = strConexao.Execute("INSERT INTO EMPRESA

e como ja disse em outro post, verifique essa variavel "cnpj":

 

6fvxue.jpg

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.