以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于在家使用狐表的问题请老师指教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147356)

--  作者:LFC201911
--  发布时间:2020/3/14 18:46:00
--  关于在家使用狐表的问题请老师指教
我们单位是50M的专线光纤,在家使用狐表,加载表没有什么问题速度还可以,就是操作窗口按钮的时候等待时间太久了,每点一个按钮都要等1到2分钟才能得到数据。比如做了一个按钮,拷贝数据库对应的数据并插入关联子表,这个在按钮里面调用后端的存储过程来完成。在公司的速度还可以,在家速度就不行了。求老师指点,如何才能流畅使用!
--  作者:程兴刚
--  发布时间:2020/3/14 18:48:00
--  
看不到代码,谁猜得到?
--  作者:LFC201911
--  发布时间:2020/3/14 18:53:00
--  
下面是按钮代码,需要看存储过程代码吗?
---------------------------------------
DataTables("bh_moh").Save()
Tables("bh_moh.bh_mod").Save()


Dim mnum As Long
mnum = Tables("bh_moh").Current("num")
Dim mitemno  As String  = Tables("bh_moh").Current("itemno")

If mitemno Is Nothing Then 
   messagebox.show(" 产品资讯不可以皆空白.","提示!")
    Return 
End If

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "up_62g_from_94c" \'指定存储过程名
cmd.StoredProcedure = True \'表示CommandText内容不是标准的SQL语句,而是存储过程名
cmd.Parameters.Add("@num",mnum)
cmd.Parameters.Add("@userid",user.name)

cmd.ExecuteNonQuery

\'Dim dt As DataTable = cmd.ExecuteReader
Tables("bh_moh").Current.Load()
DataTables("bh_mod").Load()
---------------------------------------------------

--  作者:LFC201911
--  发布时间:2020/3/14 18:58:00
--  
后端代码也已经上传了,拜谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:后端代码.txt


--  作者:狐狸爸爸
--  发布时间:2020/3/15 8:35:00
--  
既然公司速度没问题,说明代码和存储过程都OK,主要问题在于加载数据:
DataTables("bh_mod").Load()


加载数据的速度取决于服务器和客户端之间的网速和数据量,可以适当减少数据加载量,或采用分页加载