谁用过cmudpro3.25 beta

nonename

怎么连接mdb数据库，2.37可以，但是他不行呢？
这个版网上有破解补丁
数据库的连接有什么改进呢？

killunix

补丁在哪里

killunix

软件的改进要看官方的release notes

nonename

http://www.zuggsoft.com/files/cmudpro325_setup.exe

nonename

补丁也可以这里去下载

http://cracknews.com/get_182108.html

nonename

3.25里面的
#va MapRset2 %comcreate("ADODB.Recordset")
这样的语句 MapRset2就成了 COM object的类型变量，这种变量的使用不熟练的，有没有高手来说说！

nonename

看了看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

seagate

325有直接支持数据库的#sql语句，你配上sqlite数据库就行，据说sqlite数据库汉字支持有点麻烦，这个应该是小问题。不用像我自己写com连接字符串，要写com连接字符串抄我的写法就行，我的仅支持access数据库，对更好的数据库就不支持了。
据说#sql语句可以支持多种数据库格式，这个需要研究了，我也没有研究明白。com对象也就会access格式。

nonename

#SQLDB @MapConnStr
MapRset2=%sql(WorldMap,$query)
#if (@MapRset2.Eof()||@MapRset2.Eof()="") {
#if @MapRset2.Eof() {
    #SQLCLOSE WorldMap
   MapRset2=""
   } {
    #show %format("语句有问题：%s",$query)
  }
#return ""
}
#CALL @MapRset2.First
#WHILE (!MapRset2.Eof()) {
  #if $deathloop>1000 {
    #break
    }
  #show @MapRset2.Item(1)
  #show @MapRset2.Item(2)
  #show @MapRset2.Item(3)
  #show @MapRset2.Item(4)
  #show @MapRset2.Item(5)
  #show @MapRset2.Item(6)
  $room_desc.name=@MapRset2.Item(1)
  $room_desc.id=@MapRset2.Item(2)
  $room_desc.direct=@MapRset2.Item(3)
  $room_desc.rel_id=@MapRset2.Item(4)
  $room_desc.rel_name=@MapRset2.item(5)
  $room_desc.desc=@MapRset2.item(6)
  #va $batch_room_desc %additem($room_desc,$batch_room_desc)
  #CALL @MapRset2.Next
  #add $deathloop 1
  }
#SQLCLOSE WorldMap
MapRset2=""
#return $batch_room_desc


改造测试了下，发现#show结果正常，说明数据库正常连接，但是下面的赋值语句取不到值，这是为什么

[ 本帖最后由 nonename 于 2010-10-9 12:31 PM 编辑 ]

nonename

ok了，结个尾！！
#addkey $room_desc name @MapRset2.Item(1)
#addkey $room_desc id @MapRset2.Item(2)
#addkey $room_desc direct @MapRset2.Item(3)
#addkey $room_desc rel_id @MapRset2.Item(4)
#addkey $room_desc rel_name @MapRset2.item(5)
#addkey $room_desc desc @MapRset2.item(6)
  #CALL @MapRset2.Next
  #add $deathloop 1
  }
#SQLCLOSE WorldMap
MapRset2=""
#return  $room_desc