- Katılım
- 30 Temmuz 2007
- Mesajlar
- 74
- Excel Vers. ve Dili
- eee
Merhaba Arkadaşlar...
Access bir program hazırlıyorum ve bu program sql çalışıyor ben bağlantıyı access tablolarını sql veritabanına odbc ile bağladım
Bu bağlantıyı sizinde yardımınızla daha profesyenel yapmak istiyorum
tam olarak istediğim şu bir modül hazırlıyıp yapmış olduğum programın bu modülü kullanarak bağlantı kurması
bu konuyu formda araştırdım bir arkadaşımız bu işi excel şu komutlarla yapmış
burda hem local hem uzak bağlantı var sistem otomatik biri olmazsa ikincisini deniyor.
Evet Harika cevaplar alıyorum.
Çok teşekkürler. İki türlüde yaptım ve oldu.
Sub AAAAA()
Set con = New ADODB.Connection
strconn = "PROVIDER=SQLOLEDB;DATA SOURCE=" & baglantiIP & ";DATABASE=" & datebase & ";Auto Translate=False;user id=" & UserName & ";password=" & userpass & ";trusted_connection=False"
con.ConnectionString = strconn
On Error Resume Next
con.Open
If con.State <> 0 Then
MsgBox ("Baglantı Başarılı.")
Else
MsgBox ("Bağlantıda Sorun Var.")
End If
End Sub
ve yine başka bir şekil aslına bakarsanız aynısı --------------------------------
Sub denemememe()
Baglantikomutu = "PROVIDER=SQLOLEDB;DATA SOURCE=" & baglantiIP & ";DATABASE=" & datebase & ";Auto Translate=False;user id=" & UserName & ";password=" & userpass & ";trusted_connection=False"
Set conn = New ADODB.Connection
conn.ConnectionString = Baglantikomutu
conn.Open
If (conn.State <> adStateOpen) Then
msg = MsgBox("Baglanti Başarısız Olacaktır.")
'If msg = vbYes Then: conn.Open Baglantikomutu
Else
MsgBox "Ağ bağlantısı başarılı olacaktır."
End If
End Sub
Access bir program hazırlıyorum ve bu program sql çalışıyor ben bağlantıyı access tablolarını sql veritabanına odbc ile bağladım
Bu bağlantıyı sizinde yardımınızla daha profesyenel yapmak istiyorum
tam olarak istediğim şu bir modül hazırlıyıp yapmış olduğum programın bu modülü kullanarak bağlantı kurması
bu konuyu formda araştırdım bir arkadaşımız bu işi excel şu komutlarla yapmış
burda hem local hem uzak bağlantı var sistem otomatik biri olmazsa ikincisini deniyor.
Evet Harika cevaplar alıyorum.
Çok teşekkürler. İki türlüde yaptım ve oldu.
Sub AAAAA()
Set con = New ADODB.Connection
strconn = "PROVIDER=SQLOLEDB;DATA SOURCE=" & baglantiIP & ";DATABASE=" & datebase & ";Auto Translate=False;user id=" & UserName & ";password=" & userpass & ";trusted_connection=False"
con.ConnectionString = strconn
On Error Resume Next
con.Open
If con.State <> 0 Then
MsgBox ("Baglantı Başarılı.")
Else
MsgBox ("Bağlantıda Sorun Var.")
End If
End Sub
ve yine başka bir şekil aslına bakarsanız aynısı --------------------------------
Sub denemememe()
Baglantikomutu = "PROVIDER=SQLOLEDB;DATA SOURCE=" & baglantiIP & ";DATABASE=" & datebase & ";Auto Translate=False;user id=" & UserName & ";password=" & userpass & ";trusted_connection=False"
Set conn = New ADODB.Connection
conn.ConnectionString = Baglantikomutu
conn.Open
If (conn.State <> adStateOpen) Then
msg = MsgBox("Baglanti Başarısız Olacaktır.")
'If msg = vbYes Then: conn.Open Baglantikomutu
Else
MsgBox "Ağ bağlantısı başarılı olacaktır."
End If
End Sub