Q&A
- [분명] 동적생성 테이블이 맞는데,,,
procedure tform1.make_table;
var
imtable : ttable;
begin
imtable := ttable.Create(application);
imtable.DatabaseName := 'infofarm';
imtable.TableName := ed5.Text;
imtable.TableType := ttparadox;
imtable.FieldDefs.Clear;
imtable.FieldDefs.Add('key', ftfloat,0, true);
imtable.FieldDefs.Add('name', ftstring, 30, false);
imtable.IndexDefs.Clear;
imtable.IndexDefs.Add('', 'key', [ixPrimary]);
imtable.IndexDefs.Clear;
imtable.CreateTable;
imtable.Open;
end;
하면 인벨류드 파라미터 에러가 납니다!!
왜일까요?
유니크가 있어도 그런 현상이 나는데,,,
var
imtable : ttable;
begin
imtable := ttable.Create(application);
imtable.DatabaseName := 'infofarm';
imtable.TableName := ed5.Text;
imtable.TableType := ttparadox;
imtable.FieldDefs.Clear;
imtable.FieldDefs.Add('key', ftfloat,0, true);
imtable.FieldDefs.Add('name', ftstring, 30, false);
imtable.IndexDefs.Clear;
imtable.IndexDefs.Add('', 'key', [ixPrimary]);
imtable.IndexDefs.Clear;
imtable.CreateTable;
imtable.Open;
end;
하면 인벨류드 파라미터 에러가 납니다!!
왜일까요?
유니크가 있어도 그런 현상이 나는데,,,
2
COMMENTS
-
-
먼저 답변감사합니다
그대로 옮겨 코딩을 해도 똑같이 invaild parameter 이란
에러메세지가 나옵니다
음,,uses 절에 추가해야 하는게 있나요?
아니면 tablename이 한글인데 한글도 전 되는걸로 알고있는데요
답답합니다
임형호 wrote:
> //제가 가지고 있는 자료인데요. 참조하세요.(예전에 모아두었던것 중에 하난데...어느님껀지는 모르겠네요) 인덱스가 있는 테이블 생성
>
> procedure CreateATable(DBName, //Alias or path
> TblName : String); //Table Name to Create
> TblType : TTableType); //ttDefault, ttParadox, ttDBase, ttASCII
> var
> tbl : TTable;
> begin
> tbl := TTable.Create(Application);
> with tbl do begin
> Active := False;
> DatabaseName := DBName;
> TableName := TblName;
> TableType := TblType;
> with FieldDefs do begin
> Clear;
> Add('LastName', ftString, 30, False);
> Add('FirstName', ftString, 30, False);
> Add('Address1', ftString, 40, False);
> Add('Address2', ftString, 40, False);
> Add('City', ftString, 30, False);
> Add('ST', ftString, 2, False);
> Add('Zip', ftString, 10, False);
> end;
>
> {Add a Primary Key to the table}
> with IndexDefs do begin
> Clear;
> Add('Field1Index', 'LastName;FirstName', [ixPrimary, ixUnique]);
> end;
>
> CreateTable; {Make the table}
> end;
> end;
>
>
>
>
> 졸다졸다 wrote:
> > procedure tform1.make_table;
> > var
> > imtable : ttable;
> > begin
> > imtable := ttable.Create(application);
> > imtable.DatabaseName := 'infofarm';
> > imtable.TableName := ed5.Text;
> > imtable.TableType := ttparadox;
> >
> >
> > imtable.FieldDefs.Clear;
> > imtable.FieldDefs.Add('key', ftfloat,0, true);
> > imtable.FieldDefs.Add('name', ftstring, 30, false);
> >
> > imtable.IndexDefs.Clear;
> > imtable.IndexDefs.Add('', 'key', [ixPrimary]);
> > imtable.IndexDefs.Clear;
> > imtable.CreateTable;
> > imtable.Open;
> > end;
> >
> > 하면 인벨류드 파라미터 에러가 납니다!!
> > 왜일까요?
> > 유니크가 있어도 그런 현상이 나는데,,,
(NOTICE) You must be logged in to comment on this post.
-
- 홍진혁
- •
- 2001.05.12 16:04
- 1 COMMENTS
- /
- 0 LIKES
-
도지성•2001.05.12 20:17홍진혁 wrote: > 델파이를 사용하는 홍진혁입니다. > > 다름아니고, A 포인터에서 B 포인터로 C 바이트...
-
- 몬나니
- •
- 2001.05.12 12:19
- 3 COMMENTS
- /
- 0 LIKES
-
화랑•2001.05.14 20:55몬나니 wrote: > > 델파이로 ASP를 넣어 웹페이지를 개발하고 있습니다. > 그런데 컴파일을 하면 dll화...
-
몬나니•2001.05.15 22:21답변 감사드립니다. 지금 개발환경은 윈도우98에서 퍼스널웹서버를 깔고 작업하고 있습니다. 아직 NT에서...
-
화랑•2001.05.16 01:54죄송합니다.. 98에선 COM을 개발해 보질 않아서.. 2000이상에서는 COM+을 지원하기 때문에.. COM+에 올...
-
- Justy Ueki Tylor
- •
- 2001.05.12 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:47답변이 될련지는 모르겠습니다만, 소스가 저장된 프로젝트 디렉토리명에 한글이 사용되면 원인 모를 에러...
-
- 아기코알라
- •
- 2001.05.12 08:05
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.12 08:37아기코알라 wrote: > 안녕하세요 고수님들... > > 정말 질문 안할려고 같은 검색을 수십차례 하면서 보...
-
- 철
- •
- 2001.05.12 07:57
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:51서버와 TCP/IP통신을 하여 처리하는게 어떨지... 서버에서 실행될 통신서버도 개발해야 겠죠 철 wrote:...
-
- 최진영
- 2001.05.12 06:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보...
- 2001.05.12 06:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.05.12 05:39
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.12 12:40짱아 wrote: > 두개의 테이블을 조인하여 새로운 테이블을 만들어 필요한 데이타들만 insert하도록 했는 ...
-
- 초보
- •
- 2001.05.12 04:43
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.12 08:39초보 wrote: > String Grid나 DBGrid에 combobox를 넣을 수 있나요?........... > > 아니면 뭔가 비슷...
-
- hlpark
- 2001.05.12 03:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 퉤니
- 2001.05.12 03:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델피언
- •
- 2001.05.12 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
김진호•2001.05.13 05:05초보델피언 wrote: > 통신을 하다 보니까 > SendBuf라는 메소드가 있는데 그안에 있는 인자중에서 > Buf...
-
- 어린왕자
- •
- 2001.05.12 02:00
- 1 COMMENTS
- /
- 0 LIKES
-
강구•2001.05.12 07:45해당 ListView에서 항목을 선택 한뒤 .. procedure TForm1.Button1Click(Sender: TObject); Var Lis...
-
- 인만이
- •
- 2001.05.12 01:50
- 2 COMMENTS
- /
- 0 LIKES
-
연기훈•2001.05.12 01:53인만이 wrote: > 왕초보입니다.. > 버튼A와 버튼B를 두개를 만들고요.. > 버튼A를 눌렀을때 버튼B를 누...
-
명탁•2001.05.12 02:21연기훈 wrote: > 인만이 wrote: > > 왕초보입니다.. > > 버튼A와 버튼B를 두개를 만들고요.. > > 버튼A...
-
- 이곤섭
- 2001.05.12 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 나지영
- •
- 2001.05.12 01:42
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2001.05.12 02:01TFontDialog(Sender).Font.Name; 하면 되네요... 쩜만 한번 더 찍어봤어도..됐을텐데....^^;
-
- 졸다졸다
- •
- 2001.05.12 01:37
- 2 COMMENTS
- /
- 0 LIKES
procedure tform1.make_table; var imtable : ttable; begin imtable := ttable.Create(application); imtable.DatabaseName := 'infofarm'; imtable.TableName := ed5.Text; imtable.TableType := ttparadox; imtable.FieldDefs.Clear; i...-
임형호•2001.05.12 02:05//제가 가지고 있는 자료인데요. 참조하세요.(예전에 모아두었던것 중에 하난데...어느님껀지는 모르겠네요...
-
졸다졸다•2001.05.12 02:25먼저 답변감사합니다 그대로 옮겨 코딩을 해도 똑같이 invaild parameter 이란 에러메세지가 나옵니다 ...
-
- 초보
- •
- 2001.05.12 00:56
- 4 COMMENTS
- /
- 0 LIKES
-
초보•2001.05.15 02:11초보 wrote: 답변해 주신 님들께 감사드립니다. 혜룡님의 사용법은 충분히 이해하고 적용 했는데.... ...
-
최혜룡•2001.05.12 12:57아래 코드를 보니깐 제가 이전에 올린것이군요 취소하고자 할때 사용되는 정지버튼의 OnClick 이벤트처...
-
델동이•2001.05.12 01:19StopFlag 가 false로 초기화 된 상태에서 while문 내에서 true로 바뀌는 시점이 없는것 같은데요 무한루...
-
이희정•2001.05.12 01:13초보 wrote: > > 델가족 여러분 안녕 하세요 > While 문으로 루프를 돌리다가 필요실 중단하고 빠져나...
-
- 박종수
- •
- 2001.05.12 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
마당쇠•2001.05.12 02:15박종수 wrote: > 모양 한번 그려볼게요 > > 년월 이름 점수1 점수2 점수3 > ...
-
- 진짜초보
- 2001.05.12 00:24
- 0 COMMENTS
- /
- 0 LIKES
procedure CreateATable(DBName, //Alias or path
TblName : String); //Table Name to Create
TblType : TTableType); //ttDefault, ttParadox, ttDBase, ttASCII
var
tbl : TTable;
begin
tbl := TTable.Create(Application);
with tbl do begin
Active := False;
DatabaseName := DBName;
TableName := TblName;
TableType := TblType;
with FieldDefs do begin
Clear;
Add('LastName', ftString, 30, False);
Add('FirstName', ftString, 30, False);
Add('Address1', ftString, 40, False);
Add('Address2', ftString, 40, False);
Add('City', ftString, 30, False);
Add('ST', ftString, 2, False);
Add('Zip', ftString, 10, False);
end;
{Add a Primary Key to the table}
with IndexDefs do begin
Clear;
Add('Field1Index', 'LastName;FirstName', [ixPrimary, ixUnique]);
end;
CreateTable; {Make the table}
end;
end;
졸다졸다 wrote:
> procedure tform1.make_table;
> var
> imtable : ttable;
> begin
> imtable := ttable.Create(application);
> imtable.DatabaseName := 'infofarm';
> imtable.TableName := ed5.Text;
> imtable.TableType := ttparadox;
>
>
> imtable.FieldDefs.Clear;
> imtable.FieldDefs.Add('key', ftfloat,0, true);
> imtable.FieldDefs.Add('name', ftstring, 30, false);
>
> imtable.IndexDefs.Clear;
> imtable.IndexDefs.Add('', 'key', [ixPrimary]);
> imtable.IndexDefs.Clear;
> imtable.CreateTable;
> imtable.Open;
> end;
>
> 하면 인벨류드 파라미터 에러가 납니다!!
> 왜일까요?
> 유니크가 있어도 그런 현상이 나는데,,,