segunda-feira, 22 de dezembro de 2014
quarta-feira, 17 de dezembro de 2014
Conexao Banco Access
Conexao Banco Access
Pedroso Informatica
Minhaconexao is Connection // Descreve a conexão Minhaconexao..User = "USER" Minhaconexao..Password = "PASSWORD" Minhaconexao..Server = "MYSERVER" Minhaconexao..Database = "Database" Minhaconexao..Provider = hAccessHFClientServer Minhaconexao..Access = hOReadWrite Minhaconexao..ExtendedInfo = "Extended information" Minhaconexao..CursorOptions = hClientCursor // Establiza a conexao HOpenConnection(Minhaconexao)
Pedroso Informatica
Minhaconexao is Connection // Descreve a conexão Minhaconexao..User = "USER" Minhaconexao..Password = "PASSWORD" Minhaconexao..Server = "MYSERVER" Minhaconexao..Database = "Database" Minhaconexao..Provider = hAccessHFClientServer Minhaconexao..Access = hOReadWrite Minhaconexao..ExtendedInfo = "Extended information" Minhaconexao..CursorOptions = hClientCursor // Establiza a conexao HOpenConnection(Minhaconexao)
Internet Verifica Conexao
Internet Verifica Conexao
Pedroso Informatica
ResConnection is boolean
ResConnection = InternetConnected()
IF ResConnection = True THEN
//Executa a sua rotina
Info("conexão internet ok")
ELSE
Info("Não existe conexão com a Internet. O programa não pode continuar")
END
Pedroso Informatica
ResConnection is boolean
ResConnection = InternetConnected()
IF ResConnection = True THEN
//Executa a sua rotina
Info("conexão internet ok")
ELSE
Info("Não existe conexão com a Internet. O programa não pode continuar")
END
Tabela Selecionar Linha
Tabela Selecionar Linha
TableSelectPlus(TABLE_EXEMPLO,5)
ExecuteProcess(TABLE_EXEMPLO,trtSelection) // use mais essa linha se nao funcionar
ExecuteProcess(TABLE_EXEMPLO,trtSelection) // use mais essa linha se nao funcionar
terça-feira, 16 de dezembro de 2014
String Juntar Direita
String Juntar Direita
[14:47:11] EMoreno: variable = Right("00000000" + variable, 8)
[14:47:23] EMoreno: en caso de que sea 8
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Numero Para String
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
Retirar Blocos
Separador CR
--------------------------------------------------------------------------------------------------------------
[14:47:11] EMoreno: variable = Right("00000000" + variable, 8)
[14:47:23] EMoreno: en caso de que sea 8
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Numero Para String
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
Retirar Blocos
Separador CR
--------------------------------------------------------------------------------------------------------------
String - Separarar CR
String - Separarar CR
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
--------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
--------------------------------------------------------------------------------------------------------------
Array Ordem Crescente
Array Ordem Crescente
Listanumeros is array of 0 int
ArrayAddLine(Listanumeros,10)
ArrayAddLine(Listanumeros,20)
ArrayAddLine(Listanumeros,5)
ArrayAddLine(Listanumeros,15)
ArraySort(Listanumeros,asAscending)
FOR x =1 TO ArrayCount(Listanumeros)
Info(Listanumeros[x])
END
Listanumeros is array of 0 int
ArrayAddLine(Listanumeros,10)
ArrayAddLine(Listanumeros,20)
ArrayAddLine(Listanumeros,5)
ArrayAddLine(Listanumeros,15)
ArraySort(Listanumeros,asAscending)
FOR x =1 TO ArrayCount(Listanumeros)
Info(Listanumeros[x])
END
segunda-feira, 15 de dezembro de 2014
Assinar:
Postagens (Atom)
Teste
teste