procedure TForm1.btn1Click(Sender: TObject);
var
fQuery : TAdoQuery;
fDBConnect : TADOConnection;
begin
fDBConnect := TADOConnection.Create(nil);
fDBConnect.ConnectionString := 'Provider=MSDASQL.1;Password=123456;Persist Security Info=True;User ID=sa;Data Source=testdb;Mode=ReadWrite';

fDBConnect.LoginPrompt := False;
fDBConnect.KeepConnection := True;
fDBConnect.Connected := True;

fQuery := TADOQuery.Create(nil);
fQuery.Connection := fDBConnect;
fQuery.SQL.Add('select YZBH,SBSJ,WJMC from T_UPLOAD_01') ;
fQuery.Active := True;

try
fQuery.Insert;
fQuery.FieldByName('YZBH').AsString := '1';
fQuery.FieldByName('SBSJ').AsDateTime := Now;
fQuery.FieldByName('WJMC').AsString := 'test.c';
fQuery.Post;
fQuery.Active:= false;
fQuery.Free;
fQuery := nil;
except

end;

end;

end.

---------------------------------------
一执行POST就出错,错误信息如下：
Project PADO_DBEXPRESS_TEST.exe raised exception class EDatabaseError with message '数据提供程序或其他服务返回 E_FAIL 状态。'.