05-01-2015, 15:12
merhaba arkadaşlar,
access sql bağlı tablolarım var ve formlarını hazırladım ancak son günlerde dikkatimi ado bağlantı çekti şöyleki birden falz database var sql'de (tablo yapıları aynı sadece yılları farklı) , ve yer yer eski ve yeniye bakma ihtiyacı duyuyorum acaba ben bu bağlantıyı kullanarak geçici tablo oluşturabilirmiyim ve bunlar üzerinden sorgu ve formları oluşturabilirmiyim birçok örnek inceledim ama bir türlü soruma cevap alamadım hatta şöyleki databaseleri kullanıcı adını server ipsinide comboboxtan seçmek istiyorum bana yardımvı olabilecek arkadaşlara şimdiden teşekkürler,
kullandığım kod bu ama direkt olarak form içerisine çekebiliyorum,
*********************************
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=server ip'si;uid=sqlkullanıcıadı;pwd=sqlkullanıcılifresi;database=databaseadı"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
'MsgBox ("Baglantı Kuruldu...")
rst.CursorLocation = adUseClient
rst.Open "dbo.TBLCASABIT", cn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
'Me.KaySay = vbCrLf & " Toplam -- " & rst.RecordCount & " -- Kayıt Bulundu." & vbCrLf & _
'" Veriler SQL server üzerinde -dbo.TBLCASABIT- Tablosundan alınmıştır." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
' " beab05"
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
access sql bağlı tablolarım var ve formlarını hazırladım ancak son günlerde dikkatimi ado bağlantı çekti şöyleki birden falz database var sql'de (tablo yapıları aynı sadece yılları farklı) , ve yer yer eski ve yeniye bakma ihtiyacı duyuyorum acaba ben bu bağlantıyı kullanarak geçici tablo oluşturabilirmiyim ve bunlar üzerinden sorgu ve formları oluşturabilirmiyim birçok örnek inceledim ama bir türlü soruma cevap alamadım hatta şöyleki databaseleri kullanıcı adını server ipsinide comboboxtan seçmek istiyorum bana yardımvı olabilecek arkadaşlara şimdiden teşekkürler,
kullandığım kod bu ama direkt olarak form içerisine çekebiliyorum,
*********************************
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=server ip'si;uid=sqlkullanıcıadı;pwd=sqlkullanıcılifresi;database=databaseadı"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
'MsgBox ("Baglantı Kuruldu...")
rst.CursorLocation = adUseClient
rst.Open "dbo.TBLCASABIT", cn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst
'Me.KaySay = vbCrLf & " Toplam -- " & rst.RecordCount & " -- Kayıt Bulundu." & vbCrLf & _
'" Veriler SQL server üzerinde -dbo.TBLCASABIT- Tablosundan alınmıştır." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
' " beab05"
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub


