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

Question

大家好我是新来的！

所以，我正在使用 VB 6.0 开发一个简单的软件（是的，我知道很老了）。我所要做的就是将 Excel sheet 女士操纵到 VB 应用程序中。实际任务是将 Excel sheet 中提供的数据或表格（无论我们怎么称呼它）显示到数据网格视图中。

我正在使用 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

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

Excel Data to Data Grid View in vb6

excel

vb6