PureBasic对数据表的遍历[原创]

PureBasic真是太方便了.你不喜欢都不行了.也许这个basic真的不错,真的比较纯洁.在Purebasic中我们做许多工作相当方便,这里列出了对数据表中所有记录进行遍历,仅仅几行代码,却可以很轻松地完成我们的工作,这一点太棒了.你不需要通过什么烦索的东西,只需要做好数据库,轻松几条语句,就可以帮你搞定数据库,真正是触到了basic的精髓-简单,高效.

 

;PureBasic对数据库的遍历

Enumeration
  #DB
EndEnumeration

If InitDatabase() = 0
  MessageRequester("Error", "Can't initialize Database (ODBC v3 or better) environment", 0)
  End
EndIf

OpenConsole()

If OpenDatabase(#DB,"dbtry","","")=0
  MessageRequester("error","Open database error!",0)
  End
EndIf

If DatabaseQuery(#DB,"select * from tb1")
  While NextDatabaseRow(#DB)
    Print( GetDatabaseString(#DB,0))
    Print(" ")
    Print( GetDatabaseString(#DB,1))
    Print(" ")
    PrintN( GetDatabaseString(#DB,2))
  Wend
EndIf

MessageRequester("Info", "Operation canceled", 0)
End