永磁铁氧体磁性材料:vb设计一个调用数据库的函数

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 08:32:20
如何设计一个vb函数,如,test(ms as MSflesgrid,my_cnn as ADODB.Recordset) 在控件MSflesgrid上自动显示任何数据库中的数据,包括每列的列名,跟数据库中列名的一样
不好意思,没有很多的分

sub test(ms as MSflesgrid,Rs as ADODB.Recordset)
set my_cnn = new adodb.recordset
Dim rsr, rsc, r, c As Integer
Rs.Open "select……", CnStr & DBname, adOpenStatic, adLockReadOnly
If Rs.RecordCount = 0 Then
rsr = Rs.RecordCount
If rsr > 0 Then
Rs.MoveFirst
rsc = Rs.Fields.Count
With MS
.Clear
.Rows = rsr + 1
.Cols = rsc
For c = 0 To rsc - 1
.TextMatrix(0, c) = Rs.Fields(c).Name
Next
For r = 1 To rsr
For c = 0 To rsc - 1
.TextMatrix(r, c) = Rs(c)
Next
Rs.MoveNext
Next
End With
End If
Rs.Close
Ms.SetFocus
end sub