vsFlexgrid綁定ADO記錄集的示例

001: *-- 在表單中的代碼，可以放在一個(gè)按紐的click中
    002: ADOConnect()
    003: ADORunSQL("select ID,per_code,per_name from personal")
    004: thisform.olecontrol1.DataSource=goRS && olecontrol1 是個(gè) vsFlexgrid 控件
    005:
    006: *-- 過程文件：
    007: *-- 用 ADO 的方式創(chuàng)建連接
    008: *-- 紅虎于2002.10.17編寫
    009: FUNCTION ADOConnect
    010: IF TYPE("goConn") = "U"
    011: PUBLIC goConn
    012: ENDIF
    013: *-- 創(chuàng)建一個(gè)連接
    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 的方式打開一個(gè)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: *-- 關(guān)閉 ADO 的連接
    038: FUNCTION ADOClose
    039: IF goConn.State > 0
    040: goConn.Close
    041: ENDIf