vsFlexgrid绑定ADO记录集的示例

来源：计算机等级考试发布时间：2012-08-28 计算机等级考试视频评论

　　001: *-- 在表单中的代码，可以放在一个按纽的click中
　　002: ADOConnect()
　　003: ADORunSQL("select 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

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。