怎样在SQL SERVER中插入一条信息

Question

谁能帮我，我现在用delphi做一个用户管理表的程序，需要用sql server，而且用adoquery，用户表的功能主要就是增加用户（用户名和密码），删除用户.不知道有没有相似的程序作参考。谢谢

Answer 1

这是什么问题
用ADOConnection
随便找本书看看就明白

Answer 2

随便下载一个delphi操作数据库的例子看看就知道了.

Answer 3

AdoTbl:=TADOTable.Create(Self);
    AdoTbl.Connection:=AdocnCar;
    AdoTbl.TableName:='C_Enterprise';
    AdoTbl.CursorLocation:=clUseClient;
    AdoTbl.LockType:=ltOptimistic;
    AdoTbl.Active:=true;
    AdoTbl.Append;
    With AdoTbl do
    begin
        FieldValues['EnterpriseID']:=IntID;
        FieldValues['EnterpriseCode']:=Trim(EdtEnterpriseCode.Text);
        FieldValues['EnterpriseName']:=Trim(EdtEnterpriseName.text);
        FieldValues['UpCode']:=UpCodeID;
        FieldValues['ViewOrder']:=IntViewOrder;
        Post;
        Close;
        Free;
   end;
除了用INSERT　外，字段多的话，还是这样合适，

Answer 4

我就是要用insert ,我自己写了一段
SQL.Clear;
SQL.Add('select * from T_user');
SQL.Add('where username=:coner');
ExecSQL;
这样写可以吗，中间的sql语句怎么写阿

Answer 5

//增加
with data_form.ADOQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.add('insert into 操作员表(操作员名,口令) values ');
     sql.add('(''' + trim(editname.Text) + ''',''' + trim(editpass.Text)+'''');
     ExecSQL ;
   end;
//删除
with data_form.ADOQuery1 do
   begin
     Close;
     SQL.Clear ;
     SQL.add('delete from 操作员表 where 操作员名=''' + editusr.text+'''');
     ExecSQL;
   end;

Answer 6

var 
   user,psd:string;
begin
   user:='admin';
   psd:='admin';
//增加
with adoquery1 do
   begin
      close;
      sql.Text:='insert into usetable (useId,psd) values ('''+user+''','''+psd+''')';
      execsql;
   end;
//删除
  with adoquery1 do
     begin
       close;
       sql.Text:='delete from usetable where userId='''+user+'''';
       execsql;
     end;  
end;

Answer 7

首先你要设置数据库连接
可以用ADOConnection，也可以直接用aodquery
设置ConnectionSTRING为你的数据库
aodquery用法跟QUERY是一样的
查询
SQL.Add('select * from T_user');
SQL.Add('where username=:coner');
open
添加
SQL.add('insert into T_user');
SQL.add('字段1，字段2，。。');
SQL.ADD('values')；
sql.add('(字段一的值，字段二的值)')
ExecSQL ;
删除
SQL.add('delete from T_user where 字段=''' + 某个值+'''');
ExecSQL;