AccessTr.neT

Bul · 05/12/2022, 00:21

Merhaba herkese sağlıklı günler dilerim.
Öğrenme amacıyla düzenlediğim uygulamada Excel çalışma kitabında Userform.Cari adlı formun üzerinde ki TextBox.CariKod alanına Access veritabanı Cariler Tablosu ID alanında kayıtlı son ID numarasının bir fazlasını çekmeye çalışıyorum. Fakat sorguyu bağlantıda kullanmayı beceremedim. Bu konuda yardımcı olmanızı rica ederim.

Kod:

Public con As Object

Public rs As Object

Public CariID As Integer



Sub Baglan()



Set con = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")





yol = "C:\Users\oguzt\Desktop\VBA PROJE\DB\Database_VBAOgreniyorum.accdb"

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _

yol & ";Persist Security Info=False;"

  

End Sub

  

Sub SonCariID_Getir()



Call Baglan



'Set con = CreateObject("ADODB.Connection")

'Set rs = CreateObject("ADODB.Recordset")



sqlBaglanti = "Select TOP 1 [ID] FROM Cariler ORDER BY [ID] DESC"



CariID = rs.Fields(0)



End Sub

Kod:

Private Sub UserForm_Activate()



AdoBaglan.SonCariID_Getir

TextBox_CariKod.Value = "C-000" & CariID + 1



ComboBox_Durumu.List = Array("Aktif", "Pasif")

ComboBox_Tipi.List = Array("Alıcı", "Satıcı", "Alıcı-Satıcı")



End Sub

Bul · 05/12/2022, 09:34

kodda recordseti açtığınız yeri göremedim

rs.Open sqlBaglanti, con, 1, 3

veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir

sqlBaglanti = "Select max( [ID]) FROM Cariler "

Bul · 05/12/2022, 09:51

(05/12/2022, 09:34)berduş yazdı: kodda recordseti açtığınız yeri göremedim
rs.Open sqlBaglanti, con, 1, 3
veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir
sqlBaglanti = "Select max( [ID]) FROM Cariler " 

Halil hocam yeminle akşam bu mesajı foruma attıktan sonra bilgisayarı kapattım ve yattım, sonra uykuya dalmadan ben sorguyu düzenledim ama benim bir şey daha yapmam lazımdı sorgu kendi kendine mi çalışacak diye sesli sesli düşünmüşüm Hanım da yeter artık uyu diyince emir demiri kesti. Img-grin

. Akşam evde deneyip bilgi veririm çok teşekkürler.

Bul · 05/12/2022, 13:35

(05/12/2022, 09:51)Oğuz Türkyılmaz yazdı: Halil hocam yeminle akşam bu mesajı foruma attıktan sonra bilgisayarı kapattım ve yattım, sonra uykuya dalmadan ben sorguyu düzenledim ama benim bir şey daha yapmam lazımdı sorgu kendi kendine mi çalışacak diye sesli sesli düşünmüşüm Hanım da yeter artık uyu diyince emir demiri kesti. . Akşam evde deneyip bilgi veririm çok teşekkürler.

Hanımdan korkmam diyen erkek yalan söylermiş Lol

Bul · 05/12/2022, 14:14

Korku demeyelim de saygı ve sevgiden, incitme korkusu diyelim)
Sorunuz aslında Excel sorusu olduğundan Excel soruları bölümüne taşınmıştır

Bul · 05/12/2022, 22:16

(05/12/2022, 09:34)berduş yazdı: kodda recordseti açtığınız yeri göremedim
rs.Open sqlBaglanti, con, 1, 3
veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir
sqlBaglanti = "Select max( [ID]) FROM Cariler " 

@halily hocam teşekkür ederim. Sorunum çözüldü. Gece sayıklamadan uyuyabilirim artık Img-grin

AccessTr.neT

Excel Userformuna Access Database'den Ado İle Veri Getirme Hakkında.

Excel Userformuna Access Database'den Ado İle Veri Getirme Hakkında.

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

Giriş yap

Hesap oluştur

Konu Linkleri