Páginas

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)




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


Tabela Selecionar Linha

Tabela Selecionar Linha


TableSelectPlus(TABLE_EXEMPLO,5)

ExecuteProcess(TABLE_EXEMPLO,trtSelection) // use mais essa linha se nao  funcionar