Moderador: Moderadores
Código: Selecionar todos
aEstr:= {}
AADD( aEstr ,{"CODIGO" ,'N(15)' , 15,00, ,"PRI" })
AADD( aEstr ,{"NOME ,'C(30)' , 30,00,"utf8" })
DBCREATE("TesteSimples", aEstr)Código: Selecionar todos
aadd(estru,{"codi","C",14,0})
aadd(estru,{"nome","C",40,0})
aadd(estru,{"quant","N",8,2})
aadd(estru,{"unid","C",03,0})
Código: Selecionar todos
/I Integer 1, 2, 3, 4 or 8 Signed Integer ( Width : )" },;
AADD(aMat,{"Int1","I",1,0})
AADD(aMat,{"Int2","I",2,0})
AADD(aMat,{"Int3","I",3,0})
AADD(aMat,{"Int4","I",4,0})
AADD(aMat,{"Int8","I",8,0})
Código: Selecionar todos
/*
* Converts a .dbf file into a MySQL table
*
* Copyright 2000 Maurilio Longo <maurilio.longo@libero.it>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file LICENSE.txt. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#require "hbmysql"
#include "inkey.ch"
PROCEDURE Main( ... )
LOCAL cTok
LOCAL cHostName := "localhost"
LOCAL cUser := "root"
LOCAL cPassWord := ""
LOCAL cDataBase, cTable, cFile
LOCAL aDbfStruct, i
LOCAL lCreateTable := .F.
LOCAL oServer, oTable, oRecord
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
// At present time (2000-10-23) DBFCDX is default RDD and DBFNTX is
// now DBF (I mean the one able to handle .dbt-s :-))
rddSetDefault( "DBF" )
IF PCount() < 6
help()
QUIT
ENDIF
i := 1
// Scan parameters and setup workings
DO WHILE i <= PCount()
cTok := hb_PValue( i++ )
DO CASE
CASE cTok == "-h"
cHostName := hb_PValue( i++ )
CASE cTok == "-d"
cDataBase := hb_PValue( i++ )
CASE cTok == "-t"
cTable := hb_PValue( i++ )
CASE cTok == "-f"
cFile := hb_PValue( i++ )
CASE cTok == "-u"
cUser := hb_PValue( i++ )
CASE cTok == "-p"
cPassWord := hb_PValue( i++ )
CASE cTok == "-c"
lCreateTable := .T.
OTHERWISE
help()
QUIT
ENDCASE
ENDDO
dbUseArea( .T.,, cFile, "dbffile",, .T. )
aDbfStruct := dbffile->( dbStruct() )
oServer := TMySQLServer():New( cHostName, cUser, cPassWord )
IF oServer:NetErr()
? oServer:Error()
QUIT
ENDIF
oServer:SelectDB( cDataBase )
IF oServer:NetErr()
? oServer:Error()
QUIT
ENDIF
IF lCreateTable
IF hb_AScan( oServer:ListTables(), cTable,,, .T. ) > 0
oServer:DeleteTable( cTable )
IF oServer:NetErr()
? oServer:Error()
QUIT
ENDIF
ENDIF
oServer:CreateTable( cTable, aDbfStruct )
IF oServer:NetErr()
? oServer:Error()
QUIT
ENDIF
ENDIF
// Initialize MySQL table
oTable := oServer:Query( "SELECT * FROM " + cTable + " LIMIT 1" )
IF oTable:NetErr()
Alert( oTable:Error() )
QUIT
ENDIF
DO WHILE ! dbffile->( Eof() ) .AND. Inkey() != K_ESC
oRecord := oTable:GetBlankRow()
FOR i := 1 TO dbffile->( FCount() )
oRecord:FieldPut( i, dbffile->( FieldGet( i ) ) )
NEXT
oTable:Append( oRecord )
IF oTable:NetErr()
Alert( oTable:Error() )
ENDIF
dbffile->( dbSkip() )
DevPos( Row(), 1 )
IF ( dbffile->( RecNo() ) % 100 ) == 0
DevOut( "imported recs: " + hb_ntos( dbffile->( RecNo() ) ) )
ENDIF
ENDDO
dbffile->( dbCloseArea() )
oTable:Destroy()
oServer:Destroy()
RETURN
PROCEDURE Help()
? "dbf2MySQL - dbf file to MySQL table conversion utility"
? "-h hostname (default: localhost)"
? "-u user (default: root)"
? "-p password (default no password)"
? "-d name of database to use"
? "-t name of table to add records to"
? "-c delete existing table and create a new one"
? "-f name of .dbf file to import"
? "all parameters but -h -u -p -c are mandatory"
? ""
RETURN