问题描述:我有一段代码如下,用于更新数据,若不存在则添加,否则替换。
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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货