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

文章作者 100test 发表时间 2009:06:15 16:25:46
来源 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

  


相关文章


计算机二级Foxpro:在VFP中模拟动画计算机二级考试
VF编写简易计算器计算机二级考试
vf编程计算3!+4!+5!计算机二级考试
VFP中常用WIN32API函数调用事例计算机二级考试
vsFlexgrid绑定ADO记录集的示例计算机二级考试
编程管理SQLSERVER的帐号计算机二级考试
将DBF表导入到SQLSERVER中的函数计算机二级考试
VFP远程视图使用面面观计算机二级考试
VFP和SQLSERVER搭配做CS系统计算机二级考试
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛