如何将memo1中每行的数据逐一增加到数据库的 username字段？

Question

请高手帮忙

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
For i:=0 to Memo1.Lines.Count-1 Do
Begin
 With Adoquery1 Do
 Begin
  Append;
  FieldByName('UserName').AsString:=Memo1.Lines.Strings[i] ;
  Post;
 End;
End;
end;

Answer 2

执行后报错 adoquery1:cannot perform this operation on a closed dataset.

Answer 3

liangpei2008 逍老大，抢分，真猛.~~~~

Answer 4

To:
do2008(事情做了，才是事情)
--------------------------
你也很猛啊！：）

Answer 5

Adoquery1 设置成true 要输入用户名和密码
密码我没设置 就在用户名处 填写了 administrator 
结果还是错误: adoquery1:missing sql property

Answer 6

不知道还有没有别的方法呢？
我以前写的一个程序好像没这么费事  前一段硬盘格式化了 忘了没拷贝出来问一下 用select语句能实现这个功能吗