我也试过用如下:只用table 控件 ,结果是保存不完整,而且保存的文件必修在
ACCESS里面才能找到,所以不行,我想要用 opendialog 查看,
self.SaveDialog1.Execute;
t:=ttable.Create(self);
t.Databasename:=self.Database1.DatabaseName;
t.TableName:=self.SaveDialog1.FileName;
t.FieldDefs.Assign(table1.FieldDefs);
table1.IndexDefs.Update;
t.IndexDefs.Clear;
t.IndexDefs.Assign(table1.IndexDefs);
t.CreateTable;
t.BatchMove(table1,batappend);
t.Close;
ACCESS里面才能找到,所以不行,我想要用 opendialog 查看,
self.SaveDialog1.Execute;
t:=ttable.Create(self);
t.Databasename:=self.Database1.DatabaseName;
t.TableName:=self.SaveDialog1.FileName;
t.FieldDefs.Assign(table1.FieldDefs);
table1.IndexDefs.Update;
t.IndexDefs.Clear;
t.IndexDefs.Assign(table1.IndexDefs);
t.CreateTable;
t.BatchMove(table1,batappend);
t.Close;
batchmove1.source:=table1;
batchmove1.destination.TableName:=self.SaveDialog1.FileName;
batchmove1.mode:=batCopy;
batchmove1.execute;
你用的是access,数据库的格式就应该为xxx.mdb
另外,如果想清空一个表,直接用table.emptytable就行了
Debugger Exception Notification
---------------------------
Project PHS.exe raised exception class EDBEngineError with message 'Insufficient memory for this operation.
Alias: batchmove_database'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------错误如上,我的table1.database:=batchmove_database
直接读取呢,
用OPENDIALOG