Moderador: Moderadores
por JoséQuintas » 26 Fev 2020 15:13
FUNCTION NumberSQL( xValue, nLen, nDec )
hb_Default( @nLen, 20 )
hb_Default( @nDec, 6 )
IF ValType( xValue ) != "N"
xValue := Val( xValue )
ENDIF
xValue := Ltrim( Str( xValue, nLen, nDec ) )
IF "." $ xValue
DO WHILE Right( xValue, 1 ) == "0"
xValue := Substr( xValue, 1, Len( xValue ) - 1 )
ENDDO
IF Right( xValue, 1 ) == "."
xValue := Substr( xValue, 1, Len( xValue ) - 1 )
ENDIF
ENDIF
RETURN xValue
por JoséQuintas » 26 Fev 2020 15:39
? Time()
FOR nCont = 1 TO 1000000
x := NumberSql( nCont )
IF .F.
? x
ENDIF
NEXT
? x
? Time()
FUNCTION NumberSQL( xValue, nLen, nDec )
LOCAL nPos, cLetra
hb_Default( @nLen, 20 )
hb_Default( @nDec, 6 )
IF ValType( xValue ) != "N"
xValue := Val( xValue )
ENDIF
xValue := Ltrim( Str( xValue, nLen, nDec ) )
IF Right( xValue, 1 ) == "0"
nPos := Len( xValue )
FOR EACH cLetra IN xValue DESCEND
IF cLetra == "."
nPos := cLetra:__EnumIndex -1
ELSEIF cLetra != "0"
nPos := cLetra:__EnumIndex
EXIT
ENDIF
NEXT
xValue := Substr( xValue, 1, nPos )
ENDIF
RETURN xValue
por JoséQuintas » 26 Fev 2020 15:46
/*
ZE_SQLBACKUP - Backup de MySQL
José Quintas
*/
#include "josequintas.ch"
#include "inkey.ch"
#define MYSQL_MAX_RECBACKUP 25000
FUNCTION SQLBackup()
LOCAL oTableList, cTable, oTableCreate, nHandle, nQtd, nLimitStart, nCont, nQtdFields, nQtdRec, cTxt
LOCAL cFixSql, nKey := 0, nMySqlLimitRecBackup, nAtual
LOCAL cnGERAL := ADOClass():New( AppConexao() )
IF "josequintas" $ cnGeral:cn:ConnectionString()
Errorsys_WriteErrorLog( "servidor errado" )
RETURN NIL
ENDIF
Mensagem( "Fazendo backup da base MySql" )
nHandle := fCreate( "backup.sql" )
cnGERAL:cSql := "SHOW TABLES;"
oTableList := cnGERAL:ExecuteCmd( cnGERAL:cSql )
fWrite( nHandle, "SET autocommit=0;" + hb_eol() )
fWrite( nHandle, "SET unique_checks=0;" + hb_eol() )
fWrite( nHandle, "SET foreign_key_checks=0;" + hb_eol() )
DO WHILE nKey != K_ESC .AND. ! oTableList:Eof()
cTable := oTableList:Fields( "tables_in_" + Lower( AppEmpresaApelido() ) ):Value
IF "VIEW" $ Upper( cTable )
//fWrite( "DROP VIEW IF EXISTS " + cTable ) + hb_Eol()
//fWrite( nHandle, StrTran( oTableCreate:Fields( "Create View" ):Value, Chr(10), hb_Eol() ) + ";" )
oTableList:MoveNext()
LOOP
ENDIF
oTableCreate := cnGERAL:ExecuteCmd( "SHOW CREATE TABLE " + cTable )
fWrite( nHandle, "DROP TABLE IF EXISTS " + cTable + ";" + hb_eol() )
fWrite( nHandle, StrTran( oTableCreate:Fields( "Create Table" ):Value, Chr(10), hb_eol() ) + ";" )
fWrite( nHandle, hb_eol() + hb_eol() )
oTableCreate:Close()
nQtd := ADORecCount( cTable )
SayScroll( "Fazendo backup do MySql " + cTable + " (" + Ltrim( Transform( nQtd, PicVal(9,0) ) ) + ")" )
fWrite( "LOCK TABLES `" + cTable + "` WRITE;" + hb_eol() )
fWrite( nHandle, "ALTER TABLE `" + cTable + "` DISABLE KEYS;" + hb_eol() )
// ATENCAO! Primeira coluna do MySQL é ZERO
nLimitStart := 0
nMySqlLimitRecBackup := iif( "XML" $ Upper( cTable ), Int( MYSQL_MAX_RECBACKUP / 5 ), MYSQL_MAX_RECBACKUP )
GrafTempo( "Backup " + cTable )
nAtual := 0
DO WHILE nKey != K_ESC .AND. nLimitStart <= nQtd
cnGERAL:cSql := "SELECT SQL_NO_CACHE * FROM `" + cTable + "` LIMIT " + ;
iif( nLimitStart == 0, "", Ltrim( Str( nLimitStart ) ) + ", " ) + ;
Ltrim( Str( nMySqlLimitRecBackup ) )
cnGERAL:Execute()
nQtdFields := cnGERAL:Rs:Fields:Count() - 1
nQtdRec := cnGERAL:Rs:RecordCount()
cFixSql := "INSERT INTO `" + cTable + "` "
IF .F. // com nomes de campos
cFixSql += "( "
FOR nCont = 0 TO nQtdFields
cFixSql += "`" + cnGERAL:Rs:Fields( nCont ):Name + "`"
IF nCont != nQtdFields
cFixSql += ", "
ENDIF
NEXT
cFixSql += ") "
ENDIF
cFixSql += "VALUES "
cFixSql += hb_eol()
cTxt := ""
DO WHILE nKey != K_ESC .AND. ! cnGERAL:Rs:Eof()
Inkey()
GrafTempo( nAtual++, nQtd )
IF Len( cTxt ) == 0
cTxt += cFixSql
ENDIF
cTxt += "( "
FOR nCont = 0 TO nQtdFields
cTxt += ValueSql( cnGERAL:Rs:Fields( nCont ):Value )
IF nCont != nQtdFields
cTxt += ", "
ENDIF
NEXT
cTxt += " )"
nQtdRec -= 1
IF Len( cTxt ) > MYSQL_MAX_CMDINSERT
fWrite( nHandle, cTxt + " ;" + hb_eol() )
cTxt := ""
ENDIF
IF Len( cTxt ) != 0 .AND. nQtdRec != 0
cTxt += ", " + hb_eol()
ENDIF
cnGERAL:MoveNext()
ENDDO
cnGERAL:CloseRecordset()
IF Len( cTxt ) != 0
IF Right( cTxt, 4 ) == ", " + hb_eol()
cTxt := Substr( cTxt, 1, Len( cTxt ) - 4 )
ENDIF
fWrite( nHandle, cTxt + ";" + hb_eol())
ENDIF
nLimitStart += nMySqlLimitRecBackup
ENDDO
fWrite( nHandle, "ALTER TABLE `" + cTable + "` ENABLE KEYS;" + hb_eol() )
fWrite( nHandle, "UNLOCK TABLES;" + hb_eol() )
oTableList:MoveNext()
ENDDO
fWrite( nHandle, "SET autocommit=1;" + hb_eol() )
fWrite( nHandle, "SET unique_checks=1;" + hb_eol() )
fWrite( nHandle, "SET foreign_key_checks=1;" + hb_eol() )
fWrite( nHandle, "COMMIT" + hb_eol() )
oTableList:Close()
fClose( nHandle )
RETURN NIL
por Itamar M. Lins Jr. » 26 Fev 2020 15:47
por JoséQuintas » 26 Fev 2020 15:50
por JoséQuintas » 06 Mar 2020 20:35
por asimoes » 07 Mar 2020 10:53
if Mod( nContador, 1000 ) = 0
fWrite(...)
Endif
por asimoes » 07 Mar 2020 11:01
mysqldump Ver 10.17 Distrib 10.4.11-MariaDB, for Win64 (AMD64)
Copyright (c) 2000, 2018, Oracle, MariaDB Corporation Ab and others.
Dumping structure and contents of MariaDB databases and tables.
Usage: mysqldump [OPTIONS] database [tables]
OR mysqldump [OPTIONS] --databases [OPTIONS] DB1 [DB2 DB3...]
OR mysqldump [OPTIONS] --all-databases [OPTIONS]
Default options are read from the following files in the given order:
C:\WINDOWS\my.ini C:\WINDOWS\my.cnf C:\my.ini C:\my.cnf C:\Program Files\MariaDB 10.4\my.ini C:\Program Files\MariaDB 10.4\my.cnf C:\Program Files\MariaDB 10.4\data\my.ini C:\Program Files\MariaDB 10.4\data\my.cnf
The following groups are read: mysqldump mariadb-dump client client-server client-mariadb
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
The following specify which files/extra groups are read (specified before remaining options):
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.
--defaults-group-suffix=# Additionally read default groups with # appended as a suffix.
-A, --all-databases Dump all the databases. This will be same as --databases
with all databases selected.
-Y, --all-tablespaces
Dump all the tablespaces.
-y, --no-tablespaces
Do not dump any tablespace information.
--add-drop-database Add a DROP DATABASE before each create.
--add-drop-table Add a DROP TABLE before each create.
(Defaults to on; use --skip-add-drop-table to disable.)
--add-drop-trigger Add a DROP TRIGGER before each create.
--add-locks Add locks around INSERT statements.
(Defaults to on; use --skip-add-locks to disable.)
--allow-keywords Allow creation of column names that are keywords.
--apply-slave-statements
Adds 'STOP SLAVE' prior to 'CHANGE MASTER' and 'START
SLAVE' to bottom of dump.
--character-sets-dir=name
Directory for character set files.
-i, --comments Write additional information.
(Defaults to on; use --skip-comments to disable.)
--compatible=name Change the dump to be compatible with a given mode. By
default tables are dumped in a format optimized for
MariaDB. Legal modes are: ansi, mysql323, mysql40,
postgresql, oracle, mssql, db2, maxdb, no_key_options,
no_table_options, no_field_options. One can use several
modes separated by commas. Note: Requires MariaDB server
version 4.1.0 or higher. This option is ignored with
earlier server versions.
--compact Give less verbose output (useful for debugging). Disables
structure comments and header/footer constructs. Enables
options --skip-add-drop-table --skip-add-locks
--skip-comments --skip-disable-keys --skip-set-charset.
-c, --complete-insert
Use complete insert statements.
-C, --compress Use compression in server/client protocol.
-a, --create-options
Include all MariaDB specific create options.
(Defaults to on; use --skip-create-options to disable.)
-B, --databases Dump several databases. Note the difference in usage; in
this case no tables are given. All name arguments are
regarded as database names. 'USE db_name;' will be
included in the output.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
--debug-info Print some debug info at exit.
--default-character-set=name
Set the default character set.
--delayed-insert Insert rows with INSERT DELAYED.
--delete-master-logs
Delete logs on master after backup. This automatically
enables --master-data.
-K, --disable-keys '/*!40000 ALTER TABLE tb_name DISABLE KEYS */; and
'/*!40000 ALTER TABLE tb_name ENABLE KEYS */; will be put
in the output.
(Defaults to on; use --skip-disable-keys to disable.)
--dump-slave[=#] This causes the binary log position and filename of the
master to be appended to the dumped data output. Setting
the value to 1, will printit as a CHANGE MASTER command
in the dumped data output; if equal to 2, that command
will be prefixed with a comment symbol. This option will
turn --lock-all-tables on, unless --single-transaction is
specified too (in which case a global read lock is only
taken a short time at the beginning of the dump - don't
forget to read about --single-transaction below). In all
cases any action on logs will happen at the exact moment
of the dump.Option automatically turns --lock-tables off.
-E, --events Dump events.
-e, --extended-insert
Use multiple-row INSERT syntax that include several
VALUES lists.
(Defaults to on; use --skip-extended-insert to disable.)
--fields-terminated-by=name
Fields in the output file are terminated by the given
string.
--fields-enclosed-by=name
Fields in the output file are enclosed by the given
character.
--fields-optionally-enclosed-by=name
Fields in the output file are optionally enclosed by the
given character.
--fields-escaped-by=name
Fields in the output file are escaped by the given
character.
-F, --flush-logs Flush logs file in server before starting dump. Note that
if you dump many databases at once (using the option
--databases= or --all-databases), the logs will be
flushed for each database dumped. The exception is when
using --lock-all-tables or --master-data: in this case
the logs will be flushed only once, corresponding to the
moment all tables are locked. So if you want your dump
and the log flush to happen at the same exact moment you
should use --lock-all-tables or --master-data with
--flush-logs.
--flush-privileges Emit a FLUSH PRIVILEGES statement after dumping the mysql
database. This option should be used any time the dump
contains the mysql database and any other database that
depends on the data in the mysql database for proper
restore.
-f, --force Continue even if we get an SQL error.
--gtid Used together with --master-data=1 or --dump-slave=1.When
enabled, the output from those options will set the GTID
position instead of the binlog file and offset; the
file/offset will appear only as a comment. When disabled,
the GTID position will still appear in the output, but
only commented.
-?, --help Display this help message and exit.
--hex-blob Dump binary strings (BINARY, VARBINARY, BLOB) in
hexadecimal format.
-h, --host=name Connect to host.
--ignore-database=name
Do not dump the specified database. To specify more than
one database to ignore, use the directive multiple times,
once for each database. Only takes effect when used
together with --all-databases|-A
--ignore-table=name Do not dump the specified table. To specify more than one
table to ignore, use the directive multiple times, once
for each table. Each table must be specified with both
database and table names, e.g.,
--ignore-table=database.table.
--include-master-host-port
Adds 'MASTER_HOST=<host>, MASTER_PORT=<port>' to 'CHANGE
MASTER TO..' in dump produced with --dump-slave.
--insert-ignore Insert rows with INSERT IGNORE.
--lines-terminated-by=name
Lines in the output file are terminated by the given
string.
-x, --lock-all-tables
Locks all tables across all databases. This is achieved
by taking a global read lock for the duration of the
whole dump. Automatically turns --single-transaction and
--lock-tables off.
-l, --lock-tables Lock all tables for read.
(Defaults to on; use --skip-lock-tables to disable.)
--log-error=name Append warnings and errors to given file.
--log-queries When restoring the dump, the server will, if logging
turned on, log the queries to the general and slow query
log.
(Defaults to on; use --skip-log-queries to disable.)
--master-data[=#] This causes the binary log position and filename to be
appended to the output. If equal to 1, will print it as a
CHANGE MASTER command; if equal to 2, that command will
be prefixed with a comment symbol. This option will turn
--lock-all-tables on, unless --single-transaction is
specified too (on servers before MariaDB 5.3 this will
still take a global read lock for a short time at the
beginning of the dump; don't forget to read about
--single-transaction below). In all cases, any action on
logs will happen at the exact moment of the dump. Option
automatically turns --lock-tables off.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--no-autocommit Wrap tables with autocommit/commit statements.
-n, --no-create-db Suppress the CREATE DATABASE ... IF EXISTS statement that
normally is output for each dumped database if
--all-databases or --databases is given.
-t, --no-create-info
Don't write table creation info.
-d, --no-data No row information.
--no-data-med No row information for engines that Manage External Data
(MRG_MyISAM, MRG_ISAM, CONNECT, OQGRAPH, SPIDER, VP,
FEDERATED).
(Defaults to on; use --skip-no-data-med to disable.)
-N, --no-set-names Same as --skip-set-charset.
--opt Same as --add-drop-table, --add-locks, --create-options,
--quick, --extended-insert, --lock-tables, --set-charset,
and --disable-keys. Enabled by default, disable with
--skip-opt.
--order-by-primary Sorts each table's rows by primary key, or first unique
key, if such a key exists. Useful when dumping a MyISAM
table to be loaded into an InnoDB table, but will make
the dump itself take considerably longer.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's solicited on the tty.
-W, --pipe Use named pipes to connect to server.
-P, --port=# Port number to use for connection.
--protocol=name The protocol to use for connection (tcp, socket, pipe).
-q, --quick Don't buffer query, dump directly to stdout.
(Defaults to on; use --skip-quick to disable.)
-Q, --quote-names Quote table and column names with backticks (`).
(Defaults to on; use --skip-quote-names to disable.)
--replace Use REPLACE INTO instead of INSERT INTO.
-r, --result-file=name
Direct output to a given file. This option should be used
in systems (e.g., DOS, Windows) that use carriage-return
linefeed pairs (\r\n) to separate text lines. This option
ensures that only a single newline is used.
-R, --routines Dump stored routines (functions and procedures).
--set-charset Add 'SET NAMES default_character_set' to the output.
(Defaults to on; use --skip-set-charset to disable.)
--single-transaction
Creates a consistent snapshot by dumping all tables in a
single transaction. Works ONLY for tables stored in
storage engines which support multiversioning (currently
only InnoDB does); the dump is NOT guaranteed to be
consistent for other storage engines. While a
--single-transaction dump is in process, to ensure a
valid dump file (correct table contents and binary log
position), no other connection should use the following
statements: ALTER TABLE, DROP TABLE, RENAME TABLE,
TRUNCATE TABLE, as consistent snapshot is not isolated
from them. Option automatically turns off --lock-tables.
--dump-date Put a dump date to the end of the output.
(Defaults to on; use --skip-dump-date to disable.)
--skip-opt Disable --opt. Disables --add-drop-table, --add-locks,
--create-options, --quick, --extended-insert,
--lock-tables, --set-charset, and --disable-keys.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-crl=name Certificate revocation list (implies --ssl).
--ssl-crlpath=name Certificate revocation list path (implies --ssl).
--tls-version=name TLS protocol version for secure connection.
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-T, --tab=name Create tab-separated textfile for each table to given
path. (Create .sql and .txt files.) NOTE: This only works
if mysqldump is run on the same machine as the mysqld
server.
--tables Overrides option --databases (-B).
--triggers Dump triggers for each dumped table.
(Defaults to on; use --skip-triggers to disable.)
--tz-utc SET TIME_ZONE='+00:00' at top of dump to allow dumping of
TIMESTAMP data when a server has data in different time
zones or data is being moved between servers with
different time zones.
(Defaults to on; use --skip-tz-utc to disable.)
-u, --user=name User for login if not current user.
-v, --verbose Print info about the various stages.
-V, --version Output version information and exit.
-w, --where=name Dump only selected records. Quotes are mandatory.
-X, --xml Dump a database as well formed XML.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.
Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
all-databases FALSE
all-tablespaces FALSE
no-tablespaces FALSE
add-drop-database FALSE
add-drop-table TRUE
add-drop-trigger FALSE
add-locks TRUE
allow-keywords FALSE
apply-slave-statements FALSE
character-sets-dir (No default value)
comments TRUE
compatible (No default value)
compact FALSE
complete-insert FALSE
compress FALSE
create-options TRUE
databases FALSE
debug-check FALSE
debug-info FALSE
default-character-set utf8mb4
delayed-insert FALSE
delete-master-logs FALSE
disable-keys TRUE
dump-slave 0
events FALSE
extended-insert TRUE
fields-terminated-by (No default value)
fields-enclosed-by (No default value)
fields-optionally-enclosed-by (No default value)
fields-escaped-by (No default value)
flush-logs FALSE
flush-privileges FALSE
force FALSE
gtid FALSE
hex-blob FALSE
host (No default value)
include-master-host-port FALSE
insert-ignore FALSE
lines-terminated-by (No default value)
lock-all-tables FALSE
lock-tables TRUE
log-error (No default value)
log-queries TRUE
master-data 0
max-allowed-packet 25165824
net-buffer-length 1046528
no-autocommit FALSE
no-create-db FALSE
no-create-info FALSE
no-data FALSE
no-data-med TRUE
order-by-primary FALSE
port 3306
quick TRUE
quote-names TRUE
replace FALSE
routines FALSE
set-charset TRUE
single-transaction FALSE
dump-date TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-crl (No default value)
ssl-crlpath (No default value)
tls-version (No default value)
ssl-verify-server-cert FALSE
tab (No default value)
triggers TRUE
tz-utc TRUE
user (No default value)
verbose FALSE
where (No default value)
plugin-dir C:/Program Files/MariaDB 10.4/lib/plugin
default-auth (No default value)
por tonicm » 07 Mar 2020 16:16
por asimoes » 07 Mar 2020 22:52
tonicm escreveu:Para utilizar o mysqldump tem de o ter instalado em todas as máquinas
por JoséQuintas » 08 Mar 2020 19:25
asimoes escreveu:Quintas, Porque você não usa o utilitário que o banco oferece para fazer o backup? acho que ele já é otimizado para isso
por JoséQuintas » 08 Mar 2020 19:27
por JoséQuintas » 04 Abr 2020 16:18
FUNCTION StringSQL( cString, nLen ); RETURN ValueSQL( cString, "C", nLen )
FUNCTION DateSQL( dDate ); RETURN ValueSQL( dDate )
FUNCTION NumberSQL( xValue ); RETURN ValueSQL( xValue, "N" )
FUNCTION ValueSQL( xValue, cType, nLen )
LOCAL cString, cValType
cValType := ValType( xValue )
hb_Default( @cType, cValType )
DO CASE
CASE xValue == NIL
cString := "NULL"
CASE cType == "D"
IF Empty( xValue )
cString := "NULL"
ELSE
cString := ['] + Transform( Dtos( xValue ), "@R 9999-99-99" ) + [']
ENDIF
CASE cType == "N"
IF cValType == "C"
xValue := Val( SoNumeros( xValue ) )
ENDIF
cString := Ltrim( hb_NTos( xValue ) )
IF "." $ cString
DO WHILE Right( cString, 1 ) == "0"
cString := Substr( cString, 1, Len( cString ) - 1 )
ENDDO
IF Right( cString, 1 ) == "."
cString := Substr( cString, 1, Len( cString ) - 1 )
ENDIF
ENDIF
OTHERWISE
IF cValType == "N"
xValue := hb_NTos( xValue )
ENDIF
cString := AllTrim( xValue )
IF nLen != NIL
cString := Pad( cString, nLen )
ENDIF
IF "\" $ cString
cString := StrTran( cString, [\], [\\] )
ENDIF
IF ['] $ cString
cString := StrTran( cString, ['], [\'] )
ENDIF
IF Chr(13) $ cString
cString := StrTran( cString, Chr(13), "\" + Chr(13) )
ENDIF
IF Chr(10) $ cString
cString := StrTran( cString, Chr(10), "\" + Chr(10) )
ENDIF
cString := ['] + cString + [']
ENDCASE
RETURN cString
por tonicm » 05 Abr 2020 14:55
SR_cDBValue( uData, nSystemID )
Quotes any data type to the specific database
por JoséQuintas » 05 Abr 2020 17:38
Usuários vendo este fórum: Linguagemclipper e 8 visitantes
