'Ancak bu dosyayı açmadan express bir sekilde ya da bunun gibi seyler.
'
'İste bu program bu destegi sunuyor. Yapmanız gerekenler kutucuga adrsi yazmak
'ornek: C:\deneme.mdb olsun
'ikinci olarak ta sifre girmek Ornek: 123456
'bu sekilde sifre girdiginizde dosya sanki orjinalinde sifrelenmis gibi olacaktır.
'sifrelediginiz dosyayı açtıgınızda size sifreyi soracaktır.
'Aynı dosya üzerinde 10 defa bile degisik sifre koyabilirsiniz. Dosya bozulmaz.
'----------------------------
'Öncelikle formumuza 1 adet TextBox ekleyelim. (Name) kısmı txtDbName olsun
'sonra 1 TextBox daha ekleyin. Bu da sifre için. (Name) kısmı txtPassword olsun
'daha sonra büyükçe bir TextBox daha bu da log ve error dosyası olacak olmazsa çalısmaz.
'bunun da (name) kısmı txtTables olsun
'son olarakta bir adet CommandButton koyun. (name) bölümü cmdCreate olsun
'simdi gelelim kodlamaya. Asagıdakileri oldugu gibi formun koduna yapıstırın:
Kod: Tümünü seç
Option Explicit
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) & _
" Database yaratılıyor" & db_name & "'" & _
vbCrLf & Err.Description
Exit Sub
OpenError:
MsgBox "Error " & Format$(Err.Number) & _
" Access açılıyor'" & db_name & "'" & _
vbCrLf & Err.Description
Exit Sub
End Sub
Private Sub Form_Load()
Dim db_path As String
db_path = App.Path
If Right$(db_path, 1) <> "\" Then db_path = db_path & "\"
db_path = db_path & "test.mdb"
txtDbName.Text = db_path
End Sub
Private Sub txtTables_Change()
End Sub