一个记录集的SQL语句，在线等，马上给分

Question

你最好用
insert into table vaules 的方法
这样的话出错了很方便检查

Answer 1

Dim rsTemp As New RecordsetSet rsTemp = oDB.Execute(szSql)
rsTemp.AddNew
    rsTemp.Fields("bus_id") = "7001-7033"
    rsTemp.Fields("bus_start_time") = "2004-12-30 12:00:00.000"
    rsTemp.Fields("route_id") = "jys1"
    rsTemp.Fields("route_name") = "缙云上海线      "
rsTemp.Update

Answer 2

到rsTemp.AddNew 就出错了，不支持更新

Answer 3

szSql写的是一个Select查询语句

Answer 4

我就是想实现用
select 语句查出二个记录集，拼装成一个记录

Answer 5

可能是你的那个Select查询语句不支持更新

Answer 6

szSql="select * from  bus_info"

Answer 7

szSql中的字段是否和AddNew的一致？

Answer 8

--例如
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
rs.addnew
rs("cn_title")=....
rs("cn_author")=....
rs("cn_content")=.....
rs.updaters.close
Set rs = Nothingconn.close
set conn=Nothing

Answer 9

是不是定义的rst不支持更新啊？指定可以更新的类型

Answer 10

rsTemp.AddNew
    rsTemp.Fields("bus_id") = "7001-7033"
    rsTemp.Fields("bus_start_time") = "2004-12-30 12:00:00.000"
    rsTemp.Fields("route_id") = "jys1"
    rsTemp.Fields("route_name") = "缙云上海线      "
rstemp.update

Answer 11

--例如
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
rs.addnew
rs("cn_title")=....
rs("cn_author")=....
rs("cn_content")=.....
rs.updaters.close
Set rs = Nothing
conn.close
set conn=Nothing

Answer 12

上面錯了，測試後的Dim rsTemp As New Recordset
rsTemp.open szSql,oDB,2,2
rsTemp.AddNew
    rsTemp.Fields("bus_id") = "7001-7033"
    rsTemp.Fields("bus_start_time") = "2004-12-30 12:00:00.000"
    rsTemp.Fields("route_id") = "jys1"
    rsTemp.Fields("route_name") = "缙云上海线      "
rsTemp.Update

Answer 13

Dim rsTemp As New Recordset
rsTemp.open szSql,oDB,1,3
rsTemp.AddNew
    rsTemp.Fields("bus_id") = "7001-7033"
    rsTemp.Fields("bus_start_time") = "2004-12-30 12:00:00.000"
    rsTemp.Fields("route_id") = "jys1"
    rsTemp.Fields("route_name") = "缙云上海线      "
rsTemp.Update

Answer 14

--以下摘自MSDN
Public Sub EditModeX()   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String   ' 使用雇员表中的数据打开记录集。
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" & _
   "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
      
   Set rstEmployees = New ADODB.Recordset
   Set rstEmployees.ActiveConnection = cnn1
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockBatchOptimistic
   rstEmployees.Open "employee", , , , adCmdTable   ' 显示不同编辑状态下的 EditMode 属性。
   rstEmployees.AddNew
   rstEmployees!emp_id = "T-T55555M"
   rstEmployees!fname = "temp_fname"
   rstEmployees!lname = "temp_lname"
   EditModeOutput "After AddNew:", rstEmployees.EditMode
   rstEmployees.UpdateBatch
   EditModeOutput "After UpdateBatch:", rstEmployees.EditMode
   rstEmployees!fname = "test"
   EditModeOutput "After Edit:", rstEmployees.EditMode
   rstEmployees.Close
   
   ' 删除新记录，因为这只是演示。
   cnn1.Execute "DELETE FROM employee WHERE emp_id = 'T-T55555M'"End Sub