分数不多了，想请教老大们几个问题，数据库的

[rkdrc]

Public Sub SQLExt(StrSql As String)
Dim cmd As New ADODB.Command
Connect
Set cmd.ActiveConnection = Conn
cmd.CommandText = StrSql
cmd.Execute
Set cmd = Nothing
Disconnect
End Sub
Public Function QueryExt(ByVal StrSql As String) As ADODB.Recordset
Dim Rs As New ADODB.Recordset
Connect
Set Rs.ActiveConnection = Conn
Rs.CursorType = 1
Rs.LockType = 1
Rs.Open StrSql
Set QueryExt = Rs
End Function
Public Sub Connect()
If IsConnect = True Then
Exit Sub
End If
Set Conn = New ADODB.Connection
Conn.ConnectionString = Cnn
Conn.Open
If Conn.State <> adStateOpen Then
MsgBox "数据库连接失败!", vbOKOnly + vbCritical, "警告"
End
End If
IsConnect = True
End Sub
Public Sub Disconnect()
If IsConnect = False Then Exit Sub
Conn.Close
Set Conn = Nothing
IsConnect = False
End Sub
以上几个是写的查询，与执行语句模块，一直用的很顺当
问题是现在有大量的循环查询，将这些查询函数嵌套在里面效率比较慢，我怀疑是不是Connect函数与Disconnect函数反复使用降低了效率，反复的链接断开耗费了大量时间，请老大们指点下，谢谢

[熊孩子开学喽]

C/S程序运行期间不必断开连接的.

[chinaboyzyq]

反复连接是相当费时间的，把Dim cmd As New ADODB.Command定义为全局变量，到不影响你程序速度时关闭释放。

[rkdrc]

[Quote=引用 1 楼 wallescai 的回复:]
C/S程序运行期间不必断开连接的.
[/Quote]
大侠什么意思？
是否可以将
Public Sub Disconnect()
If IsConnect = False Then Exit Sub
Conn.Close
Set Conn = Nothing
IsConnect = False
End Sub
去除，一次连接上去不断开就可以了？

[c_cyd2008]

程序启动时连接，退出时断开，以免反复连接,连接对象定义成全局的

[worldy]

[Quote=引用楼主 rkdrc 的回复:]
Public Sub SQLExt(StrSql As String)
Dim cmd As New ADODB.Command
Connect
Set cmd.ActiveConnection = Conn
cmd.CommandText = StrSql
cmd.Execute
Set cmd = Nothing
Disconnect
End Sub……
[/Quote]

你的Conn应该定义模块的，在进入程序的时候，将其打开，当程序结束的时候，才关闭之，没必要每次打开关闭
另外，你的记录集如果只读的，不需要修改，那么，你不要用rS的方式打开数据
你可以使用set rs=conn.exec(sQry)方式打开，该方式速度比较快！

[rkdrc]

[Quote=引用 5 楼 worldy 的回复:]
引用楼主 rkdrc 的回复:
Public Sub SQLExt(StrSql As String)
Dim cmd As New ADODB.Command
Connect
Set cmd.ActiveConnection = Conn
cmd.CommandText = StrSql
cmd.Execute
Set cmd = Nothing
Disconnect
End ……
[/Quote]
set rs=conn.exec(sQry)确认很快啊

[神马都能聊]

  Rs.CursorType = 1
  Rs.LockType = 1

Rs.CursorType = 3
Rs.LockType = 3

我记得我当时这里赋的值都是3来着，具体记不清了，好久没注意过了，都是拷贝过来就用的。


我的连接都是短连接，从来没觉得慢过，都是查询不慢，显示才慢。如果查询很慢，就说明你的数据量很大。

[熊孩子开学喽]

在模块里定义全局的数据库连接,记录集,表连接,查询

在main的时候就可以加载和连接了.
在最后程序退出的时候全体断开释放就可以了.

随用随连一般B/S才这么干. C/S就长连接吧