안녕하세요.
델파이 고수님들의 조언을 부탁드립니다.
1. 파라독스에서 Table을 만드는 법 (인덱스도 포함해서)
2. 파라독스에서는 인데스가 깨지면 복구하는 방법
3. 아래의 소스에서 잘못된 부분을 지적해 주세요.
프로그램 실행시 파일이 없으면 생성해서 작업하고 싶은데...
실행시 'Number is Out of range' 라는 에러가 나옵니다.
DM.Bill1010.Active := False;
DM.Bill1010.DisableControls;
strQuery := 'CREATE TABLE "zip.db" (';
strQuery := strQuery+' post_serial INTEGER,';
strQuery := strQuery+' zip_cd CHAR(7),';
strQuery := strQuery+' address CHAR(70),';
strQuery := strQuery+' dong CHAR(60),';
strQuery := strQuery+' bun CHAR(30),';
strQuery := strQuery+' ho CHAR(20),';
strQuery := strQuery+' PRIMARY KEY (zip_cd))';
Query_name.Active := false;
query_name.close;
Query_name.sql.clear;
Query_name.Sql.Add(strSQL);
Query_name.open;
Query_name.Active := true;
DM.Bill1010.EnableControls;
번번히 여러 고수분들께 폐만 끼치는 것 같아서 죄송합니다.
꼭 답변 부탁드립니다.
With StrQuery do begin
Close;
Try
SQL.Clear;
SQL.Add( 'CREATE TABLE Zip.db ( ');
SQL.Add( ' zip_cd CHAR(7) NOT NULL, ');
SQL.Add( ' post_serial INTEGER, ');
SQL.Add( ' strQuery+' address CHAR(70), ');
SQL.Add( ' dong CHAR(60), ');
SQL.Add( ' bun CHAR(30), ');
SQL.Add( ' ho CHAR(20), ');
SQL.Add( ' PRIMARY KEY (zip_cd)) ');
ExecSQL;
Except
End;
Close;
end;
이렇게 해보세요.
즐코하세요.