[Resolvido] Insert usando Oracle

[Drika 0]

Boa tarde. Estou utilizando o Oracle a pouco tempo, e não estou conseguindo dar um insert na tabela. Segue meu código

 

ssql = " insert into pedtemp "

ssql = ssql &" (cnpj_cli, reg, cnpj_dest, cod_produto, quant, usuario, data_limite, hora_limite, obs, campanha, divisao) "

ssql = ssql &" values "

ssql = ssql &" ("&cnpj_cli&",SQ_PEDIDOTEMP.NEXTVAL,"&Request.Form("cod_destinatario")&",'"&Request.Form("hid_produto")&"',"&Request.Form("nr_qtde")&",'"&usuario&"',TO_DATE('"&dt_limite&"','DD/MM/YYYY'),TO_DATE('"&hr_limite&"','HH24:MI:SS'),'"&ds_obs&"','"&ds_campanha &"','" & Session("divisao") & "')"

Set RsAddPedido =OraDatabase.DbCreateDynaset(ssql, cint(0))

 

E sempre aparece a mensagem :

OIP-04116: Cursor not ready for I-O

 

/Users/pedido.asp, line 54

 

A linha 54 é Set RsAddPedido =OraDatabase.DbCreateDynaset(ssql, cint(0))

 

O que preciso fazer ?

 

Obrigada pela ajuda.

[xanburzum 169]

dê um response.wite na sua string SQL para ver o k esta sendo passado

response.write(SQL)
response.end()

[Drika 0]

Obrigado pela ajuda.

 

Os parametros estão OK, se faço uma consulta não dá erro, mas quando quero inserir apresenta o erro.

[xanburzum 169]

as permissoes estao todas corretas...

verfique se a opcao de exibir mensagens de erro HTTP amigaveis esta habilitado no browser, se tiver desabilite, pra ver se exibe algum erro

[Drika 0]

A mensagem que aparece é sempre esta:

 

OIP-04116: Cursor not ready for I-O

 

Parece que preciso informar mais alguma coisa ao comando, mas não sei o que.

 

Será que existem algum exemplo com inserção que eu possa verificar ?

 

Obrigada.

[jrcardozo 4]

poste a string de conexao.

 

será que é algo com oTO_DATE? eu sempre faço TO_CHAR antes passando o formato da string pra depois pegar a data, mas pelo erro me parece algo com o driver. tem algum campo tipo clob?

[Drika 0]

Segue o código

Dim OraSession
  Dim OraDatabase

  Set OraSession = Server.CreateObject("OracleInProcServer.XOraSession")
  Set OraDatabase = OraSession.DbOpenDatabase("INTECDSV", "wms/wms",cint(0))
    
  if acao = "X" then ' Se acao = X remove os produtos
    ssql = " delete from pedtemp where reg = "&Request("hid_remove_produto")&" "	
	Set RsApagaProduto =OraDatabase.DbCreateDynaset(ssql, cint(0))
	RsApagaProduto.delete
	RsApagaProduto.update
  end if  
   
  
  if acao = "I" then

    if isdate(dt_limite) = false then
		Response.Write "<script>{alert('Verifique se os dados estão corretos!');location='pedido.asp';}</script>"
		Response.End 
	end if 
	
    sql = "select suchbegriff as cnpj from klienten where id_klient ='" & Session("cliente") & "'"
    Set RsCliente =OraDatabase.DbCreateDynaset(sql, cint(0))	
	cnpj_cli = Rscliente("cnpj")
	RsCliente.close

	
	ssql = " insert into pedtemp "
	ssql = ssql &" (cnpj_cli, reg, cnpj_dest, cod_produto, quant, usuario, data_limite, hora_limite, obs, campanha, divisao) "
	ssql = ssql &" values "
	ssql = ssql &" ("&cnpj_cli&",SQ_PEDIDOTEMP.NEXTVAL,"&Request.Form("cod_destinatario")&",'"&Request.Form("hid_produto")&"',"&Request.Form("nr_qtde")&",'"&usuario&"',TO_DATE('"&dt_limite&"','DD/MM/YYYY'),TO_DATE('"&hr_limite&"','HH24:MI:SS'),'"&ds_obs&"','"&ds_campanha &"','" & Session("divisao") & "')"

	Set RsAddPedido =OraDatabase.DbCreateDynaset(ssql, cint(0))	

    Response.Write "<B>Registro salvo com sucesso !</B>"

[jrcardozo 4]

eu utilizo assim o driver direto:

set con = server.createobject("adodb.connection")
con.open "Provider=OraOLEDB.Oracle.1;Password=senha_ts_name;Persist Security Info=True;User ID=user_ts_name;Data Source=alias_ts_name"
con.execute("insert into (coluna, coluna2) values (1,2) ")

mas acredito que seu problema esteja nos dados do insert, não há incompatibilidade nos tipos de dados? se puder, poste o tipo de dados de cada coluna e a string do insert

[Drika 0]

eu utilizo assim o driver direto:

set con = server.createobject("adodb.connection")
con.open "Provider=OraOLEDB.Oracle.1;Password=senha_ts_name;Persist Security Info=True;User ID=user_ts_name;Data Source=alias_ts_name"
con.execute("insert into (coluna, coluna2) values (1,2) ")

mas acredito que seu problema esteja nos dados do insert, não há incompatibilidade nos tipos de dados? se puder, poste o tipo de dados de cada coluna e a string do insert

 

[Drika 0]

Segue :

 

CNPJ-CLI Varchar2(14)

COD_ARM Varchar2(2)

REG Number

CNPJ-DEST Varchar2(14)

COD_PRODUTO Varchar2(15)

UNID_ESTOQUE Varchar2(6)

QUANT Number

TIPO

USUARIO Varchar2(14)

DATA_LIMITE Varchar2(2)

HORA_LIMITE

DIVISAO

OBS

CAMPANHA

[Drika 0]

Desculpe, dei um tab e nem percebi.

Segue :

 

CNPJ-CLI Varchar2(14)

COD_ARM Varchar2(2)

REG Number

CNPJ-DEST Varchar2(14)

COD_PRODUTO Varchar2(15)

UNID_ESTOQUE Varchar2(6)

QUANT Number

TIPO Char(3)

USUARIO Varchar2(30)

DATA_LIMITE Date

HORA_LIMITE TimeStamp(6) with local time zone

DIVISAO Varchar2(30)

OBS Varchar2(1000)

CAMPANHA Varchar2(100)

 

Segue a string :

 

ssql = " insert into pedtemp "

ssql = ssql &" (cnpj_cli, reg, cnpj_dest, cod_produto, quant, usuario, data_limite, hora_limite, obs, campanha, divisao) "

ssql = ssql &" values "

ssql = ssql &" ("&cnpj_cli&",SQ_PEDIDOTEMP.NEXTVAL,"&Request.Form("cod_destinatario")&",'"&Request.Form("hid_produto")&"',"&Request.Form("nr_qtde")&",'"&usuario&"',TO_DATE('"&dt_limite&"','DD/MM/YYYY'),TO_DATE('"&hr_limite&"','HH24:MI:SS'),'"&ds_obs&"','"&ds_campanha &"','" & Session("divisao") & "')"

 

Se eu pegar o resultado atraves do response.write e colocar no PL/SQL, funciona.

 

Obrigada.

[jrcardozo 4]

estranho funcionar direto. percebi que o vlaor Request.Form("cod_destinatario") você pasa como numerico mas a coluna CNPJ-DEST é varchar2, deveria ter apostrofes pra nao dar erro. veja se é isso

[Drika 0]

Então na duvida fiz assim, colocando só 1 campo, mas dá o mesmo erro. você tem algum exemplo para me mostrar ?

 

ssql = " insert into pedtemp "

ssql = ssql &" (cnpj_cli) "

ssql = ssql &" values "

ssql = ssql &" ('123456') "

 

Retorna este erro

Oracle Automation error '800a01b8'

 

OIP-04116: Cursor not ready for I-O

 

Nesta linha

Set RsAddPedido =OraDatabase.DbCreateDynaset(ssql, cint(0))

[jrcardozo 4]

tentaste da forma que mostrei no post anterior?

[Drika 0]

Agora eu fiz, e funcionou.

 

Não entendi o porque, mas o importante que funcionou.

 

Para todo insert,update e delete tenho que criar este abaixo ?

 

set con = server.createobject("adodb.connection")

con.open "Provider=OraOLEDB.Oracle.1;Password=pass;Persist Security Info=True;User ID=id;Data Source=dts"

 

Muito obrigada, pela atenção e ajuda.

[jrcardozo 4]

acho que o problema está no driver.

 

você não precisa fazer a conexao em todas as páginas desta forma, pode colocar no global.asa um application ou entao criar uma function que vai abrir a conexao e adicionar em um arquivo de include. assim você facilita na manutenção

 

se você está no inicio do projeto, aconselho usar para trodas as trasações desta forma para que fique padrão

[Drika 0]

Vou fazer isto, muito obrigada pela ajuda.

[xanburzum 169]

pode ser o driver dele, você tb pode tentar

quando o servidor de automação usando para inserir um registro esta usando o createdynaset ,

conn.createdynaset (sql, 0)

você pode tentar assim

conn ExecuteSQL sql

 

com o ADO, você não precisa criar um dynaset a fazer um INSERT. Basta executar a instrução SQL diretamente.