我用vb写了一个com,用于连接sqlserver数据库，为何连接失败？救火！！！！

Question

在一般的FORM 下。什么意思。那你现在是在什么下呀？

Answer 1

我另建了一个新的form,就看一下我的连接语句是否正确

Answer 2

代码相同吗？不可能吧。两个FORM还有什么区别不成？

Answer 3

你能解释一下COM是什么东西,VB如何写的吗?(不要说我是捣乱的,我只是想学东西)

Answer 4

具体代码如下：
Public Function OpenDB(sername As String, uid As String, pwd As String, dbname As String)
Dim Dbconstr As String
On Error GoTo err_pro
    dbconsuccess = False
    Set SrvDBCONN = New ADODB.Connection
    Dbconstr = "driver={SQL Server};server=" & sername & ";uid=" & uid
    Dbconstr = Dbconstr & ";pwd=" & pwd & ";database= " & dbname
    SrvDBCONN.ConnectionString = Dbconstr
    SrvDBCONN.Open
    dbconsuccess = True
err_pro:
    Exit Function
End Function

Answer 5

com 好象不是这样写的。不要用共用的连接。
要作什么，在每一个方法中新建连接，用完后再set cn=nothing 不好吗？？？

Answer 6

我想可能是COM被注册后就成为持久对象，你不释放连接，当然连不上了。（在一般的Application中，程序结束，连接就被自动释放了）