为什么占用这么大的内存,要了24M内存,我用了四个MSHFlexGrid控件.

[afqitx]

Private Sub Form_Load()
Dim Rec As ADODB.Recordset
'Sp1.Navigate "http://www.yzcc.com"
mnuTray.Visible = False
With Cn
' 建立非 DSN 连接
.ConnectionString = "DATABASE=music;SERVER=pop2000;DRIVER={SQL SERVER};UID=sa;PWD=sa;DNS='';"
'.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=i:\user.mdb"
.ConnectionTimeout = 30
.Properties("Prompt") = adPromptNever
' This is the default prompting mode in ADO.
.Open
End With
Set Rs = Cn.Execute("select * from SClass")
i = 0
Do While Not Rs.EOF
Cb1.List(i) = Rs.Fields(1)
i = i + 1
Rs.MoveNext
Loop

Cb1.Text = Cb1.List(0)
i = 0
SqlStr = "select Nclass from NClass where abcd='" & Cb2.Text & "' And SCLassID=1"
Set Rs = Cn.Execute(SqlStr)
MSHFGd1.Clear
Set MSHFGd1.DataSource = Rs
SqlStr = "select name,specialid from Special where NClass='" & MSHFGd1.Text & "'"
Set Rs = Cn.Execute(SqlStr)
MSHFGd2.Clear
Set MSHFGd2.DataSource = Rs
MSHFGd2.Col = 1
SqlStr = "select musicname,wma from musiclist where specialid=" & MSHFGd2.Text
MSHFGd3.Clear
Set Rs = Cn.Execute(SqlStr)
Set MSHFGd3.DataSource = Rs
MSHFGd4.Clear
Set MSHFGd4.DataSource = Rs
Me.Caption = "MP3播放器--歌曲:" & MSHFGd4.Text
MSHFGd4.Col = 1
MP.Open ("http://music1.yzcc.com/" + MSHFGd4.Text)

End Sub

[afqitx]

做的一个在线播放器,需要从网络上的SQL服务读取数据!在MSHFlexGrid控件中显示歌曲数据!有什么更好的方法或空段代码有什么问题?运行时占用了24M内存,这正常吗?

[RUKYO]

代码看不到问题，会否是你所要显示的数据量太过巨大呢，如果是这样的话24M也是有可能的。

[afqitx]

应该不会很大的,每个控件也就几十条记录呀,测试过了肯定是数据库或MSHFLEGRID控件的问题,还有就是使用网页控件打开一个网子结查内存点用到了40M了!就加了一控件,打开一个网址!

[cqm2099]

UP

[afqitx]

再次测试,不用mshflegrid控件,使用list控件一样的结果,七个list控件,是不是数据库的问题呢?
谢谢楼上的朋友帮忙顶!

[zhujiechang]

编译执行试过吗?

[汪譢晾]

关注一下