ODBC in QB64 (Windows)

[SpriggsySpriggs]

I've recently started working with the database engine at my current job. We use ODBC to connect our software to the database. This got me thinking about ODBC and how hard it might be to use in QB64. Turns out, it is surprisingly easy. Easier than the MySQL code from the Wiki. ODBC can be used to connect to any database that can use an ODBC connection. You simply set up the data source on your computer by installing the necessary drivers and adding it to "ODBC Data Sources". For instance, for MySQL, you'd look up "MySQL ODBC connector" on Google. Super simple. I'm not posting full code here just yet as I am still working on trying to make sure the library/wrapper has all the functionality I would expect from a library that communicates with databases.

Below are some snippets to show some of the core functionality:

To open a connection:

Code: QB64 $NOPREFIX: [Select]

1. DB_Open "SpriggsyWinServer" 'if you already know the name of the DSN or got it from input
2. 'OR
3. DB_Open "" 'if you do not have it hard-coded or did not receive input, Windows will open the data source selection box

To query the database:

Code: QB64 $NOPREFIX: [Select]

1. DB_QUERY "select * from root.table1"

The TYPE being used to store the results:

Code: QB64 $NOPREFIX: [Select]

1. Type SQL_FIELD
2.     As Integer type 'identifies what sort of data is stored in that column. VARCHAR, NUMERIC, etc
3.     As Unsigned Integer size 'the maximum size allowed to be stored in that column
4.     As Byte isNullable 'whether or not the column allows null values. Not all database engines report this value correctly. Adjust accordingly.
5.     As Integer decimalDigits 'If the data type is NUMERIC or DECIMAL, this will be the number of digits allowed after the decimal place
6.     As String columnName, value 'The name of the column and the value in the field
7. End Type
8.  

I store the TYPE in a two-dimensional array

Code: QB64 $NOPREFIX: [Select]

1. ReDim Shared As SQL_FIELD DB_Result(1 To 1, 1 To 1)

A simple printing:

Code: QB64 $NOPREFIX: [Select]

1. Dim As Unsigned Integer row, column
2. For row = 1 To UBound(DB_Result, 2)
3.     Print "Row"; row
4.     For column = 1 To UBound(DB_Result, 1)
5.         Print "  "; column; GetDataType(DB_Result(column, row).type);
6.         If DB_Result(column, row).type = SQL_DECIMAL Or DB_Result(column, row).type = SQL_NUMERIC Then
7.             Print "("; Trim$(Str$(DB_Result(column, row).size)); ","; Trim$(Str$(DB_Result(column, row).decimalDigits)); ") ";
8.         Else
9.             Print "("; Trim$(Str$(DB_Result(column, row).size)); ") ";
10.         End If
11.  
12.         If DB_Result(column, row).isNullable = 0 Then
13.             Print DB_Result(column, row).columnName; " "; DB_Result(column, row).value; " "; "Not nullable"
14.         Else Print DB_Result(column, row).columnName; " "; DB_Result(column, row).value
15.         End If
16.     Next
17. Next

Screenshot showing the above code in action:
 

To close a connection:

Code: QB64 $NOPREFIX: [Select]

1. DB_Close

[SpriggsySpriggs]

Here is my test code so far. This will eventually be broken up into a BI & BM style library. The code does work in 64 and 32 bit Windows.

Code: QB64 $NOPREFIX: [Select]

1. Option Explicit
2. $NoPrefix
3. $Console:Only
4. $VersionInfo:Comments=Testing ODBC connections in Windows using QB64
5. $ExeIcon:'databases.ico'
6. Icon
7.  
8. Type SQL_FIELD
9.     As Integer type
10.     As Unsigned Integer size
11.     As Byte isNullable
12.     As Integer decimalDigits
13.     As String columnName, value
14. End Type
15.  
16. Const SQL_SUCCESS = 0
17.  
18. Dim Shared As Offset hEnv, hDbc, hStmt
19. ReDim Shared As SQL_FIELD DB_Result(1 To 1, 1 To 1)
20. Dim Shared As String ConnectionString
21. Dim As String datasource: datasource = "SpriggsyWinServer"
22.  
23. 'If DB_Open(datasource) Then
24. DB_Open datasource
25. Dim As String conTitle: conTitle = "ODBC Test - " + datasource: ConsoleTitle conTitle
26. If DB_QUERY("SELECT * FROM root.table1") = SQL_SUCCESS Then
27.     DB_DetailResult
28. End If
29. DB_Close
30. 'Else System
31. 'End If
32.  
33. Declare Dynamic Library "odbc32"
34.     Sub SQLAllocHandle (ByVal HandleType As Integer, Byval InputHandle As Offset, Byval OutputHandlePtr As Offset)
35.     Function SQLGetDiagRec%& (ByVal HandleType As Integer, Byval Handle As Offset, Byval RecNumber As Integer, Byval SQLState As Offset, Byval NativeErrorPtr As Offset, Byval MessageText As Offset, Byval BufferLength As Integer, Byval TextLengthPtr As Offset)
36.     Sub SQLSetEnvAttr (ByVal EnvironmentHandle As Offset, Byval Attribute As Long, Byval ValuePtr As Offset, Byval StringLength As Long)
37.     Function SQLDriverConnect%& (ByVal ConnectionHandle As Offset, Byval WindowHandle As Offset, InConnectionString As String, Byval StringLength1 As Integer, Byval OutConnectionString As Offset, Byval BufferLength As Integer, Byval StringLength2Ptr As Offset, Byval DriverCompletion As Unsigned Integer)
38.     Sub SQLPrepare (ByVal StatementHandle As Offset, StatementText As String, Byval TextLength As Long)
39.     Sub SQLExecute (ByVal StatementHandle As Offset)
40.     Function SQLExecute%& (ByVal StatementHandle As Offset)
41.     Sub SQLNumResultCols (ByVal StatementHandle As Offset, Byval ColumnCountPtr As Offset)
42.     Sub SQLDescribeCol (ByVal StatementHandle As Offset, Byval ColumnNumber As Unsigned Integer, Byval ColumnName As Offset, Byval BufferLength As Integer, Byval NameLengthPtr As Offset, Byval DataTypePtr As Offset, Byval ColumnSizePtr As Offset, Byval DecimalDigitsPtr As Offset, Byval NullablePtr As Offset)
43.     Function SQLFetch%& (ByVal StatementHandle As Offset)
44.     Function SQLGetData%& (ByVal StatementHandle As Offset, Byval ColOrParamNum As Unsigned Integer, Byval TargetType As Integer, Byval TargetValuePtr As Offset, Byval BufferLength As Offset, Byval StrLenOrIndPtr As Offset)
45.     Function SQLRowCount%& (ByVal StatementHandle As Offset, Byval RowCountPtr As Offset)
46.     Sub SQLFreeHandle (ByVal HandleType As Integer, Byval Handle As Offset)
47.     Sub SQLDisconnect (ByVal ConnectionHandle As Offset)
48. End Declare
49.  
50. Declare CustomType Library
51.     Function GetDesktopWindow%& ()
52. End Declare
53.  
54. Function DB_Open%% (dsn As String)
55.     Const SQL_HANDLE_ENV = 1
56.     Const SQL_HANDLE_DBC = 2
57.     Const SQL_HANDLE_STMT = 3
58.     Const SQL_DRIVER_COMPLETE = 1
59.     Const SQL_NULL_HANDLE = 0
60.     Const SQL_NTS = -3
61.     Const SQL_ATTR_ODBC_VERSION = 200
62.     Const SQL_OV_ODBC3 = 3~&
63.  
64.     Dim As Offset ret
65.     SQLAllocHandle SQL_HANDLE_ENV, SQL_NULL_HANDLE, Offset(hEnv)
66.     SQLSetEnvAttr hEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0
67.     SQLAllocHandle SQL_HANDLE_DBC, hEnv, Offset(hDbc)
68.     Dim As String outstr: outstr = Space$(1024)
69.     Dim As Integer outstrlen
70.     If dsn = "" Then
71.         ret = SQLDriverConnect(hDbc, GetDesktopWindow, "", SQL_NTS, Offset(outstr), Len(outstr), Offset(outstrlen), SQL_DRIVER_COMPLETE)
72.     Else
73.         ret = SQLDriverConnect(hDbc, 0, "DSN=" + dsn + ";", SQL_NTS, Offset(outstr), Len(outstr), Offset(outstrlen), SQL_DRIVER_COMPLETE)
74.     End If
75.     ConnectionString = Mid$(outstr, 1, outstrlen)
76.     SQLAllocHandle SQL_HANDLE_STMT, hDbc, Offset(hStmt)
77.     If SQL_SUCCEEDED(ret) Then
78.         DB_Open = -1
79.     Else
80.         DB_Error "DB_Open", hDbc, SQL_HANDLE_DBC
81.         DB_Open = 0
82.     End If
83. End Function
84.  
85. Sub DB_Open (dsn As String)
86.     Const SQL_HANDLE_ENV = 1
87.     Const SQL_HANDLE_DBC = 2
88.     Const SQL_HANDLE_STMT = 3
89.     Const SQL_DRIVER_COMPLETE = 1
90.     Const SQL_NULL_HANDLE = 0
91.     Const SQL_NTS = -3
92.     Const SQL_ATTR_ODBC_VERSION = 200
93.     Const SQL_OV_ODBC3 = 3~&
94.  
95.     Dim As Offset ret
96.     SQLAllocHandle SQL_HANDLE_ENV, SQL_NULL_HANDLE, Offset(hEnv)
97.     SQLSetEnvAttr hEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0
98.     SQLAllocHandle SQL_HANDLE_DBC, hEnv, Offset(hDbc)
99.     Dim As String outstr: outstr = Space$(1024 + 1)
100.     Dim As Integer outstrlen
101.     If dsn = "" Then
102.         ret = SQLDriverConnect(hDbc, GetDesktopWindow, "", SQL_NTS, Offset(outstr), Len(outstr), Offset(outstrlen), SQL_DRIVER_COMPLETE)
103.     Else
104.         ret = SQLDriverConnect(hDbc, 0, "DSN=" + dsn + ";", SQL_NTS, Offset(outstr), Len(outstr), Offset(outstrlen), SQL_DRIVER_COMPLETE)
105.     End If
106.     ConnectionString = Mid$(outstr, 1, outstrlen)
107.     SQLAllocHandle SQL_HANDLE_STMT, hDbc, Offset(hStmt)
108.     If Not (SQL_SUCCEEDED(ret)) Then
109.         DB_Error "DB_Open", hDbc, SQL_HANDLE_DBC
110.     End If
111. End Sub
112.  
113. Sub DB_QUERY (sql_command As String)
114.     Const SQL_CHAR = 1
115.     Const SQL_C_CHAR = SQL_CHAR
116.     Const SQL_NO_NULLS = 0
117.     Const SQL_NULLABLE = 1
118.     Const SQL_NULLABLE_UNKNOWN = 2
119.     Const SQL_NULL_DATA = -1
120.     Const SQL_NTS = -3
121.  
122.     Dim As Offset ret, execCode
123.     SQLPrepare hStmt, sql_command, SQL_NTS
124.     execCode = SQLExecute(hStmt)
125.     If SQL_SUCCEEDED(execCode) Then
126.         Dim As Integer columns
127.         SQLNumResultCols hStmt, Offset(columns)
128.         ret = SQLFetch(hStmt)
129.         Dim As Long row
130.         While SQL_SUCCEEDED(ret)
131.             Dim As Unsigned Integer i
132.             row = row + 1
133.             For i = 1 To columns
134.                 Dim As Long indicator
135.                 Dim As String buf: buf = Space$(4096 + 1)
136.                 Dim As String columnName: columnName = Space$(128)
137.                 Dim As Integer colNameLength, dataType, decimalDigits, nullable
138.                 Dim As Unsigned Integer columnSize
139.                 ret = SQLGetData(hStmt, i, SQL_C_CHAR, Offset(buf), Len(buf), Offset(indicator))
140.                 If SQL_SUCCEEDED(ret) Then
141.                     ReDim Preserve As SQL_FIELD DB_Result(columns, row)
142.                     buf = Mid$(buf, 1, indicator)
143.                     If indicator = SQL_NULL_DATA Then buf = "NULL"
144.                     SQLDescribeCol hStmt, i, Offset(columnName), Len(columnName), Offset(colNameLength), Offset(dataType), Offset(columnSize), Offset(decimalDigits), Offset(nullable)
145.                     columnName = Mid$(columnName, 1, colNameLength)
146.                     DB_Result(i, row).type = dataType
147.                     DB_Result(i, row).size = columnSize
148.                     DB_Result(i, row).decimalDigits = decimalDigits
149.                     DB_Result(i, row).columnName = columnName
150.                     DB_Result(i, row).value = buf
151.                     Select Case nullable
152.                         Case SQL_NO_NULLS
153.                             DB_Result(i, row).isNullable = 0
154.                         Case SQL_NULLABLE
155.                             DB_Result(i, row).isNullable = -1
156.                     End Select
157.                 End If
158.             Next
159.             ret = SQLFetch(hStmt)
160.         Wend
161.     Else
162.         DB_Error "DB_QUERY", hStmt, 3
163.     End If
164. End Sub
165.  
166. Function DB_QUERY%& (sql_command As String)
167.     Const SQL_CHAR = 1
168.     Const SQL_C_CHAR = SQL_CHAR
169.     Const SQL_NO_NULLS = 0
170.     Const SQL_NULLABLE = 1
171.     Const SQL_NULLABLE_UNKNOWN = 2
172.     Const SQL_NULL_DATA = -1
173.     Const SQL_NTS = -3
174.     Const SQL_SUCCESS = 0
175.  
176.     Dim As Offset ret, execCode
177.     SQLPrepare hStmt, sql_command, SQL_NTS
178.     execCode = SQLExecute(hStmt)
179.     If SQL_SUCCEEDED(execCode) Then
180.         Dim As Integer columns
181.         SQLNumResultCols hStmt, Offset(columns)
182.         ret = SQLFetch(hStmt)
183.         Dim As Long row
184.         While SQL_SUCCEEDED(ret)
185.             Dim As Unsigned Integer i
186.             row = row + 1
187.             For i = 1 To columns
188.                 Dim As Long indicator
189.                 Dim As String buf: buf = Space$(4096 + 1)
190.                 Dim As String columnName: columnName = Space$(128)
191.                 Dim As Integer colNameLength, dataType, decimalDigits, nullable
192.                 Dim As Unsigned Integer columnSize
193.                 ret = SQLGetData(hStmt, i, SQL_C_CHAR, Offset(buf), Len(buf), Offset(indicator))
194.                 If SQL_SUCCEEDED(ret) Then
195.                     ReDim Preserve As SQL_FIELD DB_Result(columns, row)
196.                     buf = Mid$(buf, 1, indicator)
197.                     If indicator = SQL_NULL_DATA Then buf = "NULL"
198.                     SQLDescribeCol hStmt, i, Offset(columnName), Len(columnName), Offset(colNameLength), Offset(dataType), Offset(columnSize), Offset(decimalDigits), Offset(nullable)
199.                     columnName = Mid$(columnName, 1, colNameLength)
200.                     DB_Result(i, row).type = dataType
201.                     DB_Result(i, row).size = columnSize
202.                     DB_Result(i, row).decimalDigits = decimalDigits
203.                     DB_Result(i, row).columnName = columnName
204.                     DB_Result(i, row).value = buf
205.                     Select Case nullable
206.                         Case SQL_NO_NULLS
207.                             DB_Result(i, row).isNullable = 0
208.                         Case SQL_NULLABLE
209.                             DB_Result(i, row).isNullable = -1
210.                     End Select
211.                 End If
212.             Next
213.             ret = SQLFetch(hStmt)
214.         Wend
215.     Else
216.         DB_Error "DB_QUERY", hStmt, 3
217.     End If
218.     DB_QUERY = execCode
219. End Function
220.  
221. Function DB_Esc$ (columnName As String)
222.     DB_Esc = "`" + columnName + "`"
223. End Function
224.  
225. Function DB_Q$ (value As String)
226.     DB_Q = "'" + value + "'"
227. End Function
228.  
229. Function DB_AffectedRows%&
230.     Dim As Offset rowCount
231.     Dim As Offset ret: ret = SQLRowCount(hStmt, Offset(rowCount))
232.     If SQL_SUCCEEDED(ret) Then DB_AffectedRows = rowCount
233. End Function
234.  
235. Sub DB_DetailResult
236.     Const SQL_DECIMAL = 3
237.     Const SQL_NUMERIC = 2
238.     Dim As Unsigned Integer row, column
239.     Print "Connection: "; ConnectionString
240.     For row = 1 To UBound(DB_Result, 2)
241.         Print "Row"; row
242.         For column = 1 To UBound(DB_Result, 1)
243.             Print "  "; column; GetDataType(DB_Result(column, row).type);
244.             If DB_Result(column, row).type = SQL_DECIMAL Or DB_Result(column, row).type = SQL_NUMERIC Then
245.                 Print "("; Trim$(Str$(DB_Result(column, row).size)); ","; Trim$(Str$(DB_Result(column, row).decimalDigits)); ") ";
246.             Else
247.                 Print "("; Trim$(Str$(DB_Result(column, row).size)); ") ";
248.             End If
249.  
250.             If DB_Result(column, row).isNullable = 0 Then
251.                 Print DB_Result(column, row).columnName; " "; DB_Result(column, row).value; " "; "Not nullable"
252.             Else Print DB_Result(column, row).columnName; " "; DB_Result(column, row).value
253.             End If
254.         Next
255.     Next
256. End Sub
257.  
258. Sub DB_Close
259.     Const SQL_HANDLE_ENV = 1
260.     Const SQL_HANDLE_DBC = 2
261.     SQLDisconnect (hDbc)
262.     SQLFreeHandle SQL_HANDLE_DBC, hDbc
263.     SQLFreeHandle SQL_HANDLE_ENV, hEnv
264. End Sub
265.  
266. Function GetDataType$ (dataType As Integer)
267.     Const SQL_CHAR = 1
268.     Const SQL_C_CHAR = SQL_CHAR
269.     Const SQL_VARCHAR = 12
270.     Const SQL_LONGVARCHAR = -1
271.     Const SQL_WCHAR = -8
272.     Const SQL_WVARCHAR = -9
273.     Const SQL_WLONGVARCHAR = -10
274.     Const SQL_DECIMAL = 3
275.     Const SQL_NUMERIC = 2
276.     Const SQL_SMALLINT = 5
277.     Const SQL_INTEGER = 4
278.     Const SQL_REAL = 7
279.     Const SQL_FLOAT = 6
280.     Const SQL_DOUBLE = 8
281.     Const SQL_BIT = -7
282.     Const SQL_TINYINT = -6
283.     Const SQL_BIGINT = -5
284.     Const SQL_BINARY = -2
285.     Const SQL_VARBINARY = -3
286.     Const SQL_LONGVARBINARY = -4
287.     Const SQL_TYPE_DATE = 91
288.     Const SQL_TYPE_TIME = 92
289.     Const SQL_TYPE_TIMESTAMP = 93
290.     Const SQL_INTERVAL_MONTH = -81
291.     Const SQL_INTERVAL_YEAR = -80
292.     Const SQL_INTERVAL_YEAR_TO_MONTH = -82
293.     Const SQL_INTERVAL_DAY = -83
294.     Const SQL_INTERVAL_HOUR = -84
295.     Const SQL_INTERVAL_MINUTE = -85
296.     Const SQL_INTERVAL_SECOND = -86
297.     Const SQL_INTERVAL_DAY_TO_HOUR = -87
298.     Const SQL_INTERVAL_DAY_TO_MINUTE = -88
299.     Const SQL_INTERVAL_DAY_TO_SECOND = -89
300.     Const SQL_INTERVAL_HOUR_TO_MINUTE = -90
301.     Const SQL_INTERVAL_HOUR_TO_SECOND = -91
302.     Const SQL_INTERVAL_MINUTE_TO_SECOND = -92
303.     Const SQL_GUID = -11
304.  
305.     Select Case dataType
306.         Case SQL_CHAR, SQL_C_CHAR
307.             GetDataType = "CHAR"
308.         Case SQL_VARCHAR
309.             GetDataType = "VARCHAR"
310.         Case SQL_LONGVARCHAR
311.             GetDataType = "LONG VARCHAR"
312.         Case SQL_WCHAR
313.             GetDataType = "WCHAR"
314.         Case SQL_WVARCHAR
315.             GetDataType = "VARWCHAR"
316.         Case SQL_WLONGVARCHAR
317.             GetDataType = "LONGWVARCHAR"
318.         Case SQL_DECIMAL
319.             GetDataType = "DECIMAL"
320.         Case SQL_NUMERIC
321.             GetDataType = "NUMERIC"
322.         Case SQL_SMALLINT
323.             GetDataType = "SMALLINT"
324.         Case SQL_INTEGER
325.             GetDataType = "INTEGER"
326.         Case SQL_REAL
327.             GetDataType = "REAL"
328.         Case SQL_FLOAT
329.             GetDataType = "FLOAT"
330.         Case SQL_DOUBLE
331.             GetDataType = "DOUBLE PRECISION"
332.         Case SQL_BIT
333.             GetDataType = "BIT"
334.         Case SQL_TINYINT
335.             GetDataType = "TINYINT"
336.         Case SQL_BIGINT
337.             GetDataType = "BIGINT"
338.         Case SQL_BINARY
339.             GetDataType = "BINARY"
340.         Case SQL_VARBINARY
341.             GetDataType = "VARBINARY"
342.         Case SQL_LONGVARBINARY
343.             GetDataType = "LONG VARBINARY"
344.         Case SQL_TYPE_DATE
345.             GetDataType = "DATE"
346.         Case SQL_TYPE_TIME
347.             GetDataType = "TIME"
348.         Case SQL_TYPE_TIMESTAMP
349.             GetDataType = "TIMESTAMP"
350.         Case SQL_INTERVAL_MONTH
351.             GetDataType = "INTERVAL MONTH"
352.         Case SQL_INTERVAL_YEAR
353.             GetDataType = "INTERVAL YEAR"
354.         Case SQL_INTERVAL_YEAR_TO_MONTH
355.             GetDataType = "INTERVAL YEAR TO MONTH"
356.         Case SQL_INTERVAL_DAY
357.             GetDataType = "INTERVAL DAY"
358.         Case SQL_INTERVAL_HOUR
359.             GetDataType = "INTERVAL HOUR"
360.         Case SQL_INTERVAL_MINUTE
361.             GetDataType = "INTERVAL MINUTE"
362.         Case SQL_INTERVAL_SECOND
363.             GetDataType = "INTERVAL SECOND"
364.         Case SQL_INTERVAL_DAY_TO_HOUR
365.             GetDataType = "INTERVAL DAY TO HOUR"
366.         Case SQL_INTERVAL_DAY_TO_MINUTE
367.             GetDataType = "INTERVAL DAY TO MINUTE"
368.         Case SQL_INTERVAL_DAY_TO_SECOND
369.             GetDataType = "INTERVAL DAY TO SECOND"
370.         Case SQL_INTERVAL_HOUR_TO_MINUTE
371.             GetDataType = "INTERVAL HOUR TO MINUTE"
372.         Case SQL_INTERVAL_HOUR_TO_SECOND
373.             GetDataType = "INTERVAL HOUR TO SECOND"
374.         Case SQL_INTERVAL_MINUTE_TO_SECOND
375.             GetDataType = "INTERVAL MINUTE TO SECOND"
376.         Case SQL_GUID
377.             GetDataType = "GUID"
378.     End Select
379. End Function
380.  
381. Sub DB_Error (__fn As String, handle As Offset, __type As Integer)
382.     Const SQL_SUCCESS = 0
383.     Const MB_OK = 0 'OK button only
384.     Const MB_ICONEXCLAMATION = 48
385.     Dim As Long i, NativeError
386.     Dim As String SQLState: SQLState = Space$(5 + 1)
387.     Dim As String MessageText: MessageText = Space$(256 + 1)
388.     Dim As Integer TextLength
389.     Dim As Offset ret
390.  
391.     Do
392.         i = i + 1
393.         ret = SQLGetDiagRec(__type, handle, i, Offset(SQLState), Offset(NativeError), Offset(MessageText), Len(MessageText), Offset(TextLength))
394.         If SQL_SUCCEEDED(ret) Then
395.             MessageBox 0, "Error reported in " + __fn + ":" + Chr$(10) + Mid$(SQLState, 1, InStr(SQLState, Chr$(0)) - 1) + ":" + Trim$(Str$(i)) + ":" + Trim$(Str$(NativeError)) + ":" + Mid$(MessageText, 1, TextLength) + Chr$(0), "ODBC Error" + Chr$(0), MB_OK Or MB_ICONEXCLAMATION
396.         End If
397.     Loop While ret = SQL_SUCCESS
398. End Sub
399.  
400. Function SQL_SUCCEEDED& (rc As Offset)
401.     SQL_SUCCEEDED = (((rc) And (Not 1)) = 0)
402. End Function
403.  
404. $If MESSAGEBOX = UNDEFINED Then
405.     Declare Library
406.         Function MessageBox& (ByVal hWnd As _Offset, message As String, title As String, Byval uType As _Unsigned Long)
407.         Sub MessageBox (ByVal hWnd As _Offset, message As String, title As String, Byval uType As _Unsigned Long)
408.     End Declare
409.     $Let MESSAGEBOX = TRUE
410. $End If

DB_DetailResult is just a way for me to quickly print a bunch of detailed output from the SELECT query. It won't be part of the final product.

Screenshot showing successful query:
 

Screenshot showing unsuccessful query:
 

Screenshot showing ODBC data source selection window when a data source is not specified in DB_Open:
 

[KingRat]

That´s a nice approach!

Some time ago I was studying a way to work with sqlite3, I think it would be a nice feature for QB...
Btw I´ll follow this thread!

[Pete]

For my office, I created my own random access databases. For websites, I stick with HTML / CSS and use apps to generate and upload page changes, rather than updating a mySQL file and PHP to to show pages. That said, what do you see as the most common usage for pairing QB64 programs with a database system like mySQL or ODBC?

Pete

[SpriggsySpriggs]

That´s a nice approach!

Some time ago I was studying a way to work with sqlite3, I think it would be a nice feature for QB...
Btw I´ll follow this thread!

I've worked with it before on Windows in QB64. I've got a small library going that I've put on the back burner