제목 그대로 BDE의 버전을 체크하려고 합니다.



단 BDE API는 안쓰고.. 즉 BDE가 로드되어있지 않는 상태에서

버전을 체크하려고 합니다.



제 시스템에는 BDE 5 가 설치되어있는데... 레지스트리

HKEY_LOCAL_MACHINESoftwareBorlandDatabase EngineSettingsSYSTEMINITVersion

에 보면 4.0으로 나오고 이거 확실히 체크할 수 있는 방법 있습니까?

안녕하세요..조복기입니다..



level이란 필드명이 의심쩍어서 한번 테스트를 해보니까

필드명쪽에서 문제가 생기는군요..

level이란 파라독스함수를 전혀본적이 없지만

파라독스에서 사용하는 예약어같습니다..아무래도..

필드명을 부여할때 테이블이름과 연관성있게 가는것도

한가지 방법이겠죠..

예) 테이블명 : pay_master.db

필드명 : pm_sabun (사번) ...



대강 이런식으로요..

필드명은 짓기 나름이지만 나중에 도큐먼트역활도 할수있으니까

첨 지을때 잘 지으세요..

은행에 파견나갔을때 콩글리쉬로 만들었다가 다 뜯어고친 아픈기억이..나네요.



그리고 밑에처럼 파라미터를 받을거면

변수명대신 parambyname을 사용하시구요..



좋은하루되세요..





BDS 께서 말씀하시기를...

> 저번 에러 메세지의 연장선 질문입니다.

> 이번에는 Invalid use of keyword

> Token: Level

> Line Number: 2라는 에러 메세지가 자꾸 발생합니다.

> 여기에서 Level은 string 필드구요...

>

> procedure TStartForm.SpeedButton1Click(Sender: TObject);

> begin

> SQLItem.Close;

> SQLItem.SQL.Clear;

> SQLItem.SQL.Add('SELECT * From "Item.db"');

> SQLItem.SQL.Add('WHERE Level = "'+ SearchField+'" ');

> SQLItem.Open;

> end;

>

> procedure TStartForm.RadioGroup1Click(Sender: TObject);

> begin

> if RadioGroup1.ItemIndex = 0 then

> begin

> SearchField := '초급';

> end

> else if RadioGroup1.ItemIndex = 1 then

> begin

> SearchField := '중급';

> end

> else if RadioGroup1.ItemIndex = 2 then

> begin

> SearchField := '고급';

> end

> else ShowMessage('존재 하지 않는 항목 입니다.');

> end;

>

whitekid wrote:

> 제목 그대로 BDE의 버전을 체크하려고 합니다.

>

> 단 BDE API는 안쓰고.. 즉 BDE가 로드되어있지 않는 상태에서

> 버전을 체크하려고 합니다.

>

> 제 시스템에는 BDE 5 가 설치되어있는데... 레지스트리

> HKEY_LOCAL_MACHINESoftwareBorlandDatabase EngineSettingsSYSTEMINITVersion

> 에 보면 4.0으로 나오고 이거 확실히 체크할 수 있는 방법 있습니까?

>





whitekid님 안녕하세요?

아래는 BDE버젼 정보 알아내는 코드입니다.

보시고 도움되시길 바랍니다.

그럼..

uses BDE;



procedure AddBDEAlias(

sAliasName,

sAliasPath,

sDBDriver : string );

var

h : hDBISes;

begin;

DBIInit( nil );

DBIStartSession( 'dummy', h, '' );

DBIAddAlias( nil,

PChar( sAliasName ),

PChar( sDBDriver ),

PChar( 'PATH:' + sAliasPath ),

True );



DBICloseSession( h );

DBIExit;

end;



//사용 예)

//AddBDEAlias('TestDB','C:Temp', 'DBASE' );