Excel数据到数据网格视图在VB6

大家好，我是新的！

所以，我正在用VB 6.0开发一个简单的软件（是的，我知道很老）。 我所要做的就是将Ms 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

你不closureslogging集和连接…你删除rs.close和cn.close