Atualizar Tabela Paradox

[coutinho]

esta ocorrendo este erro ao tentar dar um update na tabela paradox

Path and name: C:\TESTE1.EXE (32 bits)
Size: 1,764,352 bytes
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 10/10/14, 09:00:39
Error description: Error ADODB.Recordset/9 O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.: ITEM
Args:
[ 1] = O ADODB.Recordset:_ACTIVECONNECTION

estou fazendo assim

Código: Selecionar todos

	//-- abre a tabela Paradox via ADO
	oConn:= CreateObject("ADODB.Connection")
	oConn:Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\teste;Extended Properties=Paradox 5.x")
	
	//-- seleciona todos os registros
	cSQL := "SELECT * FROM TASSVERB"

   //-- record set da tabela paradox	
	rsClaims := CreateObject("ADODB.Recordset")
	rsClaims:CursorLocation   := 3 
	rsClaims:CursorType       := 3 
	rsClaims:ActiveConnection := oConn
	
	//-- abre a tabela
	rsClaims:Open(cSQL)


  While .Not. rsClaims:Eof()
   
	  IF PRODES->(DBSEEK( rsClaims:Fields("bdverba"):Value ) )
	  
  		  cCod    := VAL(PRODES->CODIGO)
		  cDesc   := PRODES->DESCRICAO
		  
		  oConn:Execute("INSERT INTO TASSVERB (bddesc,bdverba) values (cDesc,cCod)")
//      oConn:Execute( "UPDATE TASSVERB SET bddesc='"  + cDesc + "' WHERE bdverba='" + cCod + "'" )
//      oConn:Execute("DELETE * FROM TASSVERB")
        
	  ENDIF
	  
     rsClaims:MoveNext()
     
   End

qualquer destes comandos da erro

Alguem saberia me dizer o motivo

Atenciosamente

[Itamar M. Lins Jr.]

Você pretende ler e gravar dados na tabela ? ou apenas ler uma vez e pronto, não vai mais usar ela ? (importar)

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Bem já descobrir aqui a string...

Arquivo pardepatos.prg

Código: Selecionar todos

#require "sddodbc"
#include "hbrddsql.ch"
REQUEST SQLMIX, SDDODBC

Function Main

cRdd  := RDDSETDEFAULT( "SQLMIX" )
nConn := RDDINFO( RDDI_CONNECT, { "ODBC","DefaultDir=c:\teste\teste\;Dbq=C:\teste\teste\;Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;" })

IF nConn == 0
   alert( "Não conectado ao servidor: " + str(RDDINFO( RDDI_ERRORNO )) + HB_EOL() + RDDINFO( RDDI_ERROR ) )
   RETURN
ENDIF
DBUSEAREA( .T.,"SQLMIX", "select * from TASSVERB")
browse()

Compilar usando:

hbmk2 pardepatos.prg sddodbc.hbc

Abrir alterei etc... sem problemas, com Harbour 3.4 no 3.2 deve funcionar blz tbm.

Saudações,
Itamar M. Lins Jr.

[coutinho]

obrigado amigão

vou testar aqi