Click to See Complete Forum and Search --> : Database suggestion required


Indodokhazi
May 15th, 2001, 05:03 AM
I would like to distibute an app which obtains data from a database. I would like some suggestions on what (non-commercial) properietery relational database system I could use. I don't want my clients to be able to open up the db, and it must be easy to access through VB. I am currently using and Access db, but this enables my clients to get into the db and mess up the data.
Your suggestion would be greatly appreciated.
Thank You

TH1
May 15th, 2001, 05:46 AM
Why not just password protect your access database.

Iouri
May 15th, 2001, 07:06 AM
You can encrypt db to make it unreadable via Access itself

If you view an Access Database in notepad you will see "Standard Jet DB" in the header.
Changing this information will cause the database to become unreadable via Access.

'do not change it manually in word editor- db will be corrupted ( do it only through this proc)


Private Sub cmdLock_Click()
'========================
Call Lock_Database("c:\testdb\a.mdb", 1)
MsgBox "Locked"
End Sub

Private Sub cmdUnlock_Click()
'========================
Call Lock_Database("c:\testdb\a.mdb", 2)
MsgBox "Unlocked"

End Sub

Private Sub Lock_Database(sPath As String, iAction As Integer)
'========================
Dim iFreeFile As Integer
Dim lLoop As Long
Dim lLoc As Long
Dim sString As String

iFreeFile = FreeFile() 'Get free file #

Open sPath For Binary As #iFreeFile 'Open specified file for binary I/O.

lLoc = 1 'Set starting byte location

Select Case iAction 'Set the header string for the appropriate action.
Case 1
sString = "MYDB Database!!" 'Modified header data.
Case 2
sString = "Standard Jet DB" 'Default header data.
End Select

For lLoop = 5 To 19 'loop through and update byte positions 9 through 15.
Put #iFreeFile, lLoop, Mid$(sString, lLoop - 4, 1)
Next lLoop

Close #iFreeFile


End Sub



Iouri Boutchkine
iouri@hotsheet.com