为什么最后一个字符串不能插入到表中?
一个文本文件是这样的
王小栓
张大中
要将他们插入到ACCESS表中,但是用我下面的程序就只能插入王小栓,而不能插入张大中,请问为什么?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Db, ADODB, StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
//===================access
SecConstr:wideString;
SecCnn:TADOConnection;
SecDataSet:TADODataSet;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SecConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=' + ExtractFilePath(Application.ExeName) + '\TEST.mdb;Persist Security Info=True';
SecCnn:=TADOConnection.Create(nil);
SecCnn.LoginPrompt:=false;
SecDataSet:=TADODataSet.Create(nil);
//打开access连接
Seccnn.ConnectionString:=SecConstr;
SecCnn.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
ID: String[8];
Name: String[8];
begin
//有问题的地方
SecDataSet.Connection:=SecCnn;
SecDataSet.CommandText:='select * from hou';
SecDataSet.Open;
AssignFile(F,'table.txt');
Reset(F);
while not Eof(F) do
begin
Readln(F,NAME);
SecDataSet.Append;
SecDataset.Fields[1].AsString:=Name;
end;
CloseFile(F);
end;
end.