如何用sql往数据库里存数据？

[wakala]

我写以下代码：
Query1->Active=false;
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO animals.DBF (NAME, SIZE1, WEIGHT, AREA)");
Query1->SQL->Add("VALUES (:Name,:Size1,:Weight,:Area)");
//Query1->Prepared=true;
Query1->Prepare();
Query1->Params->Items[0]->AsString = frmAdd->edName->Text;
Query1->Params->Items[1]->AsFloat =frmAdd->edSize->Text.ToDouble();
Query1->Params->Items[2]->AsFloat = frmAdd->edWeight->Text.ToDouble();
Query1->Params->Items[3]->AsString =frmAdd->edArea->Text;
Query1->ExecSQL();
Query1->UnPrepare();
出现List index out of bounds(0)的错误，不知何故，请各位大侠不惜赐教。多谢

[wakala]

当然有了，如果没有值的话错误信息就不是这样了

[wakala]

请各路高手再看看啊！拜托

[wakala]

怎么没有人帮我解决这个问题啊？

[wakala]

请各位大侠帮帮忙！
在此先谢过啦

[52vc]

四个值的参数据是否都有值呢?

[borland_boy]

估计是你的字段名称闹的

建议在前面加上点东西以免和系统保留的重复！

例如
DW_NAME, SDW_IZE1, DW_WEIGHT, DW_AREA

[wakala]

楼上的建议，我以前也考虑过，以前名称确实有问题，所以我吧SIZE该改成了SIZE1。
而现在的这个错误应该与名称无关。

[xtydyy8881]

ADOQuery1->Parameters->Items[1]->Value= frmAdd->edName->Text;
试试

[sunxiaohui]

如果Query1已经从表中取到记录，不用将Active=false
直接用下面语句即可插入数据
Query1->InsertRecord(ARRAYOFCONST((frmAdd->edName->Text,frmAdd->edsize->Text,frmAdd->edWerght->Text,frmAdd->edArea->Text)));

但需注意字段的类型需和插入的内容类型一致。

[wakala]

对与tydyy8881的建议出现类似的错误：List index out of bounds(1)
对于LongWayToGo的建议问题依旧
对于sunxiaohui的建议出现各种各样的错误，好像行不通。
^_^，为什么会这样？

[LongWayToGo]

建议：
Query1->Active=false;
String sql = "INSERT INTO animals.DBF (NAME, SIZE1, WEIGHT, AREA) VALUES ( "
sql = sql + frmAdd->edName->Text + ",";
sql = sql + frmAdd->edSize->Text + ",";
sql = sql + frmAdd->edWeight->Text + ",";
sql = sql + frmAdd->edArea->Text + ")";
Query1->SQL->Text = sql;
Query1->ExecSQL();
这样写的好处是方便调试,可以把sql的值直接放在后台执行,看是不是有问题.
代码不可能有问题.

[LongWayToGo]

有没有把sql的内容放在后台直接执行?有错吗?
如果有错,就是的后台库结构有问题,
如果没有,我也不知道......(好郁闷,感觉不可能!!!!!)

[wakala]

是啊，感觉就是没错，可是运行时候就是出现问题（郁闷）

[wakala]

??

[wakala]

我再看看

[jie015]

Query1->Active=false;
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO animals.DBF (NAME, SIZE1, WEIGHT, AREA) ");
Query1->SQL->Add("VALUES");
Query1->SQL->Add(frmAdd->edName->Text);
Query1->SQL->Add(frmAdd->edSize->Text.ToDouble());
Query1->SQL->Add(frmAdd->edWeight->Text.ToDouble());
Query1->SQL->Add(frmAdd->edArea->Text);
Query1->Prepare();
Query1->ExecSQL();
Query1->UnPrepare();
详细的细节自己再写写。

[windami]

把Query1->Params->Items[0]->AsString = frmAdd->edName->Text;
改成
Query2->ParamByName("NAME")->Value=frmAdd->edName->Text;
其它三个字段同上
试试

[wakala]

这样是可以，但是，我写的错在哪里始终令人费解

[gdy119]

DM->T_Customer->Insert();
DM->T_Customer->FieldValues["Customer_ID"] = E_Customer_ID->Text;
DM->T_Count->First();

DM->T_Customer->Post();
DM->T_Count->RecNo = 1;
DM->T_Count->Edit();
DM->T_Count->FieldValues["Count_Value"] = E_Customer_ID->Text;
DM->T_Count->Post();
F_Disp->Show();

[Tivro]