在ADODb连接执行插入/更新/删除语句后,需要刷新连接才能获取最新的结果。
以下是一个示例代码,演示了如何在VBScript中使用ADODb连接执行插入语句后刷新连接:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
cmd.ActiveConnection = cn
'执行插入语句
cmd.CommandText = "INSERT INTO [Sheet1$] (Name, Age, Gender) VALUES ('John', 25, 'Male')"
cmd.Execute
'刷新连接
cn.Close
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
cmd.ActiveConnection = cn
'执行查询语句,获取最新的结果
cmd.CommandText = "SELECT * FROM [Sheet1$]"
Dim rs As ADODB.Recordset
Set rs = cmd.Execute
'处理查询结果
While Not rs.EOF
'do something with rs
rs.MoveNext
Wend
rs.Close
cn.Close
在上面的示例中,我们首先创建一个ADODb连接,并使用INSERT语句向Excel工作表中插入一条新记录。然后我们关闭连接并重新打开,接着使用SELECT语句执行查询,获取最新的结果集。
注意,在实际应用中,连接字符串和SQL语句会根据具体情况而有所不同。但是,关键是要确保在执行插入/更新/删除语句之后刷新连接,以便获取最新的操作结果。
下一篇:ADODB流将二进制转换为字符串