Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
sql serverdaki database listesini nasıl alırım? bu daha önce de sorulmuştu ve kodunu kopyalamıştım ama kimbilir nerde?
soykan'a bir not: site bana gelen özel mesajlar konusunda hiç uyarmıyor. bu konuyu açmak için yanlışlıkla mesajlara tıkladığımda gördüm özel mesajları...
Database ve tablo listesini verir.
clear
scon="driver=sql server;server=(local)\sqlexpress"
bh=sqlstringconnect(scon)
if bh>0
qq=sqlkomut(bh,"sp_helpdb") &&DATABASES
BROW
qq=sqlkomut(bh,"sp_tables") &&AKTIF DATABASEIN TABLOLARI
BROW
else
messagebox("Bağlantı kurulamadı","SQL SERVER")
endif
sqldisconnect(0)
return
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
teşekkürler... 
bir de kayıtlı server'ların listesini veren birşey vardı... onu verebilecek biri var mı???
Local oSQLDMO As SQLDMO.SQLserver,;
oSG As SQLDMO.ServerGroup,;
oSrv As SQLDMO.RegisteredServer
oSQLDMO = Createobject("SQLDMO.SQLserver")
? 'SQL server groups count:', oSQLDMO.Application.ServerGroups.Count
For Each oSG In oSQLDMO.Application.ServerGroups
? TEXTMERGE('SQL server group name:[<<oSG.Name>>]'+;
' have <<oSG.RegisteredServers.Count>> registered servers')
For Each oSrv In oSG.RegisteredServers
? oSrv.Name
Endfor
Endfor
bir daha teşekkürler...
Onu yazarken daha once farketmedigim bir seyi farkettim:)
Local oSQLDMO As SQLDMO.SQLserver
oSQLDMO = Createobject("SQLDMO.SQLserver")
oSQLDMO.Connect('.\SQLExpress;Trusted_Connection=yes')
? oSQLDMO.ServerTime
Onu yazarken daha once farketmedigim bir seyi farkettim:)
Local oSQLDMO As SQLDMO.SQLserver
oSQLDMO = Createobject("SQLDMO.SQLserver")
oSQLDMO.Connect('.\SQLExpress;Trusted_Connection=yes')
? oSQLDMO.ServerTime
bu da güzel. bunların hepsi select ile de alınıyordu gerçi ama nesne olması daha pratik. intellisense sayesinde hepsini görebilirsin... servertime özellikle satış yapan yerler için çok önemli. elemanın geri tarihli ödeme girip parayı cebe atmaması için.