ADO数据连接的问题

Question

if cnnHeatTracer.state and adstateclose then 
cnnHeatTracer.open
end if

Answer 1

把cnnHeatTracer定义在代码的最上面，即为模块级变量

Answer 2

把cnnHeatTracer定义在代码的最上面，即为模块级变量

Answer 3

参见我的代码！！Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim parm1 As New ADODB.Parameter
Dim parm2 As New ADODB.Parameter
Dim DataPath As String
DataPath = App.Path & "\180record.mdb"Debug.Assert begtime <> Nullbegtime = DateValue(DTPicker1.Value)
endtime = DateValue(DTPicker2.Value)Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Mode=ReadWrite;Persist Security Info=False"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = "select count(*) from 180_Contxt where i_Date between ? and ?"
cmd.CommandType = adCmdTextSet parm1 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm1.Value = begtime
cmd.Parameters.Append parm1
Set parm2 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm2.Value = endtime
cmd.Parameters.Append parm2
conn.Errors.Clear
Set rst = cmd.Execute
If conn.Errors.Count <> 0 Then
MsgBox "发生错误!"
Exit Sub
Else
MsgBox begtime & "至" & endtime & "共处理投诉单" & FormatNumber(rst.Fields(0).Value, 0) & "张"
End If
If DataEnvironment1.rsCommand1.State = 1 Then
   DataEnvironment1.rsCommand1.Close
End If
With DataReport1
    Set .DataSource = DataEnvironment1
        .DataMember = "Command1"End With
DataReport1.ShowEnd Sub

Answer 4

to：： water_j(jxp) 
你的代码说明了什么？

Answer 5

to：： pandawind(熊猫) 
cnnHeatTracer我已经定义了，刚才忘记帖了

Answer 6

模块内用连接要保证: cnnHeatTracer 是打开的并且是公用的就行了

Answer 7

1、把联结定义成模块级别变量
2、或者调用Sub和Function的时候，连同联结一起当参数传递

Answer 8

cnnHeatTracer 定义为全局变量
public cnnheattracer  '在模块内定义

Answer 9

if conn.state  then
  conn.open
endif
conn是一个conntion对象,
  最好在模块里建function