请高手帮我看看下面的代码。不知道什么问题，编译成功，执行出错！特别邀请poleax() 进来

Question

编译成功，执行出错！
请高手指点。
function Sql_ADO():integer;
var
ConnString : string;
ADOConnection1 : _Connection;
Recordset1 : _Recordset;
count1 : integer;begin  ConnString := 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=AIO20030729110712;Data Source=LVFENG';
  ADOConnection1 :=  CoConnection.Create;
  ADOConnection1.Open(connString, 'sa','sa', -1);
  Recordset1 := CoRecordset.Create;
  Recordset1.Open('select * from hrms_Emp inner JOIN Com_EmpCard on hrms_emp.EmpID = Com_EmpCard.EmpID where Com_EmpCard.CardID =7403',ADOConnection1,adOpenKeyset,adLockPessimistic,adCmdText);
  Recordset1.GetTypeInfoCount(count1);
  result := count1;end;

Answer 1

delphi都给你封装好了为什么还要用原生对象呢？

Answer 2

你最好走单步调试，看在哪里报错
看看ConnString有没有写对，再改一下ADOConnection1.Open(connString, '','', -1);

Answer 3

我找到问题了：上面代码没有问题,问题是怎么转换string，并凑成SQL语句出错了！
请问高手，下面这句应该怎么改啊！！！！！
Recordset1.Open('select *  from Pos_AccHead  where AccStatus = 10 AND CardID ='+ string(CarID_Input),ADOConnection1,adOpenKeyset,adLockPessimistic,adCmdText);

Answer 4

解决这个问题了！
现在有个问题问 poleax() ，如果用ADOConnection1 : _Connection;
Recordset1 : _Recordset;这种方式，怎么实现添加和修改数据啊！
最简单的方法！