【搞定】query.execute 报错 “无效的连接字符串类型：Exception”

hero419

procedure TMainForm.Button2Click(Sender: TObject);
var
  queryXZ : Tquery;
begin
  if Business.Forms.jsdialogs.QuestionBox('确定要删除'''+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+'''年'''+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'''月的薪资数据吗?','确认',2)=6
  then
        begin
        queryXZ:= TQuery.Create(self);
        with queryXZ do
        queryXZ.ConnectionString := 'Biz:MASTERMINDmastermind.Database';
        queryXZ.CommandText := 'delete from XZ where XZ.YEAR='''+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+''' and XZ.MONTH='''+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'''';
        Business.Forms.jsDialogs.ShowMsg(queryXZ.CommandText,'语句');
        queryXZ.Execute;
        end;
end;

报错行停留在queryXZ.Execute;这一行，运行时showmessage倒是可以弹出正确的sql语句的。

附件是监视的内容

shangxy

procedure TMainForm.Button2Click(Sender: TObject);
var
  queryXZ : Tquery;
begin
  if Business.Forms.jsdialogs.QuestionBox('确定要删除'''+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+'''年'''+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'''月的薪资数据吗?','确认',2)=6
  then
        begin
        queryXZ:= TQuery.Create(self);
try
        queryXZ.ConnectionString := 'Biz:\MASTERMIND\mastermind.Database';
        queryXZ.CommandText := 'delete from XZ where XZ.YEAR='''+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+''' and XZ.MONTH='''+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'''';
        Business.Forms.jsDialogs.ShowMsg(queryXZ.CommandText,'语句');
        queryXZ.Execute;
finally
queryXZ.free;
end;
        end;
end;
看看

shangxy

queryXZ.ConnectionString 应该这样写
'DATABASEURL=Biz:\MASTERMIND\mastermind.Database'

atiger

queryXZ.ConnectionString := 'Biz:\MASTERMIND\mastermind.Database';
写错了，
queryXZ.ConnectionString := 'DATABASEURL=Biz:\MASTERMIND\mastermind.Database';

hero419

哦，对对对，实在不好意思，低级错误。
还有个问题
我现在usiness.Forms.jsdialogs.QuestionBox弹出的对话框年和月是带''的，请问如何去除？
现在是“确定要删除'2007'年'12'月的薪资数据吗?”

atiger

去掉就可以了贝，你是怎么传进去这个字符串呢？

yancm

Questionbox里面的内容是您自己写的。您不要加引号就可以了

hero419

我的年月是从数据集里取的，取的时候就带上''了
Business.Forms.jsdialogs.QuestionBox('确定要删除'''+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+'''年'''+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'''月的薪资数据吗?','确认',2)
.                                                                                                                                                                                         .
.                                                                                                                                                                                         .

shangxy

Business.Forms.jsdialogs.QuestionBox('确定要删除'+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+'年'+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'月的薪资数据吗?','确认',2)

atiger

是你自己错了，2007前面 '  是因为“'确定要删除'''”这个串造成的
应该写为，跟取字段的值“DataSetBroker1.DataSet.FieldByName('YEAR').AsString”没有关系，正确应该：

Business.Forms.jsdialogs.QuestionBox('确定要删除'+DataSetBroker1.DataSet.FieldByName('YEAR').AsString+'年'+DataSetBroker1.DataSet.FieldByName('MONTH').AsString+'月的薪资数据吗?','确认',2)