清
清风徐来
Unregistered / Unconfirmed
GUEST, unregistred user!
我在进行数据库查询时,
procedure Tcx.Button1Click(Sender: TObject);
begin
if edit1.Visible=true then
begin
with cx do
ADOQuery1.Close;
DBGrid1.Visible:=true;
ADOQuery1.SQL.Add('select * from lb where 工号=:gh');
ADOQuery1.Parameters.ParamByName('gh').Value:=edit1.text;
ADOQuery1.Prepared;
ADOQuery1.Open;
end
else
begin
with cx do
ADOQuery1.Close;
DBGrid1.Visible:=true;
ADOQuery1.SQL.Add('select * from lb where 姓名=:xm');
ADOQuery1.Parameters.ParamByName('xm').Value:=edit2.text;
ADOQuery1.Prepared;
ADOQuery1.Open;
end;
end;
为什么工号能查询成功,而姓名不能,在运行程序的时候,出现数据库连接错误!(我的工号和姓名在数据库Access
中都是文本型的)
procedure Tcx.Button1Click(Sender: TObject);
begin
if edit1.Visible=true then
begin
with cx do
ADOQuery1.Close;
DBGrid1.Visible:=true;
ADOQuery1.SQL.Add('select * from lb where 工号=:gh');
ADOQuery1.Parameters.ParamByName('gh').Value:=edit1.text;
ADOQuery1.Prepared;
ADOQuery1.Open;
end
else
begin
with cx do
ADOQuery1.Close;
DBGrid1.Visible:=true;
ADOQuery1.SQL.Add('select * from lb where 姓名=:xm');
ADOQuery1.Parameters.ParamByName('xm').Value:=edit2.text;
ADOQuery1.Prepared;
ADOQuery1.Open;
end;
end;
为什么工号能查询成功,而姓名不能,在运行程序的时候,出现数据库连接错误!(我的工号和姓名在数据库Access
中都是文本型的)