Rst Uzak Sql Sorunu!

[0sk1]

şimdi arkadaşlar

dim conn As New ADODB.Connection
dim rst As New ADODB.Recordset
Public Sub baglan()
On Error Resume Next
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source='127.0.0.1,1433';Network Library=DBMSSOCN;Initial Catalog='server';User ID='server';Password='server';"
.Open
End With
Exit Sub
hata:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical
End
End Sub
Private Sub Form_Load()
baglan
End Sub[/CODE]

Bu kod ile bağlanıyorum normal kendi localden ama arkadas ta baglanıcak onun için

Data Source='127.0.0.1,1433'

kısmındaki 127.0.0.1 yerine ip adresimi yazıyorum bağlanmıyor 1433 UDP açık..

Bu bana lazım okul projesi için bu sorun çözülmeden bir yere gidemiyorum..

ADODC nesnesi ekli ...

[sk8er_boi]

Windows firewall açık mı?

[esmer1881]

arkadaşım sanırım asp ile ugraşıyorsun veya VB

c# bir örnek veriyorum.Kullanıcı adı ve şifreyi bir veya bir kaç kişi kullanmak istiyorsa bu şekilde yap.

static string constr = "data source=localhost;initial catalog=deneme;integrated security=sspi";

Projene yardım etmek isterim.Ama inan ki şu sıralar kendimde değillim.

[0sk1]

Firewall açık ama özel izinler kısmına 1433 Sql Server UDP olarak ekledim..

[sk8er_boi]

TCP olarak ta ekle