ConnectDB("movie.dat.MDB")
Dim Crs As New ADODB.Recordset
Cexec = "select * from Seriallist"
Crs.Open Cexec, Conn, 1, 3
While Not Crs.EOFDim Crsa As New ADODB.Recordset
Cexeca = "select * from where 名称='" & Crs("名称") & "'"
Crsa.Open Cexeca, Conn, 1, 2 '这里提示会对象已关闭
If Not Crsb.EOF = False Then
Crsa.AddNew
Crsa("名称") = Crs("名称")
Crsa("链接地址") = Crs("链接地址")
Crsa.Update
end if
Crs.MoveNext
Wend
Dim Crs As New ADODB.Recordset
Cexec = "select * from Seriallist"
Crs.Open Cexec, Conn, 1, 3
While Not Crs.EOFDim Crsa As New ADODB.Recordset
Cexeca = "select * from where 名称='" & Crs("名称") & "'"
Crsa.Open Cexeca, Conn, 1, 2 '这里提示会对象已关闭
If Not Crsb.EOF = False Then
Crsa.AddNew
Crsa("名称") = Crs("名称")
Crsa("链接地址") = Crs("链接地址")
Crsa.Update
end if
Crs.MoveNext
Wend
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货