用 DELPHI操作SQL的最初学者问题，答对高分追加！！

Question

以下是我在网上找到的。为什么照步骤做不好用呢？
我的目的很简单,刚学用DELPHI来操作SQLserver里的表，如添加，删除数据 。，但一点例子也没有。网上这样的东东太少。.
希望各位高手不吝赐教 ！谢谢
可以的话，给我个源代码就成。我只想能往现有的sql表里添加记录就行了.
*************************************
首先,打开sql server管理器,在pubs数据库中建一个测试表,表名为test,字段有id,name,和desc,全部为字符型,如果你不知道建表,那么打开sql查询分析器,贴上以下的代码,然后按执行,就会自动生成test表.
use pubs
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[test]
GO

CREATE TABLE [dbo].[test] (
[id] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[name] [char] (12) COLLATE Chinese_PRC_CI_AS NULL ,
[descrip] [char] (30) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO

然后,我们来创建一个存储过程,其功能为在test中插入一条新记录.创建存储过程的代码如下,同样的,你也可以复制到查询分析器里直接执行就可以:
CREATE PROCEDURE myInsert
@id char(10) ,
@name varchar(12),
@descrip varchar(30)

AS
begin

insert into test (id,name,descrip) values (@id,@name,@descrip)

if @@rowcount=0
begin
raiserror('error',16,1)
rollback transaction
end
end
GO

接下来,新建一个工程文件,在form1上放置如下控件,并设置属性(括号内):
一个ADOConnection1: TADOConnection;
(LoginPrompt:=false;
connectionstring:=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);)

一个ADOStoredProc1: TADOStoredProc;属性为:
(connection:=adoconnection1;
procedurename:=myinsert;//上面我们创建的那个)

一个ADOTable1: TADOTable;属性为:
(connection:=adoconnection1;
tablename:=test; //上面我们创建的那个)

一个Datasource1,属性为:
(dataset:=Tadotable;)

一个 DBGrid1: TDBGrid;属性为
(datasource:=datasource1;)

一个Button1,在其Onclick中写到:
with adoStoredproc1 do
begin
Parameters.ParamByName('@id').Value := '2';
parameters.ParamByName('@name').Value := 'myname';
parameters.ParamByName('@descrip').Value :='nosubject';
ExecProc;
end;
Adotable1.Close;
adotable1.Open;

Answer 1

操作SQL Server数据库貌似没有这么烦琐的.特别是你写的存储过程.如果做一个插入操作,delphi就只能通过调用StoredProcedure来完成的话,那Delphi就太低能了.
如果你想知道存储过程的用法,我的空间里就有详细的使用方法.
如果你的设置都正确,你可以尝试下面的方法.
(ADOConnection1.Connect->true)
因为ADOTabel我很少用,而且个人觉得如果作添加,删除等动作,这个控件不怎么好使,所以,我建议用ADOQuery来完成.下面是插入例子:
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into test(id,name,descrip) values(:id,:name,descrip)');//这里使用的是参数,插入的值取自你的Edit控件
adoquery1.Parameters.ParamValues['num'] := trim(edit1.Text);
adoquery1.Parameters.ParamValues['name'] := trim(edit2.Text);
//adoquery1.SQL.Add('insert into test(id,name,descrip) values(''2'',''myname'',''nosubject'')');--这种是插入具体值.
adoquery1.ExecSQL;

删除的用法类似.