Konu: Cihan'a SQL ornek
SPT ornegi
Local lnHandle,strConString
LOCAL lnStart,lnStop,lnDiff
LOCAL lcServerType
nAnswer=INPUTBOX("","Server Tipini Girin : 1-local 2-internet","1")
lcServerType= ICASE(nAnswer="1","192.168.1.33","xx.xxx.xx.xxx")
m.lnstart = datetime()
strConString = ;
"Driver={SQL Native Client};Server= &lcServerType;Database=labdata;Uid=itkib;Pwd=xxxxx;"
lnHandle = Sqlstringconnect( m.strConString)
IF m.lnHandle < 0
WAIT WINDOW m.lnHandle
ENDIF
&&SQLExec(m.lnHandle,[select * from labdata..snchar where sirano =?psirano],[test])
SQLExec(m.lnHandle,[select * from labdata..musteri],[test])
m.lnstop = datetime()
m.lnDiff = m.lnStop - m.LnStart
BROWSE
WAIT WINDOW "Query Time : " + TRANSFORM(m.lndiff)
&&SQLExec(m.lnHandle,[UPDATE musteri SET yetkili='SOYKAN OZCELIK' WHERE firmaadi='SOYKAN'])
&&SQLExec(m.lnHandle,[TABLEUPDATE(2,.t.,'labdata..musteri'])
&&SQLExec(m.lnHandle,[select * from labdata..musteri],[test])
SQLExec(m.lnHandle,[insert into musteri(firmaadi,yetkili) values('CIHAN','CIHAN CAKMAK')])
SQLExec(m.lnHandle,[TABLEUPDATE(2,.t.,'labdata..musteri'])
SQLExec(m.lnHandle,[select * from labdata..musteri],[test])
BROWSE
buda CursorAdapter ile ornek (cetin hocanin SQL CA kodlarinin sende oldugunu varsayarak)
SET DEFAULT TO "d:\cetin_sqlSeries"
Public oApp
oApp=Createobject([appBase])
With SQLQuery([Select * From labdata..Musteri],[CrsMusteri])
If Not .CursorFill(.F. ,.F. , 0 , .oCommand)
Messagebox( .GetErrorExplanation() )
Else
.makeupdatable([Labdata..Musteri],[AnaKey])
Browse
If Not Tableupdate(2,.T.,[CrsMusteri])
Messagebox( .GetErrorExplanation() )
Endif
Brow
Endif
Endwith
Define Class appBase As Custom
Datamode= [SQL]
AdoDataConnectionString = [provider=SQLNCLI;server=xx.xx.xx.xx;database=LabData;Uid=itkib;Pwd=xxxxx;]
DataConnectionString = [provider=SQLNCLI;server=xx.xx.xx.xx;database=LabData;Uid=itkib;Pwd=xxxxx;]
Enddefine