代碼如下:
-------------------------------------------- dbgrid1.DataSource.DataSet.First;
while not dbgrid1.DataSource.DataSet.eof do
begin
menuid:=menuid+DBGrid1.Fields[0].AsString+',';
dbgrid1.DataSource.DataSet.next;
end; with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('update ut_authority set AuthorityManagement=:b where emp_id=:a');
Parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Parameters.ParamByName('b').Value:=Trim(menuid);
ExecSQL;
end;----------------------------------------
困惑死我了,用存儲過程也是一樣的,請賜教!
-------------------------------------------- dbgrid1.DataSource.DataSet.First;
while not dbgrid1.DataSource.DataSet.eof do
begin
menuid:=menuid+DBGrid1.Fields[0].AsString+',';
dbgrid1.DataSource.DataSet.next;
end; with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('update ut_authority set AuthorityManagement=:b where emp_id=:a');
Parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Parameters.ParamByName('b').Value:=Trim(menuid);
ExecSQL;
end;----------------------------------------
困惑死我了,用存儲過程也是一樣的,請賜教!
解决方案 »
- 了解先深圳行情
- 关于Mediaplayer和playsound
- 求‘报价单作业’的源程序,自己想参考一下,没做过这方面的东西!!!
- 同一个Project,相同的源码,根据客户要求要有不相似的界面Form,怎么办?
- 哪里有EQGrid421 for d7,最好包含dxDBtreelist的可供下载?
- 如何使用vcl控件?
- 在Install shield中,如何把一个目录一次性放入安装文件中。而不是现在的一个一个添文件目录。
- 小问题,小分数,嘿嘿。
- @怎样比较数据库中的时间??急急急!!!
- 关于midas
- 几个类中的相同SQL连接语句,如何分离出来?
- 如何用Dephi 开发一个ActiveX 控件
字串是下面這樣的字符串:
M0100,M0101,M0102,M0103,M0104,M0105,M0106,M0107,M0108,P0101,P0102,M0200,M0201,M0202,M0300,M0301,M0302,M0000,M0001,M0002,M0003,M0004,M0005,M0401,M0402,M0403,M0404,M0405,M0406,M0407,M0408,M0409,M0410,M0501,M0502,M0503,M0504,M0505,M0506,M0507,M0508,M0509,M0510,M0511,在sql server裡可以寫進去,就是在delphi裡不行
如要把下列字符串寫進數據庫裡去時:
M0100,M0101,M0102,M0103,M0104,M0105,M0106,M0107,M0108,P0101,P0102,M0200,M0201,M0202,M0300,M0301,M0302,M0000,M0001,M0002,M0003,M0004,M0005,M0401,M0402,M0403,M0404,M0405,M0406,M0407,M0408,M0409,M0410,M0501,M0502,M0503,M0504,M0505,M0506,M0507,M0508,M0509,M0510,M0511,
只寫進
M0100,M0101,M0102,M0103,M0104,M0105,M0106,M0107,M0108,P0101,P0102,M0200,M0201,M0202,M0300,M0301,M0302,
其余的就沒有了
--------
不明白,我就是這樣
menuid:='M0100,M0101,M0102,M0103,M0104,M0105,M0106,M0107,M0108,P0101,P0102,M0200,M0201,M0202,M0300,M0301,M0302,M0000,M0001,M0002,M0003,M0004,M0005,M0401,M0402,M0403,M0404,M0405,M0406,M0407,M0408,M0409,M0410,M0501,M0502,M0503,M0504,M0505,M0506,M0507,M0508,M0509,M0510,M0511,';
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('update ut_authority set AuthorityManagement=:b where emp_id=:a');
Parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Parameters.ParamByName('b').Value:=Trim(menuid);
ExecSQL;
end;也是一樣的。
换memo试一下
-------------------------------
1,數據庫中我字段類型為varchar(1000)
2,輸入也沒限制直接賦值也是一樣的
如下:menuid:='M0100,M0101,M0102,M0103,M0104,M0105,M0106,M0107,M0108,P0101,P0102,M0200,M0201,M0202,M0300,M0301,M0302,M0000,M0001,M0002,M0003,M0004,M0005,M0401,M0402,M0403,M0404,M0405,M0406,M0407,M0408,M0409,M0410,M0501,M0502,M0503,M0504,M0505,M0506,M0507,M0508,M0509,M0510,M0511,';
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('update ut_authority set AuthorityManagement=:b where emp_id=:a');
Parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Parameters.ParamByName('b').Value:=Trim(menuid);
ExecSQL;
end;
那你可以直接输出你的menuID看看,肯定是这个变量长度不够了
var
menuid : String[102];