成人精品免费视频,国产成人a亚洲精品,久久蜜臀精品av

View Post

用recordSet填充DataGrid,FlexGrid示例代碼

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 閱讀(536) 評論(0) 編輯收藏所屬分類: 05 微軟編程

Samuel Learning

文章分類(203)

新聞分類(52)

.NET資源

Ajax

Java開源

Mobile

WEB資源

Workflow

其他連接

大牛人

開源軟件

敏捷

數據庫

未歸類

經典框架

網絡教程

著名站點

項目管理

最新評論

View Post

用recordSet填充DataGrid,FlexGrid示例代碼