请教一个关于数sql server据库连接的问题(在线急等)

Question

请问在公共模块中设置好的连接为什么在其他的form要模块中使用不可以啊？我用的是ado代码如下：
public function()
     dim cn as adodb.connection  
     cn.connecction="provider=oledb;servere=dataserver;database=db;uid=sa;pwd=;
cn.open
end function
form中：
    dim rs as new recordset
    rs.open "select * from tablename",cn

Answer 1

可以
不过你要把dim cn as adodb.connection 
改为public cn as adodb.connection

Answer 2

我开始写的是public cn as adodb.connection,但是出错了，改为dim 后还是出同样的错误，在下边的语句处出错：不识别cn
    rs.open "select * from tablename",cn

Answer 3

public cn as adodb.connection
放到function外

Answer 4

public cn as adodb.connection放在公用模块里就好了

Answer 5

Module
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
connstr = "Providerprovider=oledb;servere=dataserver;database=db;uid=sa;pwd=;"
conn.Open connstrform
conn.Open connstr
Sql = "select * from tablename"
rs.Open Sql, conn, adOpenKeyset, adLockPessimistic

Answer 6

TT008(T T) 我不想在每一个form 中都写conn.Open connstr

Answer 7

： superxmz(我要星星) ，可以给

Answer 8

在form里直接Sql = "select * from tablename"
rs.Open Sql, conn, adOpenKeyset, adLockPessimistic
就可以了
不用
conn.Open connstr

Answer 9

zhenglc(絮絮) 可以给出具体的代码

Answer 10

在公共模块中：
  public  cn as new adodb.connection   '记住写上 new 关键字。否则在form 得 set
   public function()
     cn.connecction="provider=oledb;servere=dataserver;database=db;uid=sa;pwd=;
   cn.open
  end function
  form中：
    dim rs as new recordset
    rs.open "select * from tablename",cn这样就可以了