임베디드 프로그래밍  

         
전체 기타 | WinCE | Delphi | VisualC | ARM | Media | SE | 마리오네트 | Java | wdm | JTAG | 영상처리 | 인증 | 질문/답변 | H/W | 알고리즘 | Platform | .net | VB | PPC | Network | android | QT | WWW | Linux |
동적 Database 연결과 동적 Table 생성 예제
하창호04-24 18:16 | HIT : 5,500
동적 Database 연결과 동적 Table 생성 예제

type
  TFormMain = class(TForm)
  public
    m_szDailyTableName: String;
    m_sOldDate: TDateTime;
  end;

implementation

uses DateUtils;

procedure TFormMain.BtnCreateDatabaseClick(Sender: TObject);
var
  szCurDir: String;
begin
  Database1.Connected := False;

  szCurDir := GetCurrentDir;
  szCurDir := szCurDir + '\DB';
  if not DirectoryExists(szCurDir) then
    if not CreateDir(szCurDir) then
      Exit;

  Database1.AliasName := '';
  Database1.DatabaseName := 'StockDA';
  Database1.DriverName := 'STANDARD';
  Database1.LoginPrompt := False;
  Database1.Params.Clear;
  Database1.Params.Add('Path' + Database1.Params.NameValueSeparator + szCurDir);
  Database1.Connected := True;

  Query1.DatabaseName := Database1.DatabaseName;
end;

function TFormMain.GetDailyTableName:String;
begin
  if (DayOfTheYear(Now) <> DayOfTheYear(m_sOldDate)) or (DayOfTheMonth(Now) <> DayOfTheMonth(m_sOldDate)) then
  begin
    m_sOldDate := Now;
    m_szDailyTableName := 'daily' + IntToStr(DayOfTheYear(m_sOldDate)) + IntToStr(DayOfTheMonth(m_sOldDate)) + '.db';
  end;

  Result := m_szDailyTableName;
end;

procedure TFormMain.BtnCreatetTableClick(Sender: TObject);
var
  szTableName: String;
  szCurFile: String;
begin
  if not Database1.Connected then Exit;

  szTableName := GetDailyTableName;
  szCurFile := GetCurrentDir + '\DB\' + szTableName;
  if FileExists(szCurFile) then Exit;

  Query1.DatabaseName := Database1.DatabaseName;
  Query1.SQL.Clear;
  Query1.SQL.Text :=
    'Create TABLE "' + szTableName + '"' +
    '(' +
    'adate CHAR(8) ,' +
    'code CHAR(20) ,' +
    'name CHAR(20) ,' +
    'PRIMARY KEY (adate, code)' +
    ')';
    Query1.ExecSQL;

end;


 Delphi :: 동적 Database 연결과 동적 Table 생성 예제    하창호 2008·04·24 5500
10  Delphi :: MSSQL 2005 와 연동시 ntwdblib.DLL 에러에...    하창호 2008·04·24 5871
9  Delphi :: MS SQL Free 2005 Download    하창호 2008·04·23 3624
8  Delphi :: SQL DDI 문중 CREATE TABLE 예제  …1  하창호 2008·02·29 3383
7  Delphi :: 증권 관련 업체코드 검색 및 파일 로딩 예제    하창호 2005·05·02 4383
6  Delphi :: [매직포토스] DIB 사용 예제    하창호 2005·02·05 5093
5  Delphi :: AssignFile, OpenDialog, Readln, Clo...    하창호 2004·03·24 5046
4  Delphi :: Auto Keyboard & Auto Mouse  …1  하창호 2004·03·18 4952
3  Delphi :: Little Endian과 Big Endian 간의 변환 함...  …2  하창호 2004·03·18 7145
2  Delphi :: idHttp Control 사용시 403 Forbidden er...  …2  하창호 2004·03·08 7813
1  Delphi :: [URL] Internet Direct (Indy) Open S...    하창호 2004·02·10 3538
1
   
Copyright 1999-2018 Zeroboard / skin by GGAMBO
....