Κλείδωμα Βάσεις δεδομένων Access & Visual Basic 6

[Neptous]

Έχω δημιουργήσει μια εφαρμογή που διαχειρίζεται μια βάση δεδομένων της access και θα ήθελα να κλειδώσω την βάση δεδομένων έτσι ώστε να μην μπορεί ο καθένας να την ανοίγει και να έχει πρόσβαση απευθείας στην βάση δεδομένων αλλά αυτό να γίνεται μέσω της εφαρμογής που έχω κατασκευάσει με την βάση δεδομένων συνδέομαι :

 

Dim UserInterfrace As New ADODB.Connection

AppPath = AppPath & "user.mdb"

UserInterfrace.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppPath

 

Δεν θα ήθελα να αλλάξω και τον τύπο σύνδεσης !!!

[firewalker]

Δοκίμασε αυτό.

 

 

Use the ";pwd=" clause in CreateDatabase and OpenDatabase methods.

Note that this project has a reference to Microsoft DAO 3.51 Object Library.

 

 

 

Private Sub cmdCreate_Click()

Dim db_name As String

Dim password As String

Dim db As Database

Dim i As Integer

Dim txt As String

 

' Get the database name and password.

db_name = txtDbName.Text

password = txtPassword.Text

 

' Delete the database if it exists.

On Error Resume Next

Kill db_name

 

' Create the database.

On Error GoTo CreateError

Set db = DBEngine.CreateDatabase( _

db_name, dbLangGeneral & _

";pwd=" & password)

db.Close

Set db = Nothing

 

' Verify that we can open the database.

On Error GoTo OpenError

Set db = DBEngine.Workspaces(0).OpenDatabase( _

db_name, 0, 0, ";pwd=" & password)

 

' Read the table names.

For i = 0 To db.TableDefs.Count - 1

txt = txt & db.TableDefs(i).Name & vbCrLf

Next i

txtTables.Text = txt

 

db.Close

Set db = Nothing

Exit Sub

 

CreateError:

MsgBox "Error " & Format$(Err.Number) & _

" creating database '" & db_name & "'" & _

vbCrLf & Err.Description

Exit Sub

 

OpenError:

MsgBox "Error " & Format$(Err.Number) & _

" opening database '" & db_name & "'" & _

vbCrLf & Err.Description

Exit Sub

End Sub

howto_use_database_password.zip

[Neptous]

Δεν θα ήθελα να αλλάξω την σύνδεση με την βάση γιατί μέσα στο πρόγραμμα κάνω κάποια ερωτήματα με SQL , αν γνωρίζεις πως μπορείς με ADODB να έχεις πρόσβαση σε κλειδωμένη βάση δεδομένων.

 

Thanks!!!

[MindControl]

Min 3odeuetai askopa ton xrono sas, prospathontas na kleidosete me ton paradosiako tropo mia ACCESS DB.

Spaei paneukola...

 

Prospathiste na kruptografisete ta esoterika dedomena tis Database.

 

MindControl

[Neptous]

Καλή η συμβουλή σου MindControl αλλά δεν θέλω να το παιδέψω τόσο πολύ , πρόκειται για πτυχιακή εργασία αν υπάρχει τρόπος να διαβάσω το αρχείο χωρίς να αλλάξω αυτή την σύνταξη θα ήταν καλά :

Dim UserInterfrace As New ADODB.Connection

AppPath = AppPath & "user.mdb"

UserInterfrace.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppPath

[MindControl]

Pare na xeis...

 

Ena arketa kalo example pou tha se kalupsei pliros...

 

 

MindControl

[Neptous]

thanks MindControl

[stamos]

Παρα πολύ καλό παράδειγμα mindcontrol.

Είχα κάποιες απορίες αλλά αυτό το παράδειγμα μου τις έλυσε όλες.

 

Ευχαριστώ