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

　　相关链接：

　　2008年下半年全国计算机等级考试报名信息汇总

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛