如何在delphi中把汉字插入到SOL Server 2000的表中

Question

比如我要在应用程序里添加数据到数据库的表，但不知道怎么添加汉字进去。

Answer 1

以下是对添加数据按纽的代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('insert into Course(Cno,Cname,Cpno,Ccredit'
  +')values('+edit1.Text+','+edit2.Text+','+edit3.Text+','+edit4.Text+')');
  adoquery1.ExecSQL;
end;

Answer 2

参照下面的例子
begin
    with DatamoduleADO.adoquery1 do
    begin
    sql.clear;
    sql.Add('insert into Lend(code,outdate,number,sum)'+
      'values(:code,:outdate,:number,:sum)');
    parameters.parambyname('code').value:= ComboBox1.text;
    parameters.parambyname('outdate').value:=datetostr(now());
    parameters.parambyname('number').value:=number.Text;
    parameters.parambyname('sum').value:=TotalEdit.text ;
    execsql;
    end;

Answer 3

==>
procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('insert into Course(Cno,Cname,Cpno,Ccredit'
  +')values('+QuotedStr(edit1.Text)+','+QuotedStr(edit2.Text)+','+QuotedStr(edit3.Text)+','+QuotedStr(edit4.Text)+')');
  // QuotedStr : convert the string S to a quoted string.
  adoquery1.ExecSQL;
end;

Answer 4

谢谢楼上的，还有“qzmp_sc（你是白云~我是乌鸦）”。谢谢你们

Answer 5

谢谢楼上的，还有“qzmp_sc（你是白云~我是乌鸦）”。谢谢你们