'IT/Delphi'에 해당되는 글 3건

IT/Delphi

델파이로 mssql 데이터베이스 데이터 가져오기

델파이로 mssql 콤포넌트를 사용해서 mssql 연결을 했습니다.

http://ljh3326.tistory.com/24 


연결한 디비에서 테이블의 필드값을 가져오는 거를 해보려 합니다.

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
procedure GetFieldContents;
var
  qryTemp : TMSQuery;
begin
     qryTemp := TMSQuery.Create( nil );
     qryTemp.Connection := msConnection;
     qryTemp.FetchAll := True;
     try
       with qryTemp do
       begin
         close; sql.Clear;
         sql.text := ' select fieldnm1 from tablename ';
         Open;

         while not Eof do
         begin
           memo.Lines.Add(FieldByName('fieldnm1').AsString));
           next;
         end;

       end;
     finally
       qryTemp.Free;
     end;
end;
cs


1. TMSQuery컴포넌트 선언후 create를 합니다. 

2. 동적으로 create를 합니다. 할때 연결한 connetion을 가져옵니다.

3. sql에 쿼리를 넣고

4. Open해줍니다. 그리고 EndOfFile까지 while로 루프를 돌리면서

5. 메모 콤포넌트에 필드값을 뿌려줍니다.


아주 단순한 예제라 바로 이해가 되실겁니다.


'IT > Delphi' 카테고리의 다른 글

델파이로 mssql 데이터베이스 연결  (0) 2017.01.18
mssql 에서의 image필드를 파일로 만들기  (0) 2017.01.18
,
IT/Delphi

델파이로 mssql 데이터베이스 연결


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
var
 msConnection : TMSConnection;
begin
   msConnection := TMSConnection.Create(nil);
   with msConnection do
   begin
     try
       DisConnect;

       Authentication := auServer;
       Username       := id;
       Password       := pw;
       Server         := serverip;
       Database       := dbname;

       Connect;
      except
        on E : Exception do
        begin
          DisConnect;
          exit;
        end;
      end;
   end;
end;
cs


'IT > Delphi' 카테고리의 다른 글

델파이로 mssql 데이터베이스 데이터 가져오기  (0) 2017.02.10
mssql 에서의 image필드를 파일로 만들기  (0) 2017.01.18
,
IT/Delphi

mssql 에서의 image필드를 파일로 만들기

MSSQL에 image type 필드에 이미지가 있는 경우 파일로 만드는 방법입니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

var
  qryCust : TMSQuery;
  ms := TMemoryStream;
 begin
  qryCust := TMSQuery.Create(nil);
  qryCust.Connection := DBCONNECTION;
  ms := TMemoryStream.Create;
  try
    with qryCust do
    begin                   
      close;                
      sql.text := ' select imageField from TableName ';
      Open;
      TBlobField( FieldByName('Image')).SaveToStream(  ms );
      ms.Position := 0;
      ms.SaveToFile('C:\123.jpg');
    end;
  finally
    qryCust.Free;
    ms.free;
  end; 
cs


'IT > Delphi' 카테고리의 다른 글

델파이로 mssql 데이터베이스 데이터 가져오기  (0) 2017.02.10
델파이로 mssql 데이터베이스 연결  (0) 2017.01.18
,

최근 댓글

최근 트랙백

알림

이 블로그는 구글에서 제공한 크롬에 최적화 되어있고, 네이버에서 제공한 나눔글꼴이 적용되어 있습니다.

태그

MSSQL DB설계 PHP php 게시판 연결 ColorScripter XAMPP 로그인검사 코드 예쁘게 image mysql 연결 표현의기술 xampp설치 로그인 델파이 

링크

카운터

Today :
Yesterday :
Total :

티스토리툴바