vsFlexgrid绑定ADO记录集的示例

01:*-表单中的代码可以放在单击的按钮中
002:ado connect()
003:adorun SQL(" select id，per _ code，Per _ name from personal ")
004:this form . ole control 1 . data source = gors & & ole control 1是一个vsFlexgrid控件
005:
006:*-进程文件:
07:*-创建与ADO的连接[/br 2002
009:函数ADO Connect
010:if type(" goconn ")= " u "[/br/011:public goconn
012:endif
013:*-创建连接
014:goconn = CreateObject(" adodb . connection ")
015:goconn . connectionstring = Server = red tiger； UID = saPWD =；database = HR "/br/]016:goconn . Open
017:end func
018:
019:*-用ADO打开SQL查询
020:Function Ador un SQL[/]021:LPARAMETERS tcSQLCommand
022:IF TYPE(" goRS ")= " U "
023:PUBLIC goRS
024:goRSRecordSet ")
027:WITH goRS
028:。Source = tcSQLCommand
029:。cursor type = 2 & & adOpenDynamic
030:。lock type = 3 & & adlock optimistic
031:。active connection = goConn
032:。open
033:end with
034:end func
035:
036:
037:*-关闭ADO的连接
038:函数ADO Close
039:ifgoconn . state > 0