Excel数据到数据网格视图在vb6中

Question

大家好，我是新人！

所以，我正在用VB 6.0开发一个简单的软件（是的，我知道很老）。我必须做的是将Excel表格操作到VB应用程序中。实际的任务是将Excel表格中提供的数据或表格（无论我们称之为什么）显示在数据网格视图中。

我正在使用ADODB。这是代码：

  Dim file_name As String
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
 file_name & ";Extended Properties=Excel 12.0;"

 If cn.State = adStateOpen Then
     MsgBox "Excel File is Connected. ", , "Message"
     rs.CursorLocation = adUseClient
     rs.Open "SELECT * FROM [Sheet1$]", cn, 3, 3, 1 - adCmdText
     Set DataGrid1.DataSource = rs
     DataGrid1.Refresh
     DataGrid1.ReBind

  Else: MsgBox "Error: Excel File is not Connected. ", , "Message"
 End If
 rs.Close
 cn.Close

但是我遇到了问题！现在，Excel数据显示在数据网格控件中。但是在执行“rs.close”行之后，数据立即被删除。我正在快照。

请帮助。谢谢......

这是图片：

Answer 1

你没有关闭记录集和连接......你删除了rs.close和cn.close