Question

一个VB程序，有问题，有没有大神可以帮我看一下呀^_^

程序的功能是要实现
单击command1打开数据库1并将数据库里面的“学号”字段内容导入到数组a中
（数据库用的是access）

Dim a(1 To 3000) As Integer 'a为数据库1中的学号
Dim b(1 To 3000) As Integer 'b为数据库2中的学号
Dim cnn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String ' 定义

Private Sub form1_load()

shujuku1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\数据库1.mdb"
shujuku2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\数据库2.mdb"
End Sub

Private Sub Command1_Click()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim sql As String
i = 1
rs1.Open sql, cn
shujuku1.Open ' 使用cnn对象打开数据库连接
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库1.mdb" + "" ' 打开数据库记录
sql = "select * from sheet1"

If cnn.EOF Then
MsgBox "数据库表为空!"
Else
rs1.Open sql
rs1.MoveFirst

Do While Not rs1.EOF
List1.AddItem rs1("学号")
a(i) = rs1("学号") '将数据库1中的学号1导入数组a中
i = i + 1
rs1.MoveNext
Loop

End If

Set mr = Nothing ' 关闭记录对象
Set cnn = Nothing ' 关闭连接对象

End Sub

Answer 1

你这段代码的错误不下二十处，我无法一一指出了，自己看代码：

Dim a(1 To 3000) As Integer 'a为数据库1中的学号
Dim b(1 To 3000) As Integer 'b为数据库2中的学号

Private Sub Command1_Click()
Dim rs1 As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim i As Long
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\数据库1.mdb"
rs1.Open "select * from sheet1", cnn
If rs1.EOF Then
    MsgBox "数据库表为空!"
Else
    For i = 1 To rs1.RecordCount
        List1.AddItem rs1("学号")
        a(i) = rs1("学号") '将数据库1中的学号1导入数组a中
        rs1.MoveNext
    Next
End If
rs1.Close
Set rs1 = Nothing ' 关闭记录对象
cnn.Close
Set cnn = Nothing ' 关闭连接对象
End Sub

Answer 2

那是注解， "意思是……

把双引号改为单引号就没问题了。

改成这样 ：

' 意思是按下退出按钮,登陆按钮则恢复

要用英文输入法输入单引号，不要用中文的输入法输单引号

追问

程序运行的时候会出错%