sn hocalarım herkese hayırlı günler
birkaç haftadır veritabanı ile ilgileniyorum ve çok zor olduğunu farkettim. sn üstadlar sayesinde birkaç kod bulabildim ama yine çok eksiğim var.bununla ilgili örnek dosyada bulamadım maalesef.
sizden yardım istediğim aşağıdaki kodlarla şifreli veritabanı oluşuyor. ancak açılan kolonlara textboxlardan verileri nasıl aktarabiliriz.
yardımlarınız için şimdiden teşekkürler saygılar:yardim:
kod:
Option Explicit
Sub Düğme1_Tıklat()
Dim cat As New ADOX.Catalog
Dim Şifre As String
Dim DatabasePath As String
Şifre = "iso"
DatabasePath = ThisWorkbook.Path & "\iso.mdb"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB
atabase Password=" & Şifre
Set cat = Nothing
End Sub
Sub Düğme2_Tıklat()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Şifre As String
Dim DatabasePath As String
Şifre = "iso"
DatabasePath = ThisWorkbook.Path & "\iso.mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDBatabase Password=" & Şifre
End With
cat.ActiveConnection = conn
With tbl
.Name = "SatışTablosu"
With .Columns
.Append "Adı", , 50 '50 karakter giriş izni
.Append "Soyadı", , 50 '50 karakter giriş izni
.Append "Maaşı", adCurrency 'Parasal değer giriş izni
.Append "EvliBekar", adBoolean 'Evet Hayır(True False) giriş izni
End With
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
conn.Close
End Sub
birkaç haftadır veritabanı ile ilgileniyorum ve çok zor olduğunu farkettim. sn üstadlar sayesinde birkaç kod bulabildim ama yine çok eksiğim var.bununla ilgili örnek dosyada bulamadım maalesef.
sizden yardım istediğim aşağıdaki kodlarla şifreli veritabanı oluşuyor. ancak açılan kolonlara textboxlardan verileri nasıl aktarabiliriz.
yardımlarınız için şimdiden teşekkürler saygılar:yardim:
kod:
Option Explicit
Sub Düğme1_Tıklat()
Dim cat As New ADOX.Catalog
Dim Şifre As String
Dim DatabasePath As String
Şifre = "iso"
DatabasePath = ThisWorkbook.Path & "\iso.mdb"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB
atabase Password=" & ŞifreSet cat = Nothing
End Sub
Sub Düğme2_Tıklat()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Şifre As String
Dim DatabasePath As String
Şifre = "iso"
DatabasePath = ThisWorkbook.Path & "\iso.mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB
atabase Password=" & ŞifreEnd With
cat.ActiveConnection = conn
With tbl
.Name = "SatışTablosu"
With .Columns
.Append "Adı", , 50 '50 karakter giriş izni
.Append "Soyadı", , 50 '50 karakter giriş izni
.Append "Maaşı", adCurrency 'Parasal değer giriş izni
.Append "EvliBekar", adBoolean 'Evet Hayır(True False) giriş izni
End With
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
conn.Close
End Sub