1 Konuyu açan ugurlu2001

  • ugurlu2001
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,051

Konu: Image Veri Tipini SQL Server da kullanma. Tips & Tricks

Sabah bir ara Çetin Üstad ile bağlanıp ufak bir deneme yaptık. Amaç SQL Serverdaki IMAGE veri şeklini işlemek gibi görünsede birazdaha farklı. Konuya SQL Server güvenliğinden başladık. Öncelikle kod aşağıda:


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

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

LOCAL cn,rs

cn = CreateObject('AdoDb.Connection')

cn.ConnectionString = "Provider=SQLNCLI10;server=.;Trusted_Connection=yes"

cn.Open()

rs = cn.Execute("select * from ImageDb..ImageTable1")

 

  Local oCa As CursorAdapter

  oCa = Createobject('Cursoradapter')

  oCa.DataSourceType = "ADO"

  oCa.CursorFill(.F.,.F.,0,RS)

  Select * FROM (oCa.Alias) INTO CURSOR myCursor

cn.Close()    

 

PUBLIC oForm

oForm = CreateObject("ImageTest")

oForm.Show()

 

DEFINE CLASS ImageTest As Form

    Top = 5

    Left = 5 

    Height = 400

    Width = 700 

 

    Add Object grid1 As Grid With ;

        Height = 365, ;

        Left = 10, ;

        Top = 10, ;

        Width = 350, ;

        Name = "Grid1"    

 

        Procedure grid1.AfterRowColChange

            LPARAMETERS nColIndex

            IF this.RowColChange % 2=1

            this.Parent.image1.PictureVal=myCursor.personPicture

            ENDIF

         Endproc

 

    Add Object Image1 As Image With ;

        Height = 250, ;

        Left = 365, ;

        Top = 10, ;

        Width = 250, ;

        Name = "Image1"    

        PictureVal = myCursor.personPicture

 

ENDDEFINE

Notlara gelince:

- Kesinlikle Recordset ve Windows Authentication kullanmak gerekiyor, çok mecbur kalırsan kısıtlı kullanıcı oluşturulup kısıtlı kullanıcı ve  adı ve kısıtlı kullanıcı pswd kullanmalı.

-

Visual Fox Pro
1

cn.ConnectionString = "Provider=SQLNCLI10;server=.;Trusted_Connection=yes"

  satırı kullandığınız server 'a göre farklı olabilir.


- Kodu; forma göre derledim, hatalı derleme olduysa hoş görün artık.

Son düzenleyen, ugurlu2001 (06.10.2009 17:20:16)

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü