Ado İle Mssql Tablosundan Sorgu Yapma

12/11/2017, 06:13

hedefkaya

aşağıdaki modül ile mssql veritabanına bağlanıyorum 
--------------------------------------------------------------------------------------------
Public Function SqlServerConnStringGetir() As String
Dim BaglantiTuru As String
Dim ServerName As String: ServerName = "DESKTOP-aaa0"
Dim DatabaseName As String: DatabaseName = "MARKET"
Dim UserName As String: UserName = "sa"
Dim Password As String: Password = "4857"
SqlServerConnStringGetir = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATABASE=" & DatabaseName & ";UID=" & UserName & ";PWD=" & Password
End Function
-------------------------------------------------------------------------------------------
bağlandığım MARKET veritabanındaki STOK tablosunu sorgu olarak accesse nasıl alabilirim
12/11/2017, 15:31

direnist

Merhaba;
Aşağıdaki kod bloğunu kendi Sql Server' umda bulunan bir databasedeki tabloda bulunan bir alanın Do While döngüsü ile mesaj kutusu olarak ekranda gösterilmesi için denediğmde sorunsuz çalıştı. Bunu göstereblilmesi içinde sizin sorunuzda belirttiğiniz gibi, istediğim bir tablo için tüm kayıtarı getiren bir SELECT sorgusu yazdım.
Sorunuzu doğru anladıysam bu kod bloğu size yardımcı olur.
Yok olmamış ise birde aşağıdaki konuyu inceler misiniz ?
İyi çalışmalar.

SQL SERVER Access Bağlantı Sihirbazı ve Sql Server Bağlı Tablo Yönetimi


Public Function SqlServerConnStringGetir() As String
Dim BaglantiTuru As String
Dim ServerName As String: ServerName = "DESKTOP-aaa0"
Dim DatabaseName As String: DatabaseName = "MARKET"
Dim UserName As String: UserName = "sa"
Dim Password As String: Password = "4857"
Dim sorgu As String
Dim rs As ADODB.Recordset
Dim adobaglanti As ADODB.Connection

Set adobaglanti = New ADODB.Connection
Set rs = New ADODB.Recordset

SqlServerConnStringGetir = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATABASE=" & DatabaseName & ";UID=" & UserName & ";PWD=" & Password

sorgu = "select * from STOK"
adobaglanti.Open SqlServerConnStringGetir
rs.Open sorgu, adobaglanti, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
   MsgBox rs.Fields("Görmek İstediğin Alan Adı")
   rs.MoveNext
Loop
   rs.Close
   Set adobaglanti = Nothing
End Function
28/11/2017, 22:06

direnist

Merhaba;
Konu hakkında olumlu yada olumsuz dönüşlerinizi bekliyoruz.
İyi çalışmalar.
21/12/2017, 19:24

direnist

Merhaba sn. hedefkaya;
Konu hakkında olumlu yada olumsuz dönüşlerinizi bekliyoruz.
İyi çalışmalar.