안녕하세요

델파이루 열씨미 뭔가를 뚝딱 뚝딱 만들고 싶은 소연이에염..

델 공부 하다가 문제가 생긴게 있거든여..

으음..뭐냐면여...

데이터 베이스에 접근할 때 ODBC 녀석을 타고 넘다를때염 데이터 베이스에 접속이 되면 해당 데이터 베이스에 존재하는 테이블항목들을 가져올려구 하거든여..

근데 접속은 되는데 Numeric Value out of range 라는 에러가 계속 툭..툭 튕겨져 나오네염..

제발 도와주세염..

참고로 TDatabase를 사용하지 않았고염..상용화된 다른 컴포넌트를 사용했거든염..

으음..

테이블 가져오는 부분을 살짝 보여드릴께염..



procedure TForm1.Button1Click(Sender: TObject);

var

usertmp, passtmp : string;

begin

SDDatabase1.Connected := false;

SDDatabase1.Params.Clear;



SDDatabase1.RemoteDatabase :=Edit2.Text;



if SerType.Text ='stODBC' then

SDDatabase1.ServerType := stODBC

else if SerType.Text ='stOracle' then

SDDatabase1.ServerType := stOracle

else if SerType.Text ='stSQLServer' then

SDDatabase1.ServerType := stSQLServer;



usertmp := concat('USER NAME=',Edit3.text);

passtmp := concat('password=',Edit4.text);



SDDatabase1.Params.Add(usertmp);

SDDatabase1.Params.Add(passtmp);



try

SDDatabase1.Connected := true;

showmessage('훌륭하다');

SDDatabase1.Session.GetTableNames('aaa','',false,ComboBox1.Items);

ModalResult := mrOk;

except

on E: EDataBaseError do

begin

ShowMessage(E.Message);

end;

end;

end;



에러는 SDDatabase1.Session.GetTableNames('aaa','',false,ComboBox1.Items); 문장에서 발생해염.. 도와주세염..