Database or Registry?

Sups,
I got this declarations:

VB Code:

Public Type CityType
    Name as String
    PName as String
    HPay as Integer
    Hotel as Integer
End Type
Dim Cities[1 to 15] as CityType

I need to save all of this data, all 15 cities.
My question is, where should i save it, on a database (I dont wanna use SQL, h8 it! :D), or on registry.
That's alot of data, and if on registry, i wanna know how to remove it when uninstalling the app, so wacha think?

I would suggest saving it to a file and then encrypting it if you don't want anybody else to see it.
Registry is mostly used to store a small number of properties for your application.

I was thinkin about this way, but its alot of data, plus i got, lets say, something like 3 users playin, which is 15*3 cities...

It'll take almost same space as the registry and also it's gonna be pretty messy in the registery saving a lot of stuff. So you can either use a database file (eg .mdb) or simple ascii file as I said above.

K. Is there a way to remove the data from the registry?

Hi Stiletto,
Well..why u r not using ACESS 2000 as backend? Any problems?
Well..i don't know much about registry..but i think u can store this data in one single key in registry. for eg. u can store Hpay and ZHOtel as "DWORD" valuse in registry while Name and Pname will be stored as "String". And while unstalling the applicaton, u can delete that particular key from Registy.
Ayone pls. correct me if i'm wrong.
Anita

There are lot of example on working with the registry on this forum.
One of them is
http://www.vbforums.com/showthread.p...e+registry+key

Something like that is just begging to be stored in a txt file. I would not fool with a DB overhead for such a small amount of data. But then again it's too much for the registry.


Use a Txt file.

this might help you get started if you want to use a text file

VB Code:

Dim Cities(1 To 15) As CityType
 
Private Type CityType
    Name As String
    PName As String
    HPay As Integer
    Hotel As Integer
End Type
 
Private Sub Form_Load()
    Dim i As Integer
    For i = LBound(Cities) To UBound(Cities)
        Let Cities(i).Name = "Name " & Str(i)
        Let Cities(i).PName = "PName " & Str(i)
        Let Cities(i).HPay = i
        Let Cities(i).Hotel = i
    Next i
End Sub
 
Private Sub Command1_Click()
    Dim FF, i As Integer
    Let FF = FreeFile
    Open App.Path & "\cities.txt" For Append As #FF
    
    For i = LBound(Cities) To UBound(Cities)
        Print #FF, Cities(i).Name & "," & Cities(i).PName & "," & Str(Cities(i).HPay) & "," & Str(Cities(i).Hotel)
    Next i
    
    Close #FF
End Sub
 
Private Sub Command2_Click()
    Dim strSplit() As String
    Dim i As Integer
    
    strSplit = Split(GetCityType(3, (App.Path & "\cities.txt")), ",")
    
    For i = LBound(strSplit) To UBound(strSplit)
        MsgBox strSplit(i)
    Next i
End Sub
 
Private Function GetCityType(intCityToGet As Integer, strFileName As String) As String
    Dim FF, i As Integer
    Let FF = FreeFile
    Let i = 1
    Dim strName, strPName, strHPay, strHotel As String
    
    Open strFileName For Input As #FF
    Do While Not EOF(FF)
        Input #FF, strName, strPName, strHPay, strHotel
        If i = intCityToGet Then Exit Do
        i = i + 1
    Loop
    
    Let GetCityType = strName & "," & strPName & "," & strHPay & "," & strHotel
End Function