我想在VB中某一个form中连接数据库(sql server),在其他form都能使用,如何实现

Question

   Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=1234;Data Source=127.0.0.1;Initial Catalog = test"
    pubConn.Open strConn请问这个代码如何改,放在哪!

Answer 1

放在模块中［(Public Sub Main()］，改成public   public strConn As String
    public pubConn As New ADODB.Connection
    public rsTable As New ADODB.Recordset
    public strSQL As String
Public Sub Main()
 strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=1234;Data Source=127.0.0.1;Initial Catalog = test"
    pubConn.Open strConnEnd Sub

Answer 2

添加一个模块把
   public strConn As String
   public pubConn As New ADODB.Connection
   public rsTable As New ADODB.Recordset
   public strSQL As String
放在该模块的开头。
下面的代码放在你第一次要连接数据库的地方。以后就可以用pubconn这个变量了
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=1234;Data Source=127.0.0.1;Initial Catalog = test"
    pubConn.Open strConn