DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim bb As New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=ip_ya_da_local_adres;uid=kullanıcı_ismi;pwd=sifreniz;database=veritabanı_ismi"
On Error Resume Next
cn.Open
bb.Open "SELECT * FROM tablonuz", cn, adOpenKeyset, adLockOptimistic
[COLOR="Red"]Set Me.Recordset = bb[/COLOR]
Set cn = Nothing
Set bb = Nothing