delphi数据库

Question

为什么我每次点击插入按钮时！！老是出现死机状态！！急！！！我在线等！名位朋友帮帮忙unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edtfield1: TEdit;
    Edtfield2: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
   adodataset1.Close;
   edtfield1.Clear;
   edtfield2.Clear;
   adodataset1.Edit;
   with adocommand1 do
   begin
   commandtext:='insert into student (field1,field2) values (:field1,:field2)';
   parameters[0].Value:=edtfield1.Text;
   parameters[1].Value:=edtfield2.Text;
   execute;
   end;
   adodataset1.Open;
   end;end.

Answer 1

ADOConnection1 连接字符串错了吧，找不到服务器了

Answer 2

没有啊！！帮帮忙啊！！老是死机很烦人耶！得不出结果不要紧！它还死机！连结束进程都结不掉！唉！
我用单步调试好像没什么差别！！
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edtfield1: TEdit;
    Edtfield2: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin   adodataset1.Close;
   adodataset1.insert;
   with adocommand1 do
   begin
   commandtext:='insert into student (field1,field2) values (:field1,:field2)';
   parameters[0].Value:=edtfield1.Text;
   parameters[1].Value:=edtfield2.Text;
   execute;
   end;
   adodataset1.Open;
   edtfield1.Clear;
   edtfield2.Clear;
   end;end.

Answer 3

确认一下你的连接字符串对了吗？
用一个简单的adoquery查询个表试试

Answer 4

没错啊！！我都可以在数据集中看到数据库的结果了！！我是用对象观察器连接数据库的
Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=SQL Server 2000;Initial Catalog=grademanager  ！！！

Answer 5

你edtfield1.Text，edtfield2.Text中有输入内容？或者是你的界面中哪个输入控件里没有填入内容

Answer 6

delphi7中如何用actionmanager控件创建的菜单条里出现默认的编号(w),(x),(y)等去掉

Answer 7

是不是adodataset1.Close;
这句把数据库连接关了啊我是新手 如果说错了 忘大家不要笑