|
楼主 |
发表于 2010-10-8 23:25:16
|
显示全部楼层
看了看seagate的数据库操作函数,呼叫seagate把这个改写到3.25中应该怎么修改呢
下面这段比较有代表性的代码!
#va MapRset2 %comcreate("ADODB.Recordset")
#CALL @MapRset2.Open($query,@MapConnStr,2)
#va $eof @MapRset2.eof
#if ($eof="True"||$eof="") {
#if $eof="True" {
#call @MapRset2.close
MapRset2=""
} {
#show %format("语句有问题:%s",$query)
}
#return ""
}
#CALL @MapRset2.MoveFirst
#WHILE (not @MapRset2.eof) {
#if $deathloop>1000 {
#break
}
$room_desc.name=@MapRset2.fields(0).value
$room_desc.id=@MapRset2.fields(1).value
$room_desc.direct=@MapRset2.fields(2).value
$room_desc.rel_id=@MapRset2.fields(3).value
$room_desc.rel_name=@MapRset2.fields(4).value
$room_desc.desc=@MapRset2.fields(5).value
#va $batch_room_desc %additem($room_desc,$batch_room_desc)
#CALL @MapRset2.MoveNext
#add $deathloop 1
}
#call @MapRset2.close
MapRset2=""
#return $batch_room_desc |
|