단단이아빠의 세상

본문

로컬에서만 작업해야 할 프로젝트가 하나 있어서 디비로 acess 를 사용할 까 하다가 파이어버드를 사용하기로 하고 작업시작....

하루종일 삽질 중...

먼저 좀 편하게 제어하기 위해서

flamerobin 을 찾았다. 파이어버드 임베디드를 위한 gui 프로그램...

http://www.flamerobin.org/

그런데 문제는 예전에 깔아보았던 파이어버드 서버 때문에 C:\Windows\SysWOW64 에 gds32.dll 때문에 제대로 작동을 안한다.

뭔가 다른 방법이 있겠지만 지금은 바빠서리(이것때문에 언젠가 우리나라 it는 망할거다. 젠장) 기존에 있던 gds32,dll을 삭제하고 fbembed.dll를 gds32.dll로 이름 변경해서 복사했다. 혹시 몰라서  C:\Windows\system32에도 복사.

그외에

본문

본문

wb1.OleObject.Document.getElementById('axisY').value

본문

Delphi 2009 + Unidac + Oracle 의 상황에서

insert 할 때 

Could not convert variant of type (String) into type (Double)

와 같은 에러가 뜰때가 있다.

아직도 왜 그런지는 모르지만 

현재의 상황은

1.insert 할 컬럼이 Number 이고 그 데이터를 쿼리문의 결과로 받아서 집어넣을 때

    예) 'insert into A (Col) values (''' + unqry.FieldByName('Col1').value+''')';

2.  unqry.FieldByName('Col1').value 이 Number 형 일 때

발생한다.

일단 'insert into A (Col) values (''' + IntToStr(unqry.FieldByName('Col1').value)+''')'; 으로 하면 해결은 된다.

본문

cxGridTableView1.DataController.Values[ RecordIndex,ItemIndex ] 

 cxGrid1TableView1.Controller.FocusedRow.Index <-- 그려진 Row의 Index
 cxGrid1TableView1.Controller.FocusedRow.RecordIndex <-- 실제 레코드의 Index

본문

1.에러 상황

 Win Xp Sp3 + Delphi 2009 + unidac 2.7 + Firebird 2.1 에서 작업한 파일을 다른 컴퓨터로 옮겨서 실행시키면 "CHARACTER SET KSC_5601 is not installed" 에러가 난다.

2.해결 방안

본문

ExtractFilePath(Application.exeName)

본문

wdir := DCB_target.Drive + ':' + FormatFloat('00',E_cha.Value);
if Not DirectoryExists(wdir) then CreateDir(wdir);

본문

if MoveFile(PChar(sOrgFileName),PChar(sNewFileName)) then
  begin
    ShowMessage(sOrgFileName+`을 `+sNewFileName+`로 옮겼습니다.`);
  end;
 

본문

procedure TfmMain.GetData;
var
DirInfo: TSearchRec;
r,Loop,I : Integer;
begin
  if cbb1.ItemIndex < 0 then
  begin
    ShowMessage('가져올 파일 갯수를 선택하세요.');
    Exit;
  end;

  btnSaveExcel.Enabled := False;
  btnInputDB.Enabled := False;

  AdvStrGrid2.Clear;
  AdvStrGrid2.RowCount := 2;

  if not FolderDlg1.Execute then
    FolderDlg1.Execute;

  r := FindFirst(FolderDlg1.Directory + '*.xls', FaAnyfile, DirInfo);

  Loop := 0;

  While r = 0 do
  begin
    Application.ProcessMessages;
    if Loop = StrToInt(cbb1.Items[cbb1.ItemIndex]) then Break;

    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
          (DirInfo.Attr and FaVolumeId <> FaVolumeID))
    then
      //mmo1.Lines.Add(DirInfo.Name);
      SetFileName(DirInfo.Name);
      advgrdxcl1.XLSImport(FolderDlg1.Directory + '' + DirInfo.Name);
      AdvStrGrid2.ColCount := AdvStrGrid1.ColCount + 1;
      //DeleteFile(pChar(FolderDlg1.Directory + '' + DirInfo.Name));
      AdvStrGridFile.AddRow;
      AdvStrGridFile.Cells[0,Loop] := FolderDlg1.Directory + '' + DirInfo.Name;
    r := FindNext(DirInfo);
    Loop := Loop + 1;
  end;

  SysUtils.FindClose(DirInfo); // FindFirst에 의해 사용된 메모리를 해제
  btnSaveExcel.Enabled := True;
  btnInputDB.Enabled := True;
end;