AccessTr.neT
Access Sorgusu Hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Sorgusu Hakkında (/konu-access-sorgusu-hakkinda.html)

Sayfalar: 1 2


Access Sorgusu Hakkında - kanakan52 - 07/07/2022

Değerli üstadlar Selamlar,

Bir konuda destek ihtiyacaım doğdu.

Access veritabanındaki bir dosyadan kısa sorgu ile veri çekmek istiyorum.
Kod:
Me.txtVeri1.Value = baglan.Execute("select [Komisyon] from [PazarYeriAyar] where KategoriID =" & ID & " and [PazarYeriID]=1")
gibi bir sorgu ile veri almaya çalıştım ancak başaramadım. Değerrli yorum ve yardımlarınızı rica ederim.


RE: Access Sorgusu Hakkında - berduş - 07/07/2022

Recordset 'ten veriyi bu şekilde alamazsınız
Önce recordseti oluşturup sonra da getstring ile almayi dener misiniz?
Me.txtVeri1.Value = rst.GetString(adClipString, , vbTab, vbCrLf)



RE: Access Sorgusu Hakkında - kanakan52 - 08/07/2022

(07/07/2022, 22:17)berduş yazdı: Recordset 'ten  veriyi bu şekilde alamazsınız
Önce recordseti oluşturup sonra da getstring ile almayi dener misiniz?
Me.txtVeri1.Value = rst.GetString(adClipString, , vbTab, vbCrLf)

@berduş üstad selamlar..

bunla ilgili bir örnek dosya veya çalışma var mı elinizde. Access konusunda bilgili değilim maalesef.


RE: Access Sorgusu Hakkında - berduş - 08/07/2022

Çalışmanızın küçük bir örneğini eklerseniz onun üzerinde gösterebilirim


RE: Access Sorgusu Hakkında - kanakan52 - 08/07/2022

Üstad bulunduğum ortamda dosyalarım yok maalesef. Bilgisayarıma geçince paylaşırım bir dosya. Destek için teşekkür ederim.


RE: Access Sorgusu Hakkında - berduş - 08/07/2022

bağlantıyı nasıl yaptığınızı bilmiyorum o nedenle önerim işe yarayamayabilir
ama
Me.txtVeri1.Value = baglan.Execute("select [Komisyon] from [PazarYeriAyar] where KategoriID =" & ID & " and [PazarYeriID]=1")
kodunu aşağıdaki kodla değiştirip dener misiniz?
Me.txtVeri1.Value = baglan.Execute("select [Komisyon] from [PazarYeriAyar] where KategoriID =" & ID & " and [PazarYeriID]=1").GetString(, , vbTab, vbCrLf)