问题描述:我有一段代码如下,用于更新数据,若不存在则添加,否则替换。
   MyCn:=CreateOleObject('adodb.connection');
   MyRs:=CreateOleObject('adodb.recordset');
   ServerNameStr:=trim(edit10.text);
   UserNameStr:=trim(edit11.text);
   PassWordStr:=trim(edit13.text);
   DBNameStr:=trim(edit12.text);
   TableNameStr:=trim(edit15.Text);
   //设定成SQl的引擎
   if radiobutton1.Checked then  MyconnStr:='driver={sql server};server='+ServerNameStr+';uid='+UserNameStr+';pwd='+PassWordStr+';database='+DBNameStr;
   //设定成access的引擎
   if radiobutton2.Checked then  MyconnStr:='Provider=Microsoft.jet.oledb.4.0;data source='+DBNameStr+'.mdb';
      mycn.open(myconnstr);       //适用于SQL 不需要分界符
       if radiobutton1.Checked then  Sqlstr:='select * from '+TableNameStr+' where CDate = '+F_CDate[i];
       //适用于Access
       if radiobutton2.Checked then  Sqlstr:='select * from '+TableNameStr+' where CDate = #'+F_CDate[i]+'#';
         //经过运行,以下这段代码只适用于access,不适用于SQL(j返回总是0),请问那位高手能指教?又,如果我想把MyRs里的数据显示在表格里,该如何编写代码,非常感谢你的指教。
         myrs.open(sqlstr,mycn,3,1);
         myrs.pagesize:=1;
         j:=strtoint(vartostr(myrs.pagecount));
         //showmessage(vartostr(myrs.pagecount));
         myrs.close;         myrs.open(sqlstr,mycn,2,4);
         if j<1 then myrs.addnew;