var
str:String;
begin
str:= ADOQueryZJ.FieldByName('案卷卷号').AsString;
showmessage(str);//这句有字符串弹出
ADOQueryWJ.Close;
ADOQueryWJ.SQL.Clear;
ADOQueryWJ.SQL.Add('select * from 文件信息表 where 文件卷号='''+str+'''');
ADOQueryWJ.Open;
end;错误是:miss connection or connectionstring
str:String;
begin
str:= ADOQueryZJ.FieldByName('案卷卷号').AsString;
showmessage(str);//这句有字符串弹出
ADOQueryWJ.Close;
ADOQueryWJ.SQL.Clear;
ADOQueryWJ.SQL.Add('select * from 文件信息表 where 文件卷号='''+str+'''');
ADOQueryWJ.Open;
end;错误是:miss connection or connectionstring
ADOQueryWJ.SQL.Clear;
// ADOQueryWJ.SQL.Add('select * from 文件信息表 where 文件卷号='''+str+'''');
ADOQueryWJ.SQL.Add('select * from 文件信息表 where 文件卷号=:wjbh');
ADOQueryWJ.Parameters.ParamByName('wjbh').Value := ADOQueryWJ.FieldByName('案卷卷号').AsString;
ADOQueryWJ.Open;