Uzak Sql Bağlantı

[pcman]

Arkadaşlar Öncelikle herkese selamlar..

Benim yapmak istediğim Access Açılış formuna şöyle bir kod yazmak

uzak bilgisayarda sql yüklü ve sql portu açık

açılış formu İlk önce internet bağlantısını kontrol edecek internet yoksa hiçbirşey yapmayacak varsa,

uzak bilgisayardaki ip ile sql bağlantı vayoksa

bişey yapmayacak

bağlantı varsa

uzak bilgisayardaki ip ile sql bağlanıp log tablosuna

ip adresini
tarih saat
ve işlemci nosunu yazacak

log tablosunda [ip],[tarih],[pc] alanları var

ve yine internet bağlantısının var olduğunu düşünüyoruz...
uzak bilgisayardaki ip ile sql bağlanıp kontrol tablosundaki pc alanında

işlemci numarasını eşitleyecek işlemci nosu access yüklü olduğu bilgisayara ait

[kontrol].[pc] = işlemci no

eşit değilse veya kayıt yoksa program kapanacak

eşitse eşitleme yapıldıktan sorda kontrol taplosundaki demo alanına bakacak

[demo] = -1 ise mesaj çıkıp program kapanacak
[demo] = 0 ise program normal şekilde çalışmaya devam edicek


yardımlarınız için şimdiden teşekkürler...

 

[pcman]

bu kodları buldum bu kodlarla uzak bilgisayardaki sql bağlanabilirmiyiz ???

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&#305; Ba&#351;ar&#305;l&#305;.")
Else
MsgBox ("Ba&#287;lant&#305;da Sorun Var.")
End If