當我運行了一個程序,按我的登錄按鈕,一個是說缺少連接或連接字符串 連接字符串已經存在缺少的連接或connstr德爾福
procedure TFmLogin.BtnLogin2Click(Sender: TObject);
begin
ADOUser.ConnectionString:=Connstr;
ADOUser.TableName:='TblUser';
ADOUser.Open;
if ADOUser.Locate('Username', EdUsename.Text,[]) then
begin
if EdPassword.Text=ADOUser['Pword'] then
begin
if ADOUser['AdminLevel']>=0 then
begin
FmBrowse.Delete;
Close
end
else
showmessage('password invalid.');
End;
end
else
Begin
showmessage('Username invalid.');
end;
Close;
end;
我不能在任何地方在此過程中發現它應該尋找一個連接字符串,並想知道是否有人可以幫助我找出我出錯的地方
什麼在'ConnStr'?您不會顯示它正在被聲明或任何值被分配給它。我認爲,這是顯而易見的首要目標。 – 2013-04-11 12:24:51
它被全局分配, – 2013-04-11 12:36:39
Const \t ConnStr ='Provider = Microsoft.Jet.OLEDB.4.0; Data Source = cardb.mdb; Persist Security Info = False'; – 2013-04-11 12:37:06