SQL Bağlanti Sınaması

[Rafet]

Excele SQL den veri cekiyorum. Bilgileri cekerken buro da iken ağdan buroda değilken internetten cekiyorum.

Yapmak istediim bağlantı sınaması . İki IP var. Birini kullanarak BAĞLANTI yapamıyorsa diğerini kullanmak.

Soru : VB de SQL sınama kodu nasıl ve nasıl kullanabilirim.

Teşekkürler.

[arifcell]

Sayin Rafet
Sql De Veri Cekiyorsun.
Aslina Bakarsan Ben Hic Denemedim Biri Olmazsa Digerini
Dene Demeyi Ama
Tahminen Baglanma Esnasinda Hata Verecektir.
Orada Bir Islem Yapmayi Denesen Derim
Kolay Gelsin

[Rafet]

Veri cekmekte sorunum yok. IP numarasını bir hüçreye bağladım. İki IP yide kullanarak veri ceke biliyorum. Sorum Bağlantı sınaması kodu öğrenmek. Bir If cümlesi yapacam SQL bağlantı kodunu yazacam ve bu kodda 1. bağlantı IP sını kullanacam bağlantı sağlana biliyorsa 1. IP yi kullanarak bağlantı olacak , olmassa 2. IP yi kullanarak bağlantıyı kuracak ikiside yoksa Bağlantı yok deyip cıkacak.

bu kadar.

Teşekkürler.

[arifcell]

http://www.vbturk.net/okubakim.asp?id=13919&kid=4
ADRESINDEN ALINTIDIR.INSALLAH ISINE YARAR


On Error Resume next

Dim con As New ADODB.Connection
con.ConnectionString = "Provider=sqloledb;Data Source=server.server.com ;Initial Catalog=veritaban;User Id=admin;Password=1234"

If Err<>0 Then
MsgBox Err.Description
End
Else
MsgBox "bağlantı Başarılı"
End If

[Rafet]

Olur gibi oldu ama her ne yazarsam yazıyım bağlantı başarılı diyor. Birazdaha çalşayım belki biraz uğraşırsam olur en azından bişeye benziyor kodlar. Olacak gibi inşallah. Teşekkürler.

Muhabbetle.

[Ferhat Pazarçevirdi]

Genel olarak bağlantı kontrolünü aşağıdaki gibi yapabilirsin.

Baglantikomutu = '...... (Nasıl bir veri tabanına (MSSQL, MYSQL, Access vb) bağlanacaksan uygun bir string)
Set conn = New adodb.Connection
If (conn.State <> adStateOpen) Then
msg = MsgBox("Baglanti Kapalı.. Açılsın mı?", vbYesNo)
If msg = vbYes Then: conn.Open baglantikomutu
Else
MsgBox "Baglanti ACIK"
End If

[Rafet]

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

[kutadgu]

Saol arkadaşım çok teşekkür ederi. Excel de SQL bağlantısını ne zamandır yapmak istiyordum. Eline sağlık. Çalıştı.