PC Toledo

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

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.

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.

obrigado amigão

vou testar aqi

PC Toledo

Atualizar Tabela Paradox

Atualizar Tabela Paradox

Atualizar Tabela Paradox

Atualizar Tabela Paradox

Atualizar Tabela Paradox