Skip to main content

AccessTr.neT


Şifreli Access Veri Tabanından Veri Çekmek

Şifreli Access Veri Tabanından Veri Çekmek

#7
(22/08/2021, 23:32)berduş yazdı: bence vermemeli ama deneyin, sorun çıkarsa çözmeye çalışırız.
Tamamdır berduş hocam sorun olursa buradan yardım isterim Çok teşekkürler İyi geceler
Cevapla
#8
rica ederim
iyi çalışmalar
Cevapla
#9
(22/08/2021, 23:32)berduş yazdı: bence vermemeli ama deneyin, sorun çıkarsa çözmeye çalışırız.
Berduş hocam merhaba, şifreli Access veri tabanına kaydet kısmını yaptım ancak Güncelle makrosuna bir türlü entegre edemedim yazmış olduğunuz eklentiyi. Yardımcı olursanız sevinirim
Private Sub CommandButton2_Click()
Dim con As Object, rs As Object, sorgu$

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\ANASAYFA.accdb"
sorgu = "select * from [ANASAYFA] Where [ÇALIŞMA DURUMU] = 'Etkin' and [TC KİMLİK NO] = " & TextBox2.Value
rs.Open sorgu, con, 1, 3
If Not rs.EOF Then
rs(0).Value = Me.TextBox1.Value
rs(2).Value = Me.TextBox3.Value
rs(3).Value = Me.TextBox4.Value
rs(4).Value = Me.TextBox5.Value
'rs(5).Value = Me.TextBox6.Value
rs.Update
MsgBox "Kayyt De?i?tirildi.", vbOKOnly, "Bilgi"
Else
MsgBox "Kayyt Değişmedi.", vbCritical, "Hata"
End If
rs.Close: con.Close
Set rs = Nothing: Set con = Nothing
End Sub
Cevapla
#10
(23/08/2021, 23:37)mert_0671 yazdı: Güncelle makrosuna bir türlü entegre edemedim
tam olarak ne hata verdi?

dosyanızın son halini entegre edilemeyen halini ekler misiniz?

sadece connection kısmı değişiyordu o kadar
con.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\ANA SAYFA.accdb;" & _
"Jet OLEDBLolatabase Password= 1234"
Cevapla
#11
(23/08/2021, 23:40)berduş yazdı:
(23/08/2021, 23:37)mert_0671 yazdı: Güncelle makrosuna bir türlü entegre edemedim
tam olarak ne hata verdi?

dosyanızın son halini entegre edilemeyen halini ekler misiniz?

sadece connection kısmı değişiyordu o kadar
con.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\ANA SAYFA.accdb;" & _
    "Jet OLEDBLolatabase Password= 1234"
Hata veren hali ile ektedir
.rar çalışma.rar (Dosya Boyutu: 532,92 KB | İndirme Sayısı: 1)
Cevapla
#12
bir de zaten çalışmanıza ActiveX Data Object xx.x Library eklenmişti, CreateObject("adodb.connection") yapısına gerek yoktu kullandığım şablonu kullanmanız daha uygun olurdu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task