继续提问中,,,,,,,
procedure TCustAnaForm1.ToolButton2Click(Sender: TObject);
begin
if Trim(dxDBLookupEdit1.Text) <> ' ' then
begin
Try
with CustAnaDM.DigitCustAnalyAQ do
begin
Close;
SQL.Clear;
SQL.Add( "Insert into DigitCustAnaly values( ':a ', ':b ', ':c ', ':d ', ':e ', ':f ', ':g ', ':h ', ':i ', ':j ',:k,:l, ':m ', ':n ', ':o ', ':p ', ':q ') ");
Parameters.ParamByName( 'a ').Value:=Trim(dxDBLookupEdit1.Text);
Parameters.ParamByName( 'b ').Value:=DateTimePicker1.Date;
Parameters.ParamByName( 'c ').Value:=Trim(dxDBLookupEdit2.Text);
Parameters.ParamByName( 'd ').Value:=Trim(dxDBLookupEdit3.Text);
Parameters.ParamByName( 'e ').Value:=Trim(dxDBLookupEdit4.Text);
Parameters.ParamByName( 'f ').Value:=Trim(dxDBLookupEdit5.Text);
Parameters.ParamByName( 'g ').Value:=Trim(dxDBLookupEdit6.Text);
Parameters.ParamByName( 'h ').Value:=Trim(dxDBLookupEdit7.Text);
Parameters.ParamByName( 'i ').Value:=Trim(dxDBLookupEdit8.Text);
Parameters.ParamByName( 'j ').Value:=Trim(dxDBLookupEdit9.Text);
Parameters.ParamByName( 'k ').Value:=Trim(DBEdit1.Text);
Parameters.ParamByName( 'l ').Value:=Trim(DBEdit2.Text);
Parameters.ParamByName( 'm ').Value:=Trim(dxDBLookupEdit12.Text);
Parameters.ParamByName( 'n ').Value:=Trim(dxDBLookupEdit13.Text);
Parameters.ParamByName( 'o ').Value:=Trim(dxDBLookupEdit14.Text);
Parameters.ParamByName( 'p ').Value:=Trim(dxDBLookupEdit15.Text);
Parameters.ParamByName( 'q ').Value:=Trim(dxDBLookupEdit16.Text);
ExecSQL;
end;
Application.MessageBox( '添加成功 ', '提示 ',64);
Except
Application.MessageBox( '系统出错 ', '提示 ',64);
Close;
end;
end;
end;
这段代码的功能就是根据前面选择好的内容,向数据库添加数据,但我一按这个保存按钮,就会出现提示框, "系统出错 "
我段代码是我照着书上写的,也按着大家的帮助修改了代码,可一运行,
SQL.Add( "Insert DigitCustAnaly values( ':a ', ':b ', ':c ', ':d ', ':e ', ':f ', ':g ', ':h ', ':i ', ':j ',:k,:l, ':m ', ':n ', ':o ', ':p ', ':q ') ");
就会停到这行,
我的代码还不熟,书看的还不够,我现在也想不到办法,请大家再帮分析分析
[解决办法]
SQL.Add( 'Insert into DigitCustAnaly values( ' ':a ' ', ' ':b ' ', ' ':c ' ', ' ':d ' ', ' ':e ' ', ' ':f ' ', ' ':g ' ', ' ':h ' ', ' ':i ' ', ' ':j ' ',:k,:l, ' ':m ' ', ' ':n ' ', ' ':o ' ', ' ':p ' ', ' ':q ' ') ');
[解决办法]
把你的insert 语句加上字段名称,是不是没对应正确!
