vsFlexgrid绑定ADO记录集的示例计算机二级考试

文章作者 100test 发表时间 2009:07:25 10:45:54
来源 100Test.Com百考试题网

　　001: *-- 在表单中的代码，可以放在一个按纽的click中
　　002: ADOConnect()
　　003: ADORunSQL("0select ID,per_code,per_name from personal")
　　004: thisform.olecontrol1.DataSource=goRS &.&. olecontrol1 是个 vsFlexgrid 控件
　　005:
　　006: *-- 过程文件：
　　007: *-- 用 ADO 的方式创建连接
　　008: *-- 红虎于2002.10.17编写
　　009: FUNCTION ADOConnect
　　010: IF TYPE("goConn") = "U"
　　011: PUBLIC goConn
　　012: ENDIF
　　013: *-- 创建一个连接
　　014: goConn = CREATEOBJECT("ADODB.Connection")
　　015: goConn.ConnectionString = "Driver={SQL Server}.Server=RedTiger.UID=sa.PWD=.DataBase=hr"
　　016: goConn.Open
　　017: ENDFUNC
　　018:
　　019: *-- 用 ADO 的方式打开一个SQL查询
　　020: FUNCTION ADORunSQL
　　021: LPARAMETERS tcSQLCommand
　　022: IF TYPE("goRS") = "U"
　　023: PUBLIC goRS
　　024: goRS = 0
　　025: ENDIF
　　026: goRS = CREATEOBJECT("ADODB.RecordSet")
　　027: WITH goRS
　　028: .Source = tcSQLCommand
　　029: .CursorType = 2 &.&. adOpenDynamic
　　030: .LockType = 3 &.&. adLockOptimistic
　　031: .ActiveConnection=goConn
　　032: .Open
　　033: ENDWITH
　　034: ENDFUNC
　　035:
　　036:
　　037: *-- 关闭 ADO 的连接
　　038: FUNCTION ADOClose
　　039: IF goConn.State >. 0
　　040: goConn.Close
　　041: ENDIf