Konu: SSE versiyonunu bulma
SQL Server Express ile çalışmaya başladım. Yeni öğreniyorum sayılır.
Bu alanı canlandırmak için birşeyler gönderiyorum.
** Kurulu yazılım listesi içinde arama yapar.
** 20 sn. sürüyor
************************************************
aprog="SQL"
clea
sec1=seconds()
create cursor xse(urun char(80),versiyon char(15),kurulum char(8),uretici char(30),yer char(60))
lcc=getwordnum(sys(0),1)
owmi=getobject("WinMgmts://"+lcc)
ox=owmi.instancesof("Win32_PRODUCT")
for each oxx in ox
with oxx
if UPPER(aprog) $ upper(.name)
insert into xse values(nvl(.caption,""),nvl(.version,""),;
nvl(.installdate,""),nvl(.vendor,""),nvl(.installlocation,""))
endif
endwith
endfor
? alltrim(transform(int(seconds()-sec1)))+" sn."
? "Bulunan : "+alltrim(transform(reccount()))+"/"+alltrim(transform(ox.count))
brow
** SQL Server Expresin running-stopping durumunu öğrenir
**************************************************
aprog="SQL"
clea
sec1=seconds()
create cursor xse(caption char(40),name char(20),startmode char(10),;
state char(10),status char(10),description char(60))
lcc=getwordnum(sys(0),1)
owmi=getobject("WinMgmts://"+lcc)
ox=owmi.instancesof("Win32_SERVICE")
for each oxx in ox
with oxx
if upper(aprog) $ upper(.caption)
insert into xse values(nvl(.caption,""),nvl(.name,""),nvl(.startmode,""),;
nvl(.state,""),nvl(.status,""),nvl(.description,""))
endif
endwith
endfor
? alltrim(transform(int(seconds()-sec1)))+" sn."
? "Bulunan : "+alltrim(transform(reccount()))+"/"+alltrim(transform(ox.count))
brow
** SQL Server Expresin versiyonu ve diğer gereksiz bilgiler
**************************************************
clear
scon="driver=sql server;server=(local)\sqlexpress"
bh=sqlstringconnect(scon)
if bh>0
sqlkomut(bh,"select @@servername")
? strtran(sqlresult.exp,chr(0))
sqlkomut(bh,"select serverproperty('edition')")
? strtran(sqlresult.exp,chr(0))
?
sqlkomut(bh,"select @@version")
? strtran(sqlresult.exp,chr(0))
qq=sqlkomut(bh,"sp_server_info")
listele(qq)
qq=sqlkomut(bh,"sp_spaceused")
listele(qq)
qq=sqlkomut(bh,"sp_monitor")
listele(qq)
else
messagebox("Bağlantı kurulamadı","SQL SERVER")
endif
sqldisconnect(0)
return
******************
procedure listele (qq)
if qq=-1
endif
for ii=1 to qq-1
cursn="SQLRESULT"+alltrim(transform(ii))
select &cursn
list off
next
endproc
*****************************
procedure sqlkomut(ch,scmd,ccur)
ex=0
ex=sqlexec(ch,scmd)
if ex<0
zz=scmd+CHR(10)+CHR(10)+REPLICATE("+-",40)
aerror(aerrs)
FOR ix=1 TO ALEN(aerrs)
zz=zz+CHR(10)+TRANSFORM(aerrs(ix))
next
messagebox(zz,"SQL SERVER HATASI")
endif
return ex
endproc