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

afqitx 2004-09-10 04:56:29
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
...全文
115 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
汪譢晾 2004-09-13
关注一下
回复
zhujiechang 2004-09-12
编译执行试过吗?
回复
afqitx 2004-09-12
再次测试,不用mshflegrid控件,使用list控件一样的结果,七个list控件,是不是数据库的问题呢?
谢谢楼上的朋友帮忙顶!
回复
cqm2099 2004-09-12
UP
回复
afqitx 2004-09-10
应该不会很大的,每个控件也就几十条记录呀,测试过了肯定是数据库或MSHFLEGRID控件的问题,还有就是使用网页控件打开一个网子结查内存点用到了40M了!就加了一控件,打开一个网址!
回复
RUKYO 2004-09-10
代码看不到问题,会否是你所要显示的数据量太过巨大呢,如果是这样的话24M也是有可能的。
回复
afqitx 2004-09-10
做的一个在线播放器,需要从网络上的SQL服务读取数据!在MSHFlexGrid控件中显示歌曲数据!有什么更好的方法或空段代码有什么问题?运行时占用了24M内存,这正常吗?
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-10 04:56
社区公告
暂无公告