ASP x FIREBIRD

[marvazoler 0]

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!

[marvazoler 0]

Alguém pode me ajudar?

[Fernando C 128]

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

se o erro persistir poste a linha 29

[marvazoler 0]

Bom dia, a linha 29, é a sql!

[marvazoler 0]

Linha 29: Set oRs = bd.Execute("insert into EMPRESA (NOME_FANTASIA,CNPJ)values('"&varempresa&"','"&cnpj&"')")

[Fernando C 128]

("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..

[marvazoler 0]

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

[marvazoler 0]

Amigão,

Fernando C, agora não da mensagem nenhuma, porem não salva, quando vou olhar ibexpert, não tem nada!, será que não tem que colocar nenhum commit?, sei la ja fiz um monte!

[Fernando C 128]

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":

 

[marvazoler 0]

Obrigado, amigo!, deu certo!