用recordSet填充DataGrid,FlexGrid示例代码

View Post

1 DataGrid

Dim db_conn As New Connection

db_conn.ConnectionString = MdlTranslate.ConnectionString()

Dim s_sql As String

Dim db_record As New ADODB.Recordset

db_record.CursorLocation = adUseClient

s_sql = "Select * from tLicenseRecord"

If db_conn.State <> 0 Then db_conn.Close

db_conn.Open

db_record.Open s_sql, db_conn, adOpenDynamic, adLockOptimistic

Set dgLicenseRecord.DataSource = db_record

dgLicenseRecord.Columns("PKID").Caption = "记录号"

dgLicenseRecord.Columns("Type").Caption = "类型"

dgLicenseRecord.Columns("Number").Caption = "点数"

dgLicenseRecord.Columns("LicenseID").Caption = "序列号"

dgLicenseRecord.Columns("ProductName").Caption = "软件产品名称"

dgLicenseRecord.Columns("RemainNumber").Caption = "剩余点数"

dgLicenseRecord.Columns("Time").Caption = "时间"

2 FlexGrid

Private Sub FillGrid()

On Error Resume Next

Dim conn As New Connection

Dim rs As New Recordset

conn.ConnectionString = ConnectionString

conn.Open

rs.Source = m_strSQL ' "select * from tLicenseRecord "

Set rs.ActiveConnection = conn

rs.Open

Set Me.dgLicenseRecord.DataSource = rs

'Set Me.DataGrid1.DataSource = rs

If rs.State = adStateOpen Then rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

posted on 2005-12-01 19:30 MingIsMe 阅读(534) 评论(0) 编辑收藏所属分类: 05 微软编程

Samuel Learning

文章分类(203)

新闻分类(52)

.NET资源

Ajax

Java开源

Mobile

WEB资源

Workflow

其他连接

大牛人

开源软件

敏捷

数据库

未归类

经典框架

网络教程

著名站点

项目管理

最新评论

View Post

用recordSet填充DataGrid,FlexGrid示例代码