注册 登录
编程论坛 VB6论坛

vbscript通过ADO访问SQLserver

a438569816 发布于 2016-04-23 15:58, 1713 次点击
Set obj_record_set = CreateObject("ADODB.RECORDSET")   
                MsgBox "33"        
str_sql="INSERT INTO [dbo].[WorkParam] ([ProductID], [WorkStationID], [StartTime], [EndTime], [TimeCount], [CountInOnce], [IsQualified]) VALUES ('"&code_ID1&"','"&station_ID&"','"&date_time&"','"&date_time&"','"&work_time&"','"&Count_InOnce.Value&"','"&work_state1&"'),('"&code_ID2&"','"&station_ID&"','"&date_time&"','"&date_time&"','"&work_time&"','"&Count_InOnce.Value&"','"&work_state2&"') select @@IDENTITY AS New"
                obj_record_set.open str_sql,obj_connection,1,1   
             Rs=obj_record_set("New")      

这段代码Rs=obj_record_set("New")      执行不过去是什么原因呢 请大神指教
2 回复
#2
风吹过b2016-04-23 17:21
sql 命令没看懂。
弱弱的问句,你的查询动词是 INSERT ,执行查询后是没有结果可供返回的,你的 obj_record_set 后面还要怎么操作。
我记得除下 select 查询可以打开得到 record 外,其他查询都是直接使用连接来直接执行。
#3
a4385698162016-04-25 18:44
回复 楼主 a438569816
select @@IDENTITY AS New最后有一条这个啊
1