1 Konuyu açan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Konu: Cihan'a SQL ornek

SPT ornegi

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

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)

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

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
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

2 Cevaplayan neyzen

  • neyzen
  • Üye
  • Offline
  • Kayıt Tarihi: 11.02.2009
  • İleti: 82

Re: Cihan'a SQL ornek

Merhaba arkadaşlar,windows server 2000 üzerinde sql server 2000 yüklü
girisler isimli database'ye foxpro 9 ile bağlanmaya çalıştım ancak
bağlantıyı sağlayamadım.acaba nerede hata yapıyorum ? şimdiden teşekkürler


***************
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.5.13","85.105.120.100")

m.lnstart = datetime()

strConString = ;
"Driver={SQL Native Client};Server= &lcServerType;Database=girisler;Uid=sa;Pwd=1350;"

lnHandle = Sqlstringconnect( m.strConString)

IF m.lnHandle < 0
  WAIT WINDOW  m.lnHandle
  MESSAGEBOX("Bağlantı sağlanamadı")
return
ENDIF

SQLExec(m.lnHandle,[select * from girisler])
m.lnstop = datetime()
m.lnDiff = m.lnStop - m.LnStart
BROWSE
WAIT WINDOW "Query Time : " + TRANSFORM(m.lndiff)

En büyük sermaye nakit,nakit sermaye vakittir...

3 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Cihan'a SQL ornek

kodu asagidaki gibi degistir , sen SQL2000 e SQL2005 driver i ile baglanmaya calisiyorsun hata orda

Visual Fox Pro
1

2

strConString = ;

"Driver={SQL Server};Server= &lcServerType;Database=girisler;Uid=sa;Pwd=1350;"
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

4 Cevaplayan neyzen

  • neyzen
  • Üye
  • Offline
  • Kayıt Tarihi: 11.02.2009
  • İleti: 82

Re: Cihan'a SQL ornek

Soykan üsdadım,öncelikle ilgilendiğin için teşekkür ederim.yukardaki kodla bağlandım.Bağlandığımda ilk önce,Bağlantı başarısız oldu (SQL server hatası 53 ve 17) dedi ve karşıma bir login ekranı çıktı.ve burada sunucu adı,oturum kimliği ve parola bilgilerini istedi.Sunucu adını IP ele değilde MAIN_SERVER şeklinde seçtiğimde bağlanabildim.Ekran çıktısının buraya ekyebilseydim ekte gönderecektim.Acaba nerede yanlış var.Yoksa direk SQL 2005 mi kursam ?

En büyük sermaye nakit,nakit sermaye vakittir...

5 Cevaplayan neyzen

  • neyzen
  • Üye
  • Offline
  • Kayıt Tarihi: 11.02.2009
  • İleti: 82

Re: Cihan'a SQL ornek

soykan üsdat, K1 isimli servere(Program geliştirdiğim makinada kurulu değil) sql server2005 kurdum ve içerisine webyayin isimli bir database oluşturdum.ve kimlik isimli bir tablom var.Kodları aşağıdaki gibi düzenledim

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.5.201","85.105.120.100")

m.lnstart = datetime()
strConString = ;
"Driver={SQL Native Client};Server= &lcServerType;Database=webyayin;Uid=sa;Pwd=12345;"
lnHandle = Sqlstringconnect( m.strConString)

IF m.lnHandle < 0
WAIT WINDOW  m.lnHandle
MESSAGEBOX("Bağlantı sağlanamadı")
return
ENDIF

SQLExec(m.lnHandle,[select * from kimlik])

bu şekilde bağlanması gerekirken bağlanamadım :-( acaba SQL server 2005 de gözden kaçırdığım yada çalıştırmadığım bir servis mi var  anlayamadım doğrusu.yukarıdaki şifreler ile sql server management studio dan bağlanabiliyorum.şimdiden teşekkür ediyorum..

En büyük sermaye nakit,nakit sermaye vakittir...