Konu: Ilginc bir SQL Connection Error Sorunu
ADSL ile baglantısı ile baglanabilen ama GSM/3G baglantısı uzerinden baglanilamiyan SQL Connection Sorunu
asagidaki kod ile adsl baglantisi uzerinden SQL Server'a baglanip testimi gerceklestiriyorum ancak internetnet baglantimi cep telefonum uzerinden yapip kodu tekrar calistirdigimda hata aliyorum fikri olan ?
Local lcConnectionString, lnHandle
m.lcConnectionString = 'Driver={SQL Server Native Client 10.0};'+;
'Server=XX.XXX.XXX.XXX;Database=soykan;Uid=soykan;Pwd=xxxxxx'
lnHandle = Sqlstringconnect(m.lcConnectionString)
If m.lnHandle < 0
Messagebox(ShowSQLError())
Else
Messagebox("Baglanti Kuruldu",64,2)
If SQLExec(m.lnHandle,'select * from soykan..test','result') >0
Select 'result'
Browse Normal
Else
Messagebox(ShowSQLError())
Endif
Endif
Func ShowSQLError
Local lcError,ix
Local Array aWhy[1]
Aerror(aWhy)
lcError = ""
For ix = 1 To 7
lcError = m.lcError + Transform(aWhy[m.ix]) + Chr(13)
Endfor
Return m.lcError
Endfunc