델초보입니다.
너무 골머리가 아파서 문의드립니다.

....
....
var CurrentDBName:String;
....
....
db를 동적으로 생성해서 사용하려고
위와같이 CurrentDBName 를 변수로 지정해 줬습니다.

그리고 Form1.FormShow 이벤트에서
CurrentDBName:=ExtractFilePath(Application.ExeName) + 'dat\1.db';
라고 지정도 해쭸지만 아래 소스의 select문에서 "token not found token C"란 에러가 납니다.
그래서 Form1.FormShow 이벤트에서 CurrentDBName:='\1.db'; 라고 지정해주고 C드라이브의 루트에
'1.db'파일을 복사해 주었더니 인식을 합니다.
무엇이 잘못되었는지 어제 새벽부터 게시판을 질답란을 검색해봐도
알수가없읍니다.

제 생각에는 변수에 'c:\프로그램모음\팁관리\dat' 란 스트링이 들어가 있는데
'C' 다음에오는 ':'을 인식을 못해서 그런건 아닌가 생각도 해봅니다.
고수닙들의 답변 부탁드립니다.


procedure query_start();
begin
  Form1.DataSource1.dataset := Form1.Query1;
  Form1.Query1.DatabaseName := ExtractFilePath(Application.ExeName) + 'dat';  // alias
  Form1.DBGrid1.DataSource := Form1.DataSource1;


  Form1.DBGrid1.Columns.Add;  // 원하는 컬럼수만큼 추가.
  Form1.DBGrid1.Columns[0].FieldName := 'title'; // column 명
  Form1.DBGrid1.Columns[0].Title.Caption:='제목';
  Form1.DBGrid1.Columns[0].Color:=$009C9C4E;
  Form1.DBGrid1.Columns[0].Width:=400;

  Form1.DBGrid1.Columns.Add;  // 원하는 컬럼수만큼 추가.
  Form1.DBGrid1.Columns[1].FieldName := 'Mk_date'; // column 명
  Form1.DBGrid1.Columns[1].Visible:=false;

  Form1.DBGrid1.Columns.Add;  // 원하는 컬럼수만큼 추가.
  Form1.DBGrid1.Columns[2].FieldName := 'memo'; // column 명
  Form1.DBGrid1.Columns[2].Visible:=false;

  Form1.DBGrid1.Columns.Add;  // 원하는 컬럼수만큼 추가.
  Form1.DBGrid1.Columns[3].FieldName := 'gooboon'; // column 명
  Form1.DBGrid1.Columns[3].Visible:=false;

      with Form1.Query1 do
        begin
            Close;
            SQL.Clear;
            sql.add(format('select * from %s', [CurrentDBName] ));
            Open;

        end;
end;