您所在位置：主题：有关导入、导出和修改，删除表请GGJJ们指点！！
MM0929
[专家分：0] 发布于 2006-05-17 17:59:00
在下用Delphi7+SQL Server 2000编一小程序，对SQL有一定基础，刚接触学D7大概10天
想通过如图的“清空表”这个按钮把SQL数据库表清空，通过“导入表”按钮把*.txt格式或者*.xls格式的表导入到SQL表，经过处理后的表通过“另存为”按钮保存为Excel表格。现在的问题是“清空表”这个按钮根据书里学的知识已经编好代码，但运行有错，“导入和导出”按钮不知道怎么做，请高手帮看看我写的“清空表”按钮代码错在哪？还有“导入和导出”到底用到那些知识，如详细告诉步骤更好，在此感激不尽！！！！！
代码如下：
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
Button1: TButton;
ADOQuery1: TADOQuery;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
with SQL do
begin
clear;
Add('delete from mmbb');
end;
ExecSQL;
end ;
end;
end.
运行“清空表”时错误提示为：
Access violation at address 1F487CAB in module 'msado15.dll' write of address 01118024
http://www.bc-cn.net/bbs/dispbbs.asp?boardID=9&ID=64218&page=1
想通过如图的“清空表”这个按钮把SQL数据库表清空，通过“导入表”按钮把*.txt格式或者*.xls格式的表导入到SQL表，经过处理后的表通过“另存为”按钮保存为Excel表格。现在的问题是“清空表”这个按钮根据书里学的知识已经编好代码，但运行有错，“导入和导出”按钮不知道怎么做，请高手帮看看我写的“清空表”按钮代码错在哪？还有“导入和导出”到底用到那些知识，如详细告诉步骤更好，在此感激不尽！！！！！
代码如下：
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
Button1: TButton;
ADOQuery1: TADOQuery;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
with SQL do
begin
clear;
Add('delete from mmbb');
end;
ExecSQL;
end ;
end;
end.
运行“清空表”时错误提示为：
Access violation at address 1F487CAB in module 'msado15.dll' write of address 01118024
http://www.bc-cn.net/bbs/dispbbs.asp?boardID=9&ID=64218&page=1