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
责任编辑:小草