freebasic里使用sql server数据库

我写文章懒得啰嗦，只是做做记录，方便道友参考,直接代码开路。

#include "Afx/CADODB/CADODB.inc"
DIM pConnection AS CAdoConnection
pConnection.Open "Provider=SQLOLEDB;Server=127.0.0.1,2433;Database=data;UID=fanfan;PWD=123456;"
DIM pRecordset AS CAdoRecordset
DIM cvSource AS CVAR = "SELECT * FROM dbo.occup"
pRecordset.Open(cvSource, pConnection, adOpenKeyset, adLockOptimistic, adCmdText)
pConnection.BeginTrans
print  pRecordset.RecordCount
while not  pRecordset.EOF
   DIM cvRes AS CVAR = pRecordset.Collect("年龄")
   ?cvres
   IF pRecordset.MoveNext <> S_OK THEN EXIT while
wend
pConnection.CommitTrans
sleep

 效果见下图：