Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Access Bağlı Tablolara şifre Koymak Ve Formdan Okunmasını Sağlamak?

Access Bağlı Tablolara şifre Koymak Ve Formdan Okunmasını Sağlamak?
tanyeri
Aktif Üye 40-100

*
Kayıt Tarihi: 01.02.2022
Toplam 7 konu açtı.
Toplam 68 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 17 / 1
#1
20-03-2022, 00:34
Aşağıdaki kod bloğunda göründüğü gibi çağırılan bir tabloyu bağlı tabloya dönüştürdüm şimdi bağlı tabloya bir şifre koyarak ana access dosyasından çağırmak istiyorum ancak bu şekilde yapılan sql sorgusunda parolayı nasıl belirtebilirim yardımcı olabilir misiniz? Konu ile ilgili sezgin üstadın örneğini inceledim ikinci örnekte olduğu gibi bir sorgulama yaparak veri çekiyor bende benzer şekilde formun açlışında tablo ile bağlantı kurayım dedim ancak beceremedim.


Visual Basic
  1.    Dim rs As ADODB.Recordset
  2.     Dim strsql As String
  3.     strsql = "SELECT * FROM TBirimFiyatlar WHERE sirano = " & liste_birimfiyat.Column(0)
  4.     Set rs = CreateObject("ADODB.Recordset")
  5.     rs.CursorType = adOpenKeyset
  6.     rs.LockType = adLockOptimistic
  7.     rs.Open strsql, CurrentProject.Connection
  8.         
  9.     If rs.State = 1 Then
  10.     If Not rs.BOF Then
  11.         bf_pozno = rs("yenipozno")
  12.         bf_eskipozno = rs("eskipozno")
  13.         bf_pozuntipi = rs("pozuntipi")
  14.         bf_tanimi = rs("tanimi")
  15.         bf_uzuntanimi = rs("uzuntanimi")
  16.         bf_tarifi = rs("tarifi")
  17.         bf_birim = rs("birimi")
  18.         bf_kurum = rs("kurum")
  19.         bf_bolum = rs("bolumu")
  20.         bf_2022birimfiyati = rs("2022")
  21.         
  22.     End If
  23.     rs.Close
  24.     End If
  25.     Set rs = Nothing




Visual Basic
  1. Option Explicit
  2. Dim Tbl As TBirimFiyatlar
  3.  
  4. Private Sub Form_Close()
  5. For Each Tbl In CurrentDb.TBirimFiyatlar
  6. If Tbl.Properties("Connect") <> "" And Mid(Tbl.Name, 1, 3) = "tbl" Then DoCmd.DeleteObject acTable, Tbl.Name
  7. Next Tbl
  8. Call fSetAccessWindow(1)
  9. End Sub
  10.  
  11. Private Sub Form_Open(Cancel As Integer)
  12. Dim Yer, Prla As String, AVT As DAO.Database
  13. Yer = CurrentProject.Path & "\AVT.accdb"
  14. Set AVT = Application.DBEngine.OpenDatabase(Yer, False, False, ";pwd=parola")
  15. For Each Tbl In AVT.TBirimFiyatlar
  16. If Mid(Tbl.Name, 1, 3) = "tbl" Then DoCmd.TransferDatabase acLink, "Microsoft Access", Yer, acTable, Tbl.Name, Tbl.Name
  17. Next Tbl
  18. Call fSetAccessWindow(0)
  19. End Sub



.rar   ORTAK_VT.rar (Boyut: 495,55 KB / İndirilme: 67)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.097 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
20-03-2022, 07:59
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql, psw As String
   strsql = "SELECT * FROM TBirimFiyatlar WHERE sirano = " & liste_birimfiyat.Column(0)

psw = "access97"
  conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.Path & "\AVT.accdb;Jet OLEDB:Database Password=" & psw
 
  Set rs = CreateObject("ADODB.Recordset")
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockOptimistic
   rs.Open strsql, conn
       
   If rs.State = 1 Then
...
...
...
   End If
   Set rs = Nothing: Set conn = Nothing


Renkli olan satırlar eklenmeli
NOT:Veri değişikliği yapılacaksa tablo bağlanmalı
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
tanyeri
Aktif Üye 40-100

*
Kayıt Tarihi: 01.02.2022
Toplam 7 konu açtı.
Toplam 68 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 17 / 1
#3
20-03-2022, 12:22
(20-03-2022, 07:59)dsezgin demiş ki: Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql, psw As String
   strsql = "SELECT * FROM TBirimFiyatlar WHERE sirano = " & liste_birimfiyat.Column(0)

psw = "access97"
  conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.Path & "\AVT.accdb;Jet OLEDB:Database Password=" & psw
 
  Set rs = CreateObject("ADODB.Recordset")
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockOptimistic
   rs.Open strsql, conn
       
   If rs.State = 1 Then
...
...
...
   End If
   Set rs = Nothing: Set conn = Nothing


Renkli olan satırlar eklenmeli
NOT:Veri değişikliği yapılacaksa tablo bağlanmalı
üstad bağlı tablolarda update özelliğini mi kullanamıyorum ekleme yapmak mümkün mü peki?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.097 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#4
20-03-2022, 16:32
Sn Hocam; Tekli İlişkisiz bir forma kayıtları çağırmanız, görüntüleme ile sonuçlanır, Yeni Kayıt, Kayıt günleme, silme ve gezintisi için formun kayıt kaynağı bölümünde SQL'iniz olmalı.

Formda iki düğme var soldaki sizin kodlarla tabloya bağlanma, sağda ki sorguda AVT parolası ile ilişkili form eylemi vardır.


Eklenti Dosyaları
.rar   ParolaliAVTBaglanma.rar (Boyut: 493,9 KB / İndirilme: 69)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
tanyeri
Aktif Üye 40-100

*
Kayıt Tarihi: 01.02.2022
Toplam 7 konu açtı.
Toplam 68 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 17 / 1
#5
20-03-2022, 16:37
(20-03-2022, 16:32)dsezgin demiş ki: Sn Hocam; Tekli İlişkisiz bir forma kayıtları çağırmanız, görüntüleme ile sonuçlanır, Yeni Kayıt, Kayıt günleme, silme ve gezintisi için formun kayıt kaynağı bölümünde SQL'iniz olmalı.

Anladım üstadım sağolasın.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.097 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#6
20-03-2022, 16:41
(20-03-2022, 16:37)tanyeri demiş ki: Anladım üstadım sağolasın.

Hocam, Mesaj 4'te ki örnek ile daha iyi anlaşılır.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler: tanyeri


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 163 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Bağlı Tabloda şarta Göre Renklendirme Satir 2 374 19-12-2024, 15:38
Son Mesaj: Satir
access-sql-9 [SORGU] Tabloda Geçen Iki Alanda Ortak Kelime Var Ise Istenilen Alana Işaret Koymak sevincili 5 480 20-09-2024, 01:09
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 554 09-09-2024, 17:14
Son Mesaj: ozan028
  [RAPOR] Formdan Rapora Resim Aktarma Pasham 7 738 02-06-2024, 00:41
Son Mesaj: Pasham
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 465 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  [FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması M_Kemal_Askeri 2 415 07-03-2024, 20:03
Son Mesaj: M_Kemal_Askeri
access-sql-18 Insert ile formdan tabloya kayıt ekleme Enigmatic 18 21.656 07-02-2024, 18:41
Son Mesaj: halil.tefci

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi