Question

delphi中用adoquery1控件,怎么向数据表中随机的插入数据

数据表如图所示：
怎么随机的向此数据表插入数据，sql语言我不太懂，麻烦各位大神写一下代码，谢谢合作，

Answer 1

with adoquery1 do

begin

.close;

.sql.clear;

.sql.add('insert  into 表名 (字段1,....,字段n) values (值1,...,值n)');

.execsql;

end;

 

 

给你看个我写过的bcb代码片段
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    String sql = "";
    if(Edit1->Text.IsEmpty() || Edit2->Text.IsEmpty())
    {
        ShowMessage("姓名和电话为必填项！");
    }
    else
    {
        Form1->ADOQuery1->Close();
        Form1->ADOQuery1->SQL->Clear();
        sql = "INSERT INTO phonetable (name, phone, relation, address, otherinfo, lastmodify) VALUES('";
        sql = sql + Edit1->Text + "','";
        sql = sql + Edit2->Text + "','";
        sql = sql + ComboBox1->Items->Strings[ComboBox1->ItemIndex]+ "',' ";
        sql = sql + Memo1->Text + "',' ";
        sql = sql + Memo2->Text + "','";
        sql = sql + DateTimeToStr(Now()) + "')";
        Form1->ADOQuery1->SQL->Add(sql);
        Form1->ADOQuery1->ExecSQL();
        Form1->Button1Click(Form1);
        Form2->Close();
    }
}