vb关于全局变量的问题

2005-06-07 12:38:36 287 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用VB解决华容道问题的源代码全局变量定义 Type HRDState 华容道的棋局表示state(1 To 12) As Long 棋盘上的12个棋子的当前位置Superid As Long 上一步棋盘的位置编号,0代表无上一步Level As Long 这一不棋局的级别,0代表是开始状态End TypePublic G_Next As C 阅读详情

我想用vb做个简单的连接数据库的软件，是连接sqlserver的，我现在的代码是如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
rs.Open "select sc.*,course.cname from course,sc where sc.cno=course.cno and sno=" & sno.Text, conn, adOpenStatic, adLockReadOnly, adCmdText
fsno.Enabled = False
End Sub

Private Sub Form_Load()
conn.ConnectionString = "DSN=LocalServer;uid=sa;pwd=1234;DATABASE=mytdb"
conn.ConnectionTimeout = 30
conn.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub

运行是他说我的Form_Load()函数的 conn为未知变量，当我把Form_Load()的代码改为
Dim conn As ADODB.Connection
conn.ConnectionString = "DSN=LocalServer;uid=sa;pwd=1234;DATABASE=mytdb"
conn.ConnectionTimeout = 30
conn.Open
时就可以正常连接，但是如果是这样设的话，我其他的函数就不能引用conn这个变量，请高手指教

...全文