Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [SORGU] Excel Vba Access Arama Sorgusu

[SORGU] Excel Vba Access Arama Sorgusu
Yavuzmumcu

Kayıt Tarihi: 01.02.2020
Toplam 2 konu açtı.
Toplam 4 yorum yaptı.
Toplam puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2010,
Beğeniler: 0 / 0
#1
access-sql-9  01-02-2020, 09:56
Arkadaşlar selamlar,

Excel üzerinden hazırladğım userform ile veri girişi yapacağım bir proje hazırlıyorum. Userform'da girdiğim verileri direkt olarak Access veritabanına atıyorum.Burada sıkıntı yok.  Access ta 2 sütunlu listelerim olacak. textboxa 1.sütundaki  sayıyı girdiğimde yandaki etikete accesstaki ilgili listenin 2. sütunundaki değer gelecek. Eğer textboxa girilen değer tabloda yoksa hata vermeli. Bir nevi exceldeki düşeyara fonksiyonu gibi çalışsın istiyorum

Visual Basic
  1. Dim baglan As New Connection
  2. Dim rs As New Recordset
  3.  
  4.  
  5. baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\user\Desktop\yeni klasör\master.accdb;"
  6. rs.Open "select * from Kalite_liste where numara=" & TextBox1.Value, baglan, adOpenKeyset, adLockOptimistic
  7. Label8.Caption = rs.Fields(2)
  8.  
  9. rs.Close
  10. baglan.Close


Bu şekilde yapıyorum değer geliyor ama dizim hatası veriyor.
Visual Basic
  1. where numara='" & TextBox1.Value &"'


Bu şekilde yazıyorum tür uyuşmazlığı hatası veriyor. işin içinden çıkamadım. Veri türleriyle iligili sıkıntım var.
Bu işin mantığını kavrayamadım. İlgili dosyayı ekledim.Umarım yardımcı olursunuz. Şimdiden teşekür ederim


Eklenti Dosyaları
.rar   Yeni klasör.rar (Boyut: 33,82 KB / İndirilme: 128)



  Bul
  Alıntı
Bu mesajı beğenenler:
userx53
Önemli Üye 200-300

*
Kayıt Tarihi: 08.08.2012
Toplam 0 konu açtı.
Toplam 278 yorum yaptı.
Toplam 137 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 4 / 14
#2
01-02-2020, 14:10
Visual Basic
  1. Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  2. If KeyCode = 13 Then
  3. Dim baglan As New Connection
  4. Dim rs As New Recordset
  5.  
  6.  
  7. baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\user\Desktop\yeni klasör\master.accdb;"
  8. rs.Open "select * from Kalite_liste where numara=" & TextBox6.Value, baglan, adOpenKeyset, adLockOptimistic
  9. Label8.Caption = rs.Fields(2)
  10.  
  11. rs.Close
  12. baglan.Close
  13. End If
  14. End Sub
  15. ----------------------------------------------------------------------------------------------
  16. Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  17. If KeyCode = 13 Then
  18. Dim baglan As New Connection
  19. Dim rs As New Recordset
  20.  
  21.  
  22. baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\user\Desktop\yeni klasör\master.accdb;"
  23. rs.Open "select * from Kalite_liste where numara=" & TextBox2.Value, baglan, adOpenKeyset, adLockOptimistic
  24. Label9.Caption = rs.Fields(2)
  25.  
  26. rs.Close
  27. baglan.Close
  28. End If
  29. End Sub





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Güncelleme Sorgusu çalışmıyor ? karaayhan 3 400 05-04-2025, 22:08
Son Mesaj: karaayhan
  Tablodaki Alanı Alt Tablodan Alınan Değerle Güncelleme Sorgusu Lidervet 7 636 02-12-2024, 11:20
Son Mesaj: halily
  Formda Liste Sorgusu anno 1 344 15-07-2024, 00:29
Son Mesaj: dsezgin
  [VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma ekremer1969 6 1.329 22-06-2024, 16:15
Son Mesaj: dsezgin
  Gücelleme Sorgusu evren89 2 351 18-05-2024, 23:19
Son Mesaj: evren89
  [FORM] Arama Sorunu Pasham 0 374 08-04-2024, 14:32
Son Mesaj: Pasham
  [TABLO] Excel Aktarımı kahramanselim 6 748 06-04-2024, 21:11
Son Mesaj: kahramanselim
  [SORGU] Farklı Tablolarda Yer Alan Satış Bilgilerini Toplama Sorgusu Lidervet 1 481 09-11-2023, 00:54
Son Mesaj: dsezgin

Foruma Git:


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