델파이7
오라클10g
ADO로 연결해서 사용중에 있습니다.
procedure TfrmLogin.but_loginClick(Sender: TObject);
var
qry : String;
tbl : TADOQuery;
F_ID, F_PWD : String;
begin
if Trim(TXT_ID.Text) = '' THEN BEGIN
ShowMessage('ID를 입력하세요');
TXT_ID.SetFocus;
txt_id.SelectAll;
EXIT;
END;
if Trim(TXT_PWD.Text) = '' THEN BEGIN
ShowMessage('비밀번호를 입력하세요');
TXT_PWD.SetFocus;
EXIT;
END;
with dmMain do
begin
tbl := TADOQuery.Create(self);
tbl.Connection := WATER_WELL_ADOConn;
qry := 'select ID, PWD from LOGIN where ';
qry := qry + ' ID = "' + TRIM(TXT_ID.Text) + '" ';
qry := qry + ' and PWD = "' + TRIM(TXT_PWD.Text) + '" ';
tbl.SQL.Text := qry;
tbl.Open;
if tbl.Eof = false then begin
//SHOWMESSAGE ('OK') frmMain: TfrmMain;
if frmMain = nil then
frmMain := TfrmMain.Create(nil);
Self.Visible := False;
frmMain.AfterLogin;
end else begin
SHOWMESSAGE ('고객님께서 입력하신 아이디 또는 패스워드가 일치하지 않습니다.');
txt_pwd.SelectAll;
txt_pwd.SetFocus
end;
tbl.Free;
end;
end;
대체 어디서 잘못된것인지 모르겠습니다. ㅠㅠㅠ
실행해서 아이디 비번을 넣고 로그인 누르면
ORA-00904 : "9999":부적합한 식별자. <<<< 이렇게 뜹니다.
데이터베이스 테이블 다있구요 컬럼명도 틀림없이 맞은거 다확인했습니다.
혹시나해서 테스트로 MS-access로 mdb연결해봤는데 되더군요 이건뭔가요
미쳐버릴것같습니다 12시간째 요러고 앉아있습니다. ㅠㅠㅠㅠ도와주십시요 굽신굽신
해결했네요 멍청하게 ㅋㅋㅋ 따옴표를 생각하지 못했네요 자화자찬중 ㅋㅋ