我用的是ACCESS数据库,建立的一个表test:
A :字符型,
C :OLE对象
怎样用SQL语句对其插入数值?
即:以下的问号该如何写:
procedure TTransComCodeForm.Button1Click(Sender: TObject);
var
sq:string;
?//OLe对象
begin
SQL_Exec(format('insert into test(A,B,C)values(%s,?) '[#39+sq+#39,?]),adoquery);end;定义一个执行SQL语句的涵数
procedure SQL_Exec(sqltext: string; ADataSet: TADOQuery):boolean;
var
tmpCursor: TCursor;
begin
result := false;
if DataConnect.Connected then
begin
tmpCursor := Screen.Cursor;
Screen.Cursor := crSQLWait;
try
ADataSet.Close;
ADataSet.SQL.Clear;
ADataSet.SQL.Add(sqltext);
ADataSet.ExecSQL;
end;
end;问题是我
A :字符型,
C :OLE对象
怎样用SQL语句对其插入数值?
即:以下的问号该如何写:
procedure TTransComCodeForm.Button1Click(Sender: TObject);
var
sq:string;
?//OLe对象
begin
SQL_Exec(format('insert into test(A,B,C)values(%s,?) '[#39+sq+#39,?]),adoquery);end;定义一个执行SQL语句的涵数
procedure SQL_Exec(sqltext: string; ADataSet: TADOQuery):boolean;
var
tmpCursor: TCursor;
begin
result := false;
if DataConnect.Connected then
begin
tmpCursor := Screen.Cursor;
Screen.Cursor := crSQLWait;
try
ADataSet.Close;
ADataSet.SQL.Clear;
ADataSet.SQL.Add(sqltext);
ADataSet.ExecSQL;
end;
end;问题是我
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货