Veri Tabani SQL ama İP net IP si

[Rafet]

Makroda SQL db.den bilgi çeliyorum. Ve SERVER adı yerine server IP sini ayzıyorum. Bu IP yerine İnternet IP numarasını yazsam parolasını da girsem yine verileri internet üzerinden çaıra bilmem olanaklimi.

Kodum .

Sub Kod ()
With Range("Sorgu_alanı1").QueryTable
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=192.168.0.99;UID=sa;PWD=;APP=Microsoft Office 2003;WSID=ANA;DATABASE=deneme"
.CommandText = Array( _
" " & Chr(13) & "" & Chr(10) & "SELECT (' ('+A.STOK_KODU+') - '+C.STOK_ADI),SUM(A.STHAR_GCMIK),SUM(case when sthar_gckod='g' then (-1*STHAR_BF*STHAR_GCMIK) else (STHAR_BF*STHAR_GCMIK) end) ,(B.CARI_ISIM+' ('+B.CARI_KOD+')'),A.SUBE_K" _
, _
"ODU" & Chr(13) & "" & Chr(10) & "FROM TBLSTSABIT C, " & Chr(13) & "" & Chr(10) & " TBLSTHAR A" & Chr(13) & "" & Chr(10) & " LEFT OUTER JOIN" & Chr(13) & "" & Chr(10) & " TBLCASABIT B on A.STHAR_CARIKOD=B.CARI_KOD " & Chr(13) & "" & Chr(10) & "WHERE A.STOK_KODU=C.STOK_KODU " & Chr(13) & "" & Chr(10) & "AND STHAR_SIPNUM IS NULL" & Chr(13) & "" & Chr(10) & "AND A.SUBE_KODU='1'" & Chr(13) & "" & Chr(10) & "AND CARI_TIP='A' " & Chr(13) & "" & Chr(10) & "and STHAR_TARIH BETW" _
, _
"EEN '" + Format(Sheets("Bilgiler").Range("C11"), "yyyy-mm-dd") + "' AND '" + Format(Sheets("Bilgiler").Range("C12"), "yyyy-mm-dd") + "'" & Chr(13) & "" & Chr(10) & "GROUP BY A.SUBE_KODU,A.STOK_KODU,B.CARI_KOD,B.CARI_ISIM,C.STOK_ADI" & Chr(13) & "" & Chr(10) & "ORDER BY A.SUBE_KODU,A.STOK_KODU,B.CARI_KOD,B.CARI_ISIM,C.STOK_ADI" & Chr(13) & "" & Chr(10) & "" _
)
.Refresh BackgroundQuery:=False

End With

End Sub


Kodu .TXT dosyası olarak ta eklidim.