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