vb msflexgrid控件怎么样连sql2005数据库

zhuc2010 2010-01-22 01:33:06

谢谢

...全文

198 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhuc2010 2010-02-02

打赏
举报

好几天没上了，非常感谢，谢谢！

sdrczht 2010-01-26

打赏
举报

[Quote=引用 2 楼 king06 的回复:]
之前给别人写了个例子:
VB codeDim cnnAsNew ADODB.Connection
cnn.ConnectionString="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=database1;UID=sa;PWD=123"If cnn.State<> ADODB.ObjectStateEnum.adStateClosedThen cnn.Close
cnn.OpenDim RsAs ADODB.RecordsetSet Rs=New ADODB.RecordsetWith RsSet .ActiveConnection= cnn
.CursorLocation= adUseClient
.CursorType= adOpenKeyset
.LockType= adLockOptimistic
.Open"SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price FROM sales GROUP BY good_code,customer"If .RecordCount>0Then
MSFlexGrid1.Clear
MSFlexGrid1.Cols=3
MSFlexGrid1.Rows= .RecordCount+1
MSFlexGrid1.TextMatrix(0,0)="商品编号"
MSFlexGrid1.TextMatrix(0,1)="顾客名称"
MSFlexGrid1.TextMatrix(0,2)="平均价格"

.MoveLast: .MoveFirstFor i=1To .RecordCount
MSFlexGrid1.TextMatrix(i,0)= .Fields(0).Value& vbNullString
MSFlexGrid1.TextMatrix(i,1)= .Fields(1).Value& vbNullString
MSFlexGrid1.TextMatrix(i,2)= .Fields(2).Value& vbNullString
.MoveNextNextEndIf
.CloseEndWithSet Rs=Nothing
[/Quote]
同意king06

clear_zero 2010-01-26

打赏
举报

king06 2010-01-22

打赏
举报

之前给别人写了个例子:

    Dim cnn As New ADODB.Connection

    cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=database1;UID=sa;PWD=123"

    If cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then cnn.Close

    cnn.Open

    

    Dim Rs As ADODB.Recordset

    Set Rs = New ADODB.Recordset

    With Rs

        Set .ActiveConnection = cnn

        .CursorLocation = adUseClient

        .CursorType = adOpenKeyset

        .LockType = adLockOptimistic

        .Open "SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price FROM sales GROUP BY good_code,customer"

        If .RecordCount > 0 Then

            MSFlexGrid1.Clear

            MSFlexGrid1.Cols = 3

            MSFlexGrid1.Rows = .RecordCount + 1

            MSFlexGrid1.TextMatrix(0, 0) = "商品编号"

            MSFlexGrid1.TextMatrix(0, 1) = "顾客名称"

            MSFlexGrid1.TextMatrix(0, 2) = "平均价格"



            .MoveLast: .MoveFirst

            For i = 1 To .RecordCount

                MSFlexGrid1.TextMatrix(i, 0) = .Fields(0).Value & vbNullString

                MSFlexGrid1.TextMatrix(i, 1) = .Fields(1).Value & vbNullString

                MSFlexGrid1.TextMatrix(i, 2) = .Fields(2).Value & vbNullString

                .MoveNext

            Next

        End If

        .Close

    End With

    Set Rs = Nothing