数据连接的问题

[evilzydar]

我的数据连接gcnn写在模块mod1.vb中的sub main中，然后在
“Datacnn.Open(sqlstr3, Mod1.gCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)”中引用
但是程序一执行的时候就总是报错：

"未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 牧场管理系统.exe 中。

其他信息: 连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。"

请问这是什么原因？？

[landlordh]

open之前要先判断一下状态，

[水如烟]

Mod1.gCnn要打开才Datacnn.Open

[evilzydar]

我加了一句“ Mod1.gCnn.Open()”现在提示下面的错误：

“未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 牧场管理系统.exe 中。

其他信息: [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序”

[liuyi3000]

建议在代码首加open在结尾加close

[水如烟]

检查gCnn.ConnectionString

[水如烟]

你将gCnn.ConnectionString那个连接数据库的字串贴出来

[evilzydar]

DataServConn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=local;UID=sa;PWD=123;Database=Data;"
gCnn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
gCnn.Open(DataServConn)

[水如烟]

这不是你另外的一个贴吗？
DataServConn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=local;UID=sa;PWD=123;Database=Data;"
改为
DataServConn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=(local);UID=sa;PWD=123;Database=Data;"
试过没有？

[evilzydar]

恩，我把它放在form窗体中就没有问题，但是，现在我想把它放在mod1.vb中，然后每个窗体都可以调用它，这样就不行，就总出错！

[水如烟]

那就不是这样写的了，你参考一下：

Module Module1
Public Const SQL_CONNECT As String = "Server={0};Database={1};Trusted_Connection=True;"
Public Const SQL_SELECT As String = "SELECT * FROM {0}"
Public Cn As SqlConnection = New SqlConnection(String.Format(SQL_CONNECT, ".", "NorthWind"))
Public Cm As SqlCommand = New SqlCommand("", Cn)
Public Ad As SqlDataAdapter = New SqlDataAdapter(Cm)
End Module

[evilzydar]

再顶！