2022.02 20220200 1 0 0 0 0 0 1268860927 3 0 0 0 384 1 1 1 SQLServerConnect com.strawberrysw.sqlserverconnect SQLServerConnect.exe 0 Tim Parnell 0 1 SQLServerConnect -1 -1 1 8080 Launching... The application has gone off-line. Please try again later. SQLServerConnect 1 4 1 0 0 0 {35138b9a-5d96-4fbd-8e2d-a2440225f93a}|{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}|{1f676c76-80e1-4239-95bb-83d0f6d0da78}|{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a} 0 App 0 1 WebApplication 1 0 1 Opening 1 761042943 134217984 Sub Opening(args() as String) #pragma unused args ConnectMBS End Sub HandleURL 1 685596671 134217984 Function HandleURL(Request As WebRequest, Response As WebResponse) As Boolean #pragma unused Request #pragma unused Response // Prevent sessions return true End Function ConnectODBC 1 1051607039 134217984 Sub ConnectODBC() var oDSN as DSN = GetDSN // Could never get ODBCDatabase to connect var DB as new ODBCDatabase DB.DataSource = oDSN.ToString try Print("DSN: " + DB.DataSource) DB.Connect Print("Database connected") DB.Close catch ex as DatabaseException Print("Database connect failed") Print(ex.Message) if ex.ErrorNumber <> 0 then Print("Error Number: " + Format(ex.ErrorNumber, "-#")) end end try End Sub 134217984 1 0 ConnectMBS 1 1515132927 134217984 Sub ConnectMBS() var oDSN as DSN = GetDSN var DBMBS as new SQLDatabaseMBS DBMBS.DatabaseName = "ODBC:" + oDSN.ToString DBMBS.Option("UseAPI") = "ODBC" // DB Library settings DBMBS.Option("DBPROP_INIT_TIMEOUT") = "10" DBMBS.Option("DBPROP_COMMANDTIMEOUT") = "10" // ODBC settings DBMBS.Option("SQL_ATTR_QUERY_TIMEOUT") = "10" DBMBS.Option("SQL_ATTR_CONNECTION_TIMEOUT") = "10" if DBMBS.ConnectMT then Print("Database connected") DBMBS.RaiseExceptions = true else Print("Database connect failed") Print(DBMBS.ErrorMessage) if DBMBS.ErrorCode <> 0 then Print("Error Number: " + Format(DBMBS.ErrorCode, "-#")) end end End Sub 134217984 1 0 GetDSN 1 212033535 134217984 Function GetDSN() As DSN #pragma Error "Add connection details here" var oDSN as new DSN oDSN.Server = "" oDSN.Username = "" oDSN.Password = "" oDSN.Database = "db_" return oDSN End Function 134217984 33 0 DSN 0 DSN 0 1 1 0 ToString 1 150845439 134217984 Function ToString() As String var ars() as String ars.Add("DRIVER=" + me.Driver) ars.Add("Server=" + me.Server) ars.Add("Port=" + me.Port.ToString("###0")) ars.Add("UId=" + me.Username) // Doesn't support quotes in the password 😬 ars.Add("PWD=" + me.Password) if me.Database <> "" then ars.Add("Database=" + me.Database) end ars.Add("TDS_VERSION=7.2") // Build DSN return String.FromArray(ars, ";") End Function 134217984 0 0 String Constructor 1 576925695 134217984 Sub Constructor() // Set up default driver // Requires more than what's possible with a Constant #if TargetLinux then if msArch = "" then var oShell as new Shell oShell.Execute("uname -m") msArch = oShell.Result.DefineEncoding(Encodings.UTF8).Trim end me.Driver = "/usr/lib/" + msArch + "-linux-gnu/odbc/libtdsodbc.so" #elseif TargetMacOS then me.Driver = "libtdsodbc.dylib" #elseif TargetWindows then const kVersion = "17" me.Driver = "{ODBC Driver " + kVersion + " for SQL Server} #endif End Sub 134217984 0 0 Server 1 1049886719 134217984 Server As String 134217984 Server As String 0 0 Driver 1 567195647 134217984 Driver As String 134217984 Driver As String 0 0 Username 1 219701247 134217984 Username As String 134217984 Username As String 0 0 Password 1 431296511 134217984 Password As String 134217984 Password As String 0 0 Database 1 763240447 134217984 Database As String 134217984 Database As String 0 0 Port 1 1299113983 134217984 Port As Integer = 1433 134217984 Port As Integer = 1433 0 0 msArch 1 334747647 134217984 Shared msArch As String 134217984 msArch As String 33 1 Name 1 ID String Index 1 ID -2147483648 Integer Super 1 ID String Left 1 Position 0 Integer Top 1 Position 0 Integer Server Behavior String MultiLineEditor Driver Behavior libtdsodbc.so String MultiLineEditor Username Behavior String MultiLineEditor Password Behavior String MultiLineEditor Database Behavior String MultiLineEditor Port Behavior 1433 Integer Build Automation 0 Linux 1806510079 Build 244064255 Mac OS X 1806510079 Build 1546254335 Sign 1546254335 Windows 1806510079 Build 73562111 Xojo Cloud 1806510079 Build 440582143 Unused 0 Session 1325154303 1 WebSession 1 0 We are having trouble communicating with the server. Please wait a moment while we attempt to reconnect. You have been disconnected from this application. True Index 1 ID -2147483648 Integer Name 1 ID String Super 1 ID String Left 1 Position 0 Integer Top 1 Position 0 Integer HashTag Behavior String MultiLineEditor Identifier Behavior String MultiLineEditor LanguageCode Behavior String MultiLineEditor LanguageRightToLeft Behavior Boolean RemoteAddress Behavior String MultiLineEditor ScaleFactor Behavior Double UserTimeout Behavior Integer URL Behavior String MultiLineEditor _baseurl Behavior string MultiLineEditor DisconnectMessage 1 Behavior You have been disconnected from this application. String MultiLineEditor InterruptionMessage 1 Behavior We are having trouble communicating with the server. Please wait a moment while we attempt to reconnect. String MultiLineEditor _LastMessageTime Behavior Double AllowTabOrderWrap Behavior Boolean ConfirmDisconnectMessage 1 Behavior String MultiLineEditor Platform Behavior String MultiLineEditor IsDarkMode Behavior Boolean ClientHeight Behavior Integer ClientWidth Behavior Integer WebPage1 1325154303 1 WebPage 1 0 0 0 0 True False 0 0 False True False True False True False False 0 False 0 0 -2147483648 -1 True Untitled 400 600 400 600 _mPanelIndex Behavior -1 Integer Index 1 ID -2147483648 Integer Name 1 ID String Super 1 ID String Left 1 Position 0 Integer Top 1 Position 0 Integer ControlID Behavior String MultiLineEditor Enabled Behavior Boolean Height 1 Behavior 400 Integer LayoutType 1 Behavior LayoutTypes.Fixed LayoutTypes Enum 0 - Fixed 1 - Flex LockBottom 1 Behavior False Boolean LockHorizontal 1 Behavior False Boolean LockLeft 1 Behavior True Boolean LockRight 1 Behavior False Boolean LockTop 1 Behavior True Boolean LockVertical 1 Behavior False Boolean MinimumHeight 1 Behavior 400 Integer MinimumWidth 1 Behavior 600 Integer Title 1 Behavior Untitled String MultiLineEditor Visible Behavior True Boolean Width 1 Behavior 600 Integer _ImplicitInstance Behavior Boolean _mDesignHeight Behavior Integer _mDesignWidth Behavior Integer _mName Behavior String MultiLineEditor IsImplicitInstance Behavior Boolean AllowTabOrderWrap Behavior True Boolean TabIndex 1 Visual Controls Integer Indicator Visual Controls WebUIControl.Indicators Enum 0 - Default 1 - Primary 2 - Secondary 3 - Success 4 - Danger 5 - Warning 6 - Info 7 - Light 8 - Dark 9 - Link LayoutDirection 1 WebView LayoutDirections.LeftToRight LayoutDirections Enum 0 - LeftToRight 1 - RightToLeft 2 - TopToBottom 3 - BottomToTop 5 0 6 0 7 0 14 0 2 0 -2 0 16 0 0 1 0 App.GetDSN 1898366975 0