PROCEDURE DB_Inicialize(TrueFalse)
Server, User, Password, BD is string
NextTitle("Atenção")
IF TrueFalse = True THEN
PathFile is string = fCurrentDir( fCurrentDrive() ) +"\config.ini"
IF fFileExist(PathFile) = True THEN
Server = INIRead("Nagyro", "Server", "", PathFile)
IF ErrorOccurred = True AND Server = "" THEN
Error()
END
User = INIRead("Nagyro", "User", "", PathFile)
IF ErrorOccurred = True AND User = "" THEN
Error()
END
Password = INIRead("Nagyro","Password", "", PathFile)
IF ErrorOccurred = True AND Password = "" THEN
Error()
END
BD = INIRead("Nagyro", "BD", "", PathFile)
IF ErrorOccurred = True AND BD = "" THEN
Error()
END
Sincronizar = INIRead("Nagyro", "Sincronizar", "", PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END
HCloseConnection(ConnNativa)
ConnNativa..Server = Server
ConnNativa..User = User
ConnNativa..Password = Password
ConnNativa..Database = BD
ConnNativa..Provider = hNativeAccessSQLServer
ConnNativa..Access = hOReadWrite
ConnNativa..ExtendedInfo = "Extended information"
ConnNativa..CursorOptions = hClientCursor
ok is boolean = HOpenConnection(ConnNativa)
IF ok = False
Info(ErrorInfo())
Close()
ELSE
Info("OK")
END
ELSE
Info("Arquivo de configuração config.ini não localizado.")
END
END
IF Sincronizar = "S" THEN
ExeRun("NET TIME \\192.168.1.180 /SET /YES",exeIconize,exeDontWait)
END |