改为下面的试试 ADOQuery1.SQL.Add('Insert Into brh_table Values('+EditNoValue+','+EditNameValue+','+EditIpValue+','+EditTypeValue+','+EditDateValue+','''+EditNumValue+''')');
看错了,应该是 ADOQuery1.SQL.Add('Insert Into brh_table Values('+EditNoValue+','''+EditNameValue+''','+EditIpValue+','+EditTypeValue+','+EditDateValue+','''+EditNumValue+''')');
是啊字符串要加引号 ADOQuery1.SQL.text :=('inseart into table(field1,...) values(:field1...)); ADOQuery1.paramterts.parambyname('field1').value := ''; ...
EditNoValue:=EditNo.Text;
EditNameValue:=EditName.Text;
EditIpValue:=EditIp.Text;
EditTypeValue:=EditType.Text;
EditdateValue:=EditDate.Text;
EditNumValue:=EditNum.Text;
ADOQuery1.Close;
ADOQuerY1.SQL.Clear;
ADOQuery1.SQL.Add('Insert Into brh_table Values('+EditNoValue+','+EditNameValue+','+EditIpValue+','+EditTypeValue+','+EditDateValue+','+EditNumValue+')');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Add('Insert Into brh_table Values('+EditNoValue+','+EditNameValue+','+EditIpValue+','+EditTypeValue+','+EditDateValue+','''+EditNumValue+''')');
ADOQuery1.SQL.Add('Insert Into brh_table Values('+EditNoValue+','''+EditNameValue+''','+EditIpValue+','+EditTypeValue+','+EditDateValue+','''+EditNumValue+''')');
ADOQuery1.SQL.text :=('inseart into table(field1,...) values(:field1...));
ADOQuery1.paramterts.parambyname('field1').value := '';
...