(02-17-2023, 05:43 PM)Balderdash Wrote: Obligatory MySQL/SQLite suggestion.

(02-17-2023, 06:32 PM)bplus Wrote:

(02-17-2023, 05:43 PM)Balderdash Wrote: Obligatory MySQL/SQLite suggestion.

Ah yes, we still await the tut!   maybe Terry?

(02-17-2023, 09:12 PM)TerryRitchie Wrote:

(02-17-2023, 06:32 PM)bplus Wrote:

(02-17-2023, 05:43 PM)Balderdash Wrote: Obligatory MySQL/SQLite suggestion.

Ah yes, we still await the tut!   maybe Terry?

I thought someone had already built an SQL library for QB64. Wasn't it steve? I know he built one for Dbase.

(02-17-2023, 10:57 PM)mnrvovrfc Wrote: It would have been interesting if QB64 had to emulate more of what only BASIC v7.1 PDS offered such as ISAM.

I had a great book about "advanced" programming on M$ BASIC, first focusing on QuickBASIC for windows, menu, mouse and sprite libraries, then switching to PDS to discuss ISAM. Honestly I wished I could have done something about databases back then but I have not reformed and still badly organized about certain data aspects. Had bad experiences with SQL or relative with a music instrument plug-in called Applied Acoustic Systems Tassman. Tremendous modular synthesizer, one of the earliest but had a poor preset organization system that caused the program to crash on occasion, and no hope of extensively modifying the most complex patches. Eventually the Canadian company declined making a next version 5 with VST3 64-bit support. :/

(02-18-2023, 09:39 AM)AtomicSlaughter Wrote: Could you not just keep all the data in comma delimited strings, and then just split them as you need them

that way there is no limit to the length of the strings and you can just add data to the end of the string giving unlimited results storage

Code: (Select All)

ReDim sData(0) as string
open "StudentData.csv" for input as #1
do
line input #1, sData(ubound(sData))
ReDim _Preserve sData(Ubound(sData)+1)
loop until eof(1)

input "Enter name or id to search for> ",s$
for i = 1 to ubound(sData)
if instr(sData(i),s$) > 0 then print sData(i)
next

Sub Str2arr (ST As String, AR() As String, DL As String)
    Dim Delim(Len(DL)) As String
    For i = 1 To Len(DL)
        Delim(i) = Mid$(DL, i, 1)
    Next
    'find first delim
    c = 1
    Do
        For i = 1 To UBound(Delim)
            If Mid$(ST, c, 1) = Delim(i) Then
                ReDim _Preserve AR(UBound(AR) + 1)
                c = c + 1
                Exit For
            End If
        Next i
        AR(UBound(AR)) = AR(UBound(AR)) + Mid$(ST, c, 1)
        c = c + 1
    Loop Until c > Len(ST)
End Sub

(02-17-2023, 05:43 PM)Balderdash Wrote: Obligatory MySQL/SQLite suggestion.