FiveTech Support Forums

delete record
BlankRec () // esto no funcionará bien comentarla o colocarlo antes de eliminar.

delete all // esto no funcionará a partir de aquí
while ....
 if lCondición // cambiar la condición de no
   recall registro // eliminar cada registro aquí
 endif
end

hb_GetAdoConnection (): Ejecutar ("CREATE VIEW cView ....")

sele 0
uso cView

Browse ()

use table VIA "DBFCDX"
copy to SQLTABLE VIA "ADORDD"

  REQUEST ADORDD, ADOVERSION, RECSIZE

  RddRegister( "ADORDD",1 )
  RddSetDefault( "ADORDD" )


  SET ADO DEFAULT RECNO FIELD TO "HBRECNO"

  SET AUTOPEN OFF 

  SET ADO FORCE LOCK OFF

  SET ADO DEFAULT DATABASE TO "LUCASTABLE.MDB"  ENGINE TO "ACCESS" USER TO "" PASSWORD TO ""

Buen dia...

Alguien ya desarrollo una utilidad para migrar la base datos, para mi caso seria desde dbfcdx con sus índices

con xhb.com usamos esta rutina :
Function upload( cBaseDir, cPrefix, cDriver, cRDD )

   LOCAL aFiles, aStruct, aFile, cFile, aTemp
   LOCAL nCanArc := 0, nConArc := 0

   /* upload files */

   aFiles := directory( cBaseDir + "*.dat" )  // dejar en minuscula

   nCanArc := len(aFiles)


   For each aFile in aFiles
      IF SELECT("ORIG") <> 0
         CLOSE ORIG
      ENDIF

      cFile := strtran(lower( alltrim( cPrefix + aFile[ F_NAME ] ) ),".dat","")  // dejar en minuscula

      //dbUseArea( .T., cDriver, cBaseDir + aFile[ F_NAME ], "ORIG" )

      IF !lUsaTab( cBaseDir ,aFile[ F_NAME ],"ORIG",{},.T.,NIL,cDriver)
         mymen("Error. Tabla")
         return
      endif

      //? "   Uploading...", cFile, "(" + alltrim(str(ORIG->( lastrec() ) ) ), "records)"


      aStruct := ORIG->( dbStruct() )
      ORIG->( dbCloseArea() )
      dbCreate( cFile, aStruct, cRDD )
      dbUseArea( .T., cRDD, cFile, "DEST", .F. )
      Append from (cBaseDir + aFile[ F_NAME ]) VIA cDriver
      dbUseArea( .T., cDriver, cBaseDir + aFile[ F_NAME ], "ORIG" )

      If !empty( ordname(1) )
         //? "   Creating indexes:", cFile
      EndIf

      n:=1
      while .t.
         if empty( ordname(n) )
            exit
         endif
        //? "      =>", ordname(n),",", ordkey(n),",", ordfor(n)
        DEST->(ordCondSet( orig->(ordfor(n)),,.t.,,,, nil, nil, nil, nil,, nil, .F., .F., .F., .F.))
        DEST->(dbGoTop())
        DEST->(ordCreate(,orig->(OrdName(n)), orig->(ordKey(n)), &("{||"+orig->(OrdKey(n))+"}") ))
        ++n
      enddo

      ORIG->( dbCloseArea() )
      DEST->( DBCOMMIT() )
      DEST->( dbCloseArea() )


      ++nConArc

   Next

Return


Gracias

Johnson Russi