martes, 2 de febrero de 2016

Ejemplo de DFree






En mi programa Taller2015 uso un pendrive viejo de 512 megas jajaja, si si es reviejo pero lo uso para los respaldos automáticos del programa y me di cuenta de que era necesario saber cuanto espacio libre quedaba.
Y buscando en gambas encontré el comando DFree perteneciente al grupo Funciones para Archivos y Carpetas , aquí les dejo un ejemplo muy parecido de como lo utilice.


' gambas class file

'Usando DFree by postapase

Public Sub Form_Open()

Me.Title = Application.Name
TextBox1.Text = User.Home
EspacioDisponible(User.Home)

End

Public Sub Button1_Click()

Dialog.Path = User.Home 'Asigna la ruta predeterminada de dialog cuando se abre)

If Dialog.SelectDirectory() Then Return ' si no se selecciona un directorio dialog devuelve true y retorna
' no haciendo nada y no ejecutando las lineas siguientes. (

TextBox1.Text = Dialog.Path 'pega la ruta elegida en textbox1

EspacioDisponible(Dialog.Path) ' llama a la subrutina EspacioDisponible

End


Public Sub EspacioDisponible(dir As String)

TextLabel1.Text = "Espacio disponible: <b>" & Format$(CString(Dfree(dir) / 1000000), "#.#") & " MB</b>"

'dfree retorna un integer en bytes y para saber los MegaBytes dividimos en 1000000
'cstring convierte el intenger en string para poder concatenarlo con el texto y no de error
'format$ le damos un forma de visualizar el resultado a nuestro gusto en este caso yo elegi "#.#"
'que mostrara todos los numeros a la izquierda y solo una cifra a la derecha

End



Descargar código fuente:
https://www.dropbox.com/s/duqudql1xh6da8m/Usando-DFree-0.0.1.tar.gz?dl=0

Asi se ve en el programa Taller2015

lunes, 28 de diciembre de 2015

Como guardar y extraer archivo en base de datos sqlite3 (Blob)

Hola!,
A raíz que en el programa taller2015 necesito agregar la info de la microempresa y entre esa información un logo que seria una imagen png o de otro tipo de 256x256 en un campo de tipo Blob el cual nunca he usado;me puse a investigar un poco y surgio  el siguiente ejemplo practico que comparto con ustedes novatos jajajaj.


' By postapase

Public MiConexion As Connection

Public Sub Form_Open()

MiConexion = New Connection
MiConexion.Type = "sqlite3"
MiConexion.Host = User.Home
MiConexion.Name = "EmpresaBD"
MiConexion.Open

End

Public Sub Button1_Click()
Dim Fichero As String
Dim Resultado As Result

Dialog.Filter = ["*", "All Files"]
Dialog.Title = "Select the file to insert into the BLOB field"

If Dialog.OpenFile() Then Return

If Not MiConexion.Opened Then MiConexion.Open

Fichero = File.Load(Dialog.Path)

Resultado = MiConexion.Edit("infoEmpresa", "idInfoEmp=1")
Resultado!nomArch = File.Name(Dialog.Path)
Resultado!logo = Fichero
Resultado.Update

End


Public Sub Button2_Click()
Dim contenido As String, Archivo As FILE
Dim Resultado As Result

Resultado = MiConexion.find("infoEmpresa", "idInfoEmp=1")
Contenido = Resultado!logo

Archivo = Open User.Home &/ "logo.png" For Create
Write #Archivo, contenido, Len(contenido)
Close #Archivo

PictureBox1.Picture = Picture.Load(User.Home &/ "logo.png")

End

Descargan el código los desempaquetan y ponen la base de datos en user.home para poder usarlo, también hay tres imágenes para probarlo.

Código fuente: 
baseInfoEmpresa-0.0.1.tar.gz

Ejemplo2_Blob(sqlite3)-0.1.tar.gz

Saludos, y comenten que les parece.

Comandos, funciones, tipos de datos etc. de sql en consola Gambas


Les dejo esta info que encontre en el componente gb.eval.highlight 
 (ruta: gambas3-3.8.3/comp/src/gb.eval.highlight)  en el cual encontre estos comandos, la razón de tenerlos a mano es que a veces no sabes la sintaxis exacta o desconocemos un comando pero... hechandole un vistaso a esta lista podemos resolver.
 (todo esto cuando ejecutamos sentencias sql en gambas)



DataTypes (tipos de datos)

::
BIGINT
BIGSERIAL
BINARY
BIT
BLOB
BOOL
BOOLEAN
BOX
BYTEA
CHAR
CHARACTER
CIDR
CIRCLE
DATE
DATETIME
DEC
DECIMAL
DOUBLE
DOUBLE
ENUM
FIXED
FLOAT
FLOAT8
INET
INT
INT2
INT4
INT8
INTEGER
INTERVAL
LINE
LONG
LONGBLOB
LONGTEXT
LSEG
LZTEXT
MACADDR
MEDIUMBLOB
MEDIUMINT
MEDIUMTEXT
MIDDLEINT
MONEY
NUMERIC
OID
PATH
POINT
POLYGON
PRECISION
REAL
SERIAL
SERIAL8
SMALLINT
TEXT
TIME
TIMESTAMP
TIMESTAMPTZ
TIMESTAMP WITH TIMEZONE
TIMETZ
TINYBLOB
TINYINT
TINYTEXT
VARBINARY
VARBIT
VARCHAR
VARYING
YEAR


Functions (funciones)

ABBREV
ABS
ACOS
ADDDATE
AES_DECRYPT
AES_ENCRYPT
AGE
AREA
ASCII
ASIN
ATAN
ATAN2
AVG
BENCHMARK
BIN
BIT_AND
BIT_COUNT
BIT_LENGTH
BIT_OR
BOX
BROADCAST
BTRIM
CAST
CBRT
CEIL
CEILING
CENTER
CHAR
CHARACTER_LENGTH
CHAR_LENGTH
CHR
CIRCLE
COALESCE
COL_DESCRIPTION
CONCAT
CONCAT_WS
CONNECTION_ID
CONV
CONVERT
COS
COT
COUNT
CURDATE
CURRENT_DATE
CURRENT_TIME
CURRENT_TIMESTAMP
CURRVAL
CURTIME
DATABASE
DATE_ADD
DATE_FORMAT
DATE_PART
DATE_SUB
DATE_TRUNC
DAYNAME
DAYOFMONTH
DAYOFWEEK
DAYOFYEAR
DECODE
DEGREES
DES_DECRYPT
DES_ENCRYPT
DIAMETER
ELT
ENCODE
ENCRYPT
EXP
EXPORT_SET
EXTRACT
FIELD
FIND_IN_SET
FLOOR
FORMAT
FOUND_ROWS
FROM_DAYS
FROM_UNIXTIME
GET_LOCK
GREATEST
HAS_TABLE_PRIVILEGE
HEIGHT
HEX
HOST
HOUR
INET_ATON
INET_NTOA
INITCAP
INSERT
INSTR
ISCLOSED
ISFINITE
IS_FREE_LOCK
ISOPEN
LAST_INSERT_ID
LCASE
LEAST
LEFT
LENGTH
LN
LOAD_FILE
LOCATE
LOG
LOG10
LOG2
LOWER
LPAD
LSEG
LTRIM
MAKE_SET
MASKLEN
MASTER_POS_WAIT
MAX
MD5
MID
MIN
MINUTE
MOD
MONTH
MONTHNAME
NETMASK
NETWORK
NEXTVAL
NOW
NPOINT
NULLIF
OBJ_DESCRIPTION
OCT
OCTET_LENGTH
ORD
PASSWORD
PATH
PCLOSE
PERIOD_ADD
PERIOD_DIFF
PG_CLIENT_ENCODING
PG_GET_INDEXDEF
PG_GET_RULEDEF
PG_GET_USERBYID
PG_GET_VIEWDEF
PI
POINT
POLYGON
POPEN
POSITION
POW
POWER
QUARTER
QUOTE
RADIANS
RADIUS
RAND
RANDOM
RELEASE_LOCK
REPEAT
REPLACE
REVERSE
RIGHT
ROUND
RPAD
RTRIM
SECOND
SEC_TO_TIME
SESSION_USER
SET_MASKLEN
SETVAL
SHA
SHA1
SIGN
SIN
SOUNDEX
SPACE
SQRT
STD
STDDEV
STRPOS
SUBDATE
SUBSTR
SUBSTRING
SUBSTRING_INDEX
SUM
SYSDATE
SYSTEM_USER
TAN
TIME_FORMAT
TIMEOFDAY
TIMESTAMP
TIME_TO_SEC
TO_ASCII
TO_CHAR
TO_DATE
TO_DAYS
TO_NUMBER
TO_TIMESTAMP
TRANSLATE
TRIM
TRUNC
UCASE
UNIX_TIMESTAMP
UPPER
USER
VARIANCE
VERSION
WEEK
WEEKDAY
WIDTH
YEAR
YEARWEEK


Keywords

ABORT
ACCESS
ACTION
ADD
ADMIN
AFTER
AGGREGATE
ALIAS
ALL
ALLOCATE
ALTER
ANALYSE
ANALYZE
AND
ANY
ARE
AS
ASC
ASENSITIVE
ASSERTION
ASSIGNMENT
ASYMMETRIC
AT
ATOMIC
AUTHORIZATION
AUTO_INCREMENT
BACKWARD
BDB
BEFORE
BEGIN
BERKELEYDB
BETWEEN
BINARY
BOTH
BREADTH
BY
CACHE
CALL
CALLED
CARDINALITY
CASCADE
CASCADED
CASE
CAST
CATALOG
CATALOG_NAME
CHAIN
CHANGE
CHARACTERISTICS
CHARACTER_LENGTH
CHARACTER_SET_CATALOG
CHARACTER_SET_NAME
CHARACTER_SET_SCHEMA
CHAR_LENGTH
CHARSET
CHECK
CHECKED
CHECKPOINT
CLASS
CLASS_ORIGIN
CLOB
CLOSE
CLUSTER
COALESCE
COBOL
COLLATE
COLLATION
COLLATION_CATALOG
COLLATION_NAME
COLLATION_SCHEMA
COLUMN
COLUMN_NAME
COLUMNS
COMMAND_FUNCTION
COMMAND_FUNCTION_CODE
COMMENT
COMMIT
COMMITTED
COMPLETION
CONDITION_NUMBER
CONNECT
CONNECTION
CONNECTION_NAME
CONSTRAINT
CONSTRAINT_CATALOG
CONSTRAINT_NAME
CONSTRAINTS
CONSTRAINT_SCHEMA
CONSTRUCTOR
CONTAINS
CONTINUE
CONVERT
COPY
CORRESPONDING
COUNT
CREATE
CREATEDB
CREATEUSER
CROSS
CUBE
CURRENT
CURRENT_DATE
CURRENT_PATH
CURRENT_ROLE
CURRENT_TIME
CURRENT_TIMESTAMP
CURRENT_USER
CURSOR
CURSOR_NAME
CYCLE
DATA
DATABASE
DATABASES
DATE
DATETIME_INTERVAL_CODE
DATETIME_INTERVAL_PRECISION
DAY
DAY_HOUR
DAY_MINUTE
DAY_SECOND
DEALLOCATE
DEC
DECIMAL
DECLARE
DEFAULT
DEFERRABLE
DEFERRED
DEFINED
DEFINER
DELAYED
DELETE
DELIMITERS
DEPTH
DEREF
DESC
DESCRIBE
DESCRIPTOR
DESTROY
DESTRUCTOR
DETERMINISTIC
DIAGNOSTICS
DICTIONARY
DISCONNECT
DISPATCH
DISTINCT
DISTINCTROW
DO
DOMAIN
DOUBLE
DROP
DYNAMIC
DYNAMIC_FUNCTION
DYNAMIC_FUNCTION_CODE
EACH
ELSE
ENCLOSED
ENCODING
ENCRYPTED
END
END-EXEC
EQUALS
ESCAPE
ESCAPED
EVERY
EXCEPT
EXCEPTION
EXCLUSIVE
EXEC
EXECUTE
EXISTING
EXISTS
EXPLAIN
EXTERNAL
FALSE
FETCH
FIELDS
FINAL
FIRST
FOR
FORCE
FOREIGN      <---------
FORTRAN
FORWARD
FOUND
FREE
FREEZE
FROM
FULL
FULLTEXT
FUNCTION
GENERAL
GENERATED
GET
GLOBAL
GO
GOTO
GRANT
GRANTED
GROUP
GROUPING
HANDLER
HAVING
HIERARCHY
HIGH_PRIORITY
HOLD
HOST
HOUR
IDENTITY
IF
IGNORE
ILIKE
IMMEDIATE
IMMUTABLE
IMPLEMENTATION
IN
INCREMENT
INDEX
INDICATOR
INFILE
INFIX
INHERITS
INITIALIZE
INITIALLY
INNER
INNODB
INOUT
INPUT
INSENSITIVE    <-------
INSERT
INSTANCE
INSTANTIABLE
INSTEAD
INTERSECT
INTERVAL
INTO
INVOKER
IS
ISNULL
ISOLATION
ITERATE
JOIN
KEY
KEY_MEMBER
KEYS
KEY_TYPE
KILL
LANCOMPILER
LANGUAGE
LARGE
LAST
LATERAL
LEADING
LEFT
LENGTH
LESS
LEVEL
LIKE
LIMIT
LINES
LISTEN
LOAD
LOCAL
LOCALTIME
LOCALTIMESTAMP
LOCATION
LOCATOR
LOCK
LOWER
LOW_PRIORITY
MAP
MASTER_SERVER_ID
MATCH
MAX
MAXVALUE
MESSAGE_LENGTH
MESSAGE_OCTET_LENGTH
MESSAGE_TEXT
METHOD
MIN
MINUTE
MINVALUE
MOD
MODE
MODIFIES
MODIFY
MODULE
MONTH
MORE
MOVE
MRG_MYISAM
MUMPS
NAME
NAMES
NATIONAL
NATURAL
NEW
NEXT
NO
NOCREATEDB
NOCREATEUSER
NONE
NOT
NOTHING
NOTIFY
NOTNULL
NULL
NULLABLE
NULLIF
NUMBER
NUMERIC
OBJECT
OCTET_LENGTH
OF
OFF
OFFSET
OIDS
OLD
ON
ONLY
OPEN
OPERATION
OPERATOR
OPTIMIZE
OPTION
OPTIONALLY
OPTIONS
OR
ORDER
ORDINALITY
OUT
OUTER
OUTFILE
OUTPUT
OVERLAPS
OVERLAY
OVERRIDING
OWNER
PAD
PARAMETER
PARAMETER_MODE
PARAMETER_NAME
PARAMETER_ORDINAL_POSITION
PARAMETERS
PARAMETER_SPECIFIC_CATALOG
PARAMETER_SPECIFIC_NAME
PARAMETER_SPECIFIC_SCHEMA
PARTIAL
PASCAL
PASSWORD
PATH
PENDANT
PLI
POSITION
POSTFIX
PRECISION
PREFIX
PREORDER
PREPARE
PRESERVE
PRIMARY
PRIOR
PRIVILEGES
PROCEDURAL
PROCEDURE
PUBLIC
PURGE
READ
READS
REAL
RECURSIVE
REF
REFERENCES
REFERENCING
REGEXP
REINDEX
RELATIVE
RENAME
REPEATABLE
REPLACE
REQUIRE
RESET
RESTRICT
RESULT
RETURN
RETURNED_LENGTH
RETURNED_OCTET_LENGTH
RETURNED_SQLSTATE
RETURNS
REVOKE
RIGHT
RLIKE
ROLE
ROLLBACK
ROLLUP
ROUTINE
ROUTINE_CATALOG
ROUTINE_NAME
ROUTINE_SCHEMA
ROW
ROW_COUNT
ROWS
RULE
SAVEPOINT
SCALE
SCHEMA
SCHEMA_NAME
SCOPE
SCROLL
SEARCH
SECOND
SECTION
SECURITY
SELECT
SELF
SENSITIVE     <-------
SEQUENCE
SERIALIZABLE
SERVER_NAME
SESSION
SESSION_USER
SET
SETOF
SETS
SHARE
SHOW
SIMILAR
SIMPLE
SIZE
SOME
SONAME
SOURCE
SPACE
SPECIFIC
SPECIFIC_NAME
SPECIFICTYPE
SQL
SQL_BIG_RESULT
SQL_CALC_FOUND_ROWS
SQLCODE
SQLERROR
SQLEXCEPTION
SQL_SMALL_RESULT
SQLSTATE
SQLWARNING
SSL
STABLE
START
STARTING
STATE
STATEMENT
STATIC
STATISTICS
STDIN
STDOUT
STRAIGHT_JOIN
STRIPED
STRUCTURE
STYLE
SUBCLASS_ORIGIN
SUBLIST
SUBSTRING
SUM
SYMMETRIC
SYSID
SYSTEM
SYSTEM_USER
TABLE
TABLE_NAME
TABLES
TEMP
TEMPLATE
TEMPORARY
TERMINATE
TERMINATED
THAN
THEN
TIMEZONE_HOUR
TIMEZONE_MINUTE
TO
TOAST
TRAILING
TRANSACTION
TRANSACTION_ACTIVE
TRANSACTIONS_COMMITTED
TRANSACTIONS_ROLLED_BACK
TRANSFORM
TRANSFORMS
TRANSLATE
TRANSLATION
TREAT
TRIGGER
TRIGGER_CATALOG
TRIGGER_NAME
TRIGGER_SCHEMA
TRIM
TRUE
TRUNCATE
TRUSTED
TYPE
UNCOMMITTED
UNDER
UNENCRYPTED
UNION
UNIQUE
UNKNOWN
UNLISTEN
UNLOCK
UNNAMED
UNNEST
UNSIGNED
UNTIL
UPDATE
UPPER
USAGE
USE
USER
USER_DEFINED_TYPE_CATALOG
USER_DEFINED_TYPE_NAME
USER_DEFINED_TYPE_SCHEMA
USER_RESOURCES
USING
VACUUM
VALID
VALUE
VALUES
VARIABLE
VARYING
VERBOSE
VERSION
VIEW
VOLATILE
WHEN
WHENEVER
WHERE
WITH
WITHOUT
WORK
WRITE
XOR
YEAR
YEAR_MONTH
ZEROFILL
ZONE

Operators (operadores)

^
^=
~
~=
~*
<
<^
<<
<<=
<=
<>
<->
=
=>
>
>^
>=
>>
>>=
|
||
||/
|/
-
,
;
:=
!
!~
!~*
!=
!!
?|
?||
?-
?-|
?#
/
.
..
(
)
@
@-@
@@
*
**
&
&<
&>
&&
#
##
%
+
AND
NOT
OR

miércoles, 23 de diciembre de 2015

Cuanta memoria usa mi aplicación programada en Gambas?

A veces nos podemos preguntar cuantos recursos usa nuestra aplicación...
especialmente cuanto usa de memoria ram....

pues bien hagamos esto, cerremos la ide gambas y todos los proyectos o aplicaciones hechas con gambas.

Ahora abrimos solo nuestra aplicación antes instalada.
abrimos cualquier aplicación que muestre los procesos y buscamos esta palabra
"gbr3"

aquí un ejemplo como lo hice en mint mate con monitor de sistema.

La aplicación <Taller2015 versión 0.2.9> usa aproximadamente 20 megas de memoria ram.


también podemos obtener el nombre del programa y donde se encuentra instalado el ejecutable.

lunes, 26 de octubre de 2015

Módulo CSV ( Importar/Exportar )


Con esto de que estoy trabajando con programas que manejan base de datos y por lógica tablas me veo obligado a programar módulos o clases pues son operaciones repetitivas como la de generar un archivo con formato csv de una tabla X.
Aqui les dejo la parte de exportar... jaja a ver si me sale la de importar.
Espero que les sirva para experimentar y probar..... hagan sus comentarios si lo desean. Saludos.


' gambas module file

' by postapase

Public Sub Exportar(coneccion As Connection, tabla As Table)
Dim Resultado As Result
Dim Ruta, Lista As String
Dim Campo As Field

Dialog.Path = User.Home

If Dialog.SelectDirectory() Then Return

Ruta = Dialog.Path &/ tabla.Name & ".csv"
Print Ruta

Resultado = coneccion.Exec("Select * From " & tabla.Name)

Do While Resultado.Available

For Each Campo In tabla.Fields
Lista &= "\"" & Resultado[Campo.Name] & "\","
Next

Resultado.MoveNext
Lista = Left$(Lista, Len(Lista) - 1) ' elimina la última coma que sobra
Lista &= gb.NewLine
Loop

File.Save(Ruta, Lista)

End

Public Sub Importar()

' pendiente....

End


Llamada al módulo:

Public Sub btnCSVExport_Click()
Dim tabla As Table

tabla = FMain.Conectar1.Tables["deudas"]
CSV.Exportar(FMain.Conectar1, tabla)

End



Código Completo importar/exportar

' gambas module file

' by postapase  (modulo CSV para tabla deudas)

Public Sub Exportar(coneccion As Connection, tabla As Table, dir As String) As Boolean
Dim Resultado As Result
Dim Ruta, Lista As String
Dim Campo As Field

Ruta = dir &/ tabla.Name & ".csv"

Resultado = coneccion.Exec("Select * From " & tabla.Name)

Do While Resultado.Available

For Each Campo In tabla.Fields
Lista &= "\"" & Resultado[Campo.Name] & "\","
Next

Resultado.MoveNext
Lista = Left$(Lista, Len(Lista) - 1) ' elimina la última coma que sobra
Lista &= gb.NewLine
Loop

If Exist(Ruta) Then
Kill Ruta
Wait 0.1
File.Save(Ruta, Lista)
Else
File.Save(Ruta, Lista)
Endif

If Exist(ruta) Then
Return True
Else
Return False
Endif

End


Public Sub Importar(coneccion As Connection, tabla As Table, ruta As String)
Dim Campo As Field
Dim ListaCampos, EsteCampo, ValoresFila, SQL As String
Dim CSV As File
Dim Separados As String[]
Dim FechaIngreso As Date
Dim FechaTermino As Date
Dim EsteMonto, EstaEntrega, EsteSaldo As Integer
Dim Estado As Boolean
Dim EsteMotivo As String
Dim EstaEvolucion As String


For Each Campo In tabla.Fields
ListaCampos &= "\"" & Campo.Name & "\","
Next

ListaCampos = Left$(ListaCampos, Len(ListaCampos) - 1)

coneccion.Delete(tabla.Name)
coneccion.Exec("update sqlite_sequence set seq = 0 Where name =&1", tabla.Name)

CSV = Open ruta For Read

While Not Eof(CSV)

Line Input #CSV, ValoresFila
Separados = Split(ValoresFila)

FechaIngreso = CDate(Replace$(Separados[1], "\"", ""))
EsteMonto = CInteger(Replace$(Separados[2], "\"", ""))
EstaEntrega = CInteger(Replace$(Separados[3], "\"", ""))
EsteSaldo = CInteger(Replace$(Separados[4], "\"", ""))
EsteMotivo = Replace$(Separados[5], "\"", "")
EstaEvolucion = Replace$(Separados[6], "\"", "")
FechaTermino = CDate(Replace$(Separados[7], "\"", ""))
Estado = CBoolean(Replace$(Separados[8], "\"", ""))

SQL = "insert into \"" & tabla.Name & "\" (" & ListaCampos & ") values (&1,&2,&3,&4,&5,&6,&7,&8,&9)"

Print SQL

Try coneccion.Exec(SQL, Null, FechaIngreso, EsteMonto, EstaEntrega, EsteSaldo, EsteMotivo, EstaEvolucion, FechaTermino, Estado)

If Error Then
Print Error.Text
Print Error.Where
Print Error.Code
Endif

Wend

Close #CSV
Deudas.MostrarDeudas()

End


Llamadas al módulo

Public Sub btnCSVExport_Click()
Dim tabla As Table

Dialog.Path = User.Home

If Dialog.SelectDirectory() Then Return

tabla = FMain.Conectar1.Tables["deudas"]
If CSV.Exportar(FMain.Conectar1, tabla, Dialog.Path) Then
Message.Info("Se respaldo correctamente" & gb.NewLine & Dialog.Path &/ tabla.Name & ".csv")
Else
Message.Error("No se pudo respaldar!")
Endif

End

Public Sub btnImportarCSV_Click()
Dim tabla As Table

Dialog.Filter = ["*.csv", "Archivos .csv"]
Dialog.Path = User.Home

If Dialog.OpenFile() Then Return

tabla = FMain.Conectar1.Tables["deudas"]
CSV.Importar(FMain.Conectar1, tabla, Dialog.Path)

End




Related Posts Plugin for WordPress, Blogger...