有关Access数据库存取的问题

[dolphin1030]

如何将一个ListBox中的数据存在数据库中的一个字段下面，并且每条记录的字符串个数不一定 以及如何从数据库中读取该ListBox中的所有记录

[周药师]

//存入数据库
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 for(int i=0;i<ListBox1->Count;i++)
 {
   AnsiString Str = ListBox1->Items->Strings[i] ;
   AnsiString SQL ;
   SQL.sprintf("INSERT INTO MyTable(PriKey) VALUES('%s')",Str.c_str()) ;
   ADOQuery1->Close() ;
   ADOQuery1->SQL->Clear() ;
   ADOQuery1->SQL->Add(SQL) ;
   ADOQuery1->ExecSQL() ;
 }
}

[周药师]

//读出数据
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  AnsiString SQL = "select * from MyTable" ;
  ADOQuery1->Close() ;
  ADOQuery1->SQL->Clear() ;
  ADOQuery1->SQL->Add(SQL) ;
  ADOQuery1->Open() ;
  while(!ADOQuery1->Eof)
  {
    ListBox1->Items->Add(ADOQuery1->FieldByName("PriKey")->AsString) ;
    ADOQuery1->Next() ;
  }
}

[亮剑_]

楼上代码是把每个项目以逗号分隔存在字段中的

[lirg8405]

先把字段类型设置为text

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  String SQL;
  TStringList *List0;
  List0 = new TStringList();
  SQL = "create table [001](test text,id autoincrement(1,1) primary key)";
  ADOQuery1->ExecSQL();
  for(int i=0;i<ListBox1->Count;i++)
  {
    List0->Add(ListBox1->Items->Strings[i].Trim() ;
  }
  SQL = "insert into [001](test) values('"List0->Text"')";
  ADOQuery1->ExecSQL();
}

读的时候直接List0->Text = ADOQuery1->FieldByName("test")->AsString;
大概是这样的，没测试过