FiveTech Support Forums

cDsn := "servicio"
cDescription := "Prueba de conexión MySQL"
cProvider:="MySQLProv"
cServer := "192.168.7.103"
cDatabase := "Base_de_Datos"
cUsersql := "UsuarioMySQL"
cPasssql := "Passwordfacil"
nport := 3306
cDriverName := "MySQL ODBC 5.2w Driver"

cCmdSql := "USE " + ALLTRIM(cDataBase)
   TRY
      oApp:oCon:Execute(cCmdSql)
      CATCH oError
      MsgInfo("No se pudo abrir la base de datos, posiblemente no exista !",oApp:cAplicacion)
      RETURN(.F.)
   end
*Inicia************************************************************************************************
   cCmdsql := "CREATE TABLE IF NOT EXISTS customer ("+;
   "CLIEN_ID VARCHAR(15) NOT NULL COMMENT 'Identificador fiscal del cliente',"+;
   "NO_CLIENT DECIMAL(06,2) NOT NULL COMMENT 'Número de cliente',"+;
   "RAZONSOC VARCHAR(60) NOT NULL COMMENT 'Denominación fiscal del cliente',"+;
   "DIR1A VARCHAR(50) NOT NULL COMMENT 'Calle y No. de la dirección fiscal',"+;
   "DIR2A VARCHAR(50) NOT NULL COMMENT 'Colonia',"+;
   "DIR3A VARCHAR(50) NOT NULL COMMENT 'Delegación o municipio',"+;
   "DIR4A INTEGER NOT NULL COMMENT 'Código postal',"+;
   "DIR5A VARCHAR(20) NOT NULL COMMENT 'Estado',"+;
   "CONTACTO VARCHAR(40) NOT NULL COMMENT 'Contacto fiscal',"+;
   "TELEFONO VARCHAR(15) NOT NULL COMMENT 'Telefono',"+;
   "PRIMARY KEY(NO_CLIENT))"+;
   "ENGINE = InnoDB COMMENT 'Tabla de clientes';"
   TRY
      oApp:oCon:Execute(cCmdsql)
      catch oError
      Msginfo("No se pudo generar la tabla",oapp:cAplicacion)
      return(.F.)
   end
   Public cMemo := space(1050)
   use &dbtmp1
   count to tregs
   for unreg := 1 to tregs
      close all
      use &dbtmp1
      goto unreg
      cCys=alltrim(str(cliysub))
      cNc=substr(cCys,1,4)
      if len(cCys)=5
         cNs=".0"+right(cCys,1)
      else
         cNs="."+right(cCys,2)
      endif
      cNnc=cNc+cNs
      cMemo=iif (empty(regfedc),"\N",alltrim(regfedc))+chr(9)+;
      cNnc+chr(9)+;
      iif (empty(razonsoc),"\N",alltrim(razonsoc))+chr(9)+;
      iif (empty(dir1a),"\N",alltrim(dir1a))+chr(9)+;
      iif (empty(dir2a),"\N",alltrim(dir2a))+chr(9)+;
      iif (empty(dir3a),"\N",alltrim(dir3a))+chr(9)+;
      iif (empty(dir4a),"\N",alltrim(str(dir4a)))+chr(9)+;
      iif (empty(dir5a),"\N",alltrim(dir5a))+chr(9)+;
      iif (empty(contacto),"\N",alltrim(contacto))+chr(9)+;
      iif (empty(telefono),"\N",alltrim(telefono))+chr(9)
      memowrit("EJEMPLO.TXT",cMemo)
      cCmdsql := "LOAD DATA LOCAL INFILE 'EJEMPLO.TXT' INTO TABLE customer;"
      TRY
         oApp:oCon:Execute(cCmdsql)
         catch oError
         Msginfo("No se pudo agregar el registro",oApp:cAplicacion)
         return(.F.)
      end
      oMeterex1:Set( unreg )
      SysRefresh()
   next
*FINAL************************************************************************************************
RETURN(.T.)

FUNCTION F_RECORDSET (oCon, cSql, lVacio)
local oError
local oRsClie := CreateObject( "ADODB.Recordset" )

oRsClie:CursorLocation := 3 // adUseClient
oRsClie:LockType := 3 // adLockOptimistic
oRsclie:CursorType := 1 // adOpenKeyset
oRsClie:Source := cSql
oRsClie:ActiveConnection(oCon)

TRY
oRsClie:Open( )
CATCH oError
AdoError(oCon, oError)
RETURN nil
END

IF lVacio
   IF oRsClie:EOF .and. oRsClie:BOF
      msgstop ("Fichero vacio")
      oRsClie:CLOSE()
      oRsclie:=Nil
*      RETURN nil
   ENDIf
   oRsClie:MoveFirst()
ENDIf
RETURN oRsclie