如何将一个记录集复制到另一个记录集？

2003-05-16 08:54:23 327 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

非线性功率放大器对QAM传输BER性能的影响及补偿 1、线性功率放大器对传输性能的影响为表述非线性功率放大器对传输性能的影响，以Saleh模型进行观察。具体来说，在QAM调制器之后添加一个非线性模块，使调制后的波形经历AM / AM和AM / PM转换。在Saleh模型中，转换用四个参数表示，即AM / AM转换为????a和????a，AM / PM转换为????p和????p。在Saleh模型中，AM / AM和AM / PM方程以输入电压u的大小表示为：式中，FAM / AM是AM / AM转换的输出电压与输入电压的关系，而FAM 阅读详情

Public Function F(SVal As String) As Double
Dim TmpSum As Double
TmpSum = 0
MySql = "select price,item_name from items where parent='" & SVal & "'"
If sqlReset(MySql) Then
Dim TmpReset As ADODB.Recordset
'Set TmpReset = New ADODB.Recordset
Set TmpReset = myReset.Clone
While Not TmpReset.EOF
TmpSum = TmpReset!price + F(TmpReset!item_name)
Wend
Set TmpReset = Nothing
End If
F = TmpSum
End Function
在执行时老是说当前记录集不支持书签，这可能是提供程序或选定的游标限制。
哪位老哥帮帮我！

...全文

国产信创麒麟操作系统（kylin v10 x86架构）离线安装nginx步骤(亲测，超详细步骤)、修改nginx配置文件、启动、重启、关闭nginx记录(亲测有效) 国产信创麒麟操作系统（kylin v10 x86架构）离线安装nginx步骤(亲测，超详细步骤)、修改nginx配置文件、启动、重启、关闭nginx记录(亲测有效) 阅读详情

planetike

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

planetike 2003-05-16

打赏
举报

请问为什么我结不了帖子，
提示如下：

10,60,10,10,,10,
贴子回复次数大于跟给分次数

xinjiana 2003-05-16

打赏
举报

Dim cmd As Command
Dim cmd1 As Command
Dim rs As Recordset
Dim rs1 As Recordset
Dim sqlstr As String
Dim sqlstr1 As String
Dim i As Integer
Dim a As Integer

Set cmd = New Command
Set cmd1 = New Command

If de_holdsale.cnn.State = adStateClosed Then
de_holdsale.cnn.Open
End If
cmd.ActiveConnection = de_holdsale.cnn
cmd1.ActiveConnection = de_holdsale.cnn

sqlstr = "select ......"

cmd.CommandText = sqlstr
Set rs = cmd.Execute

For i = 1 To rs.RecordCount
sqlstr1 = "insert ......"
cmd1.CommandText = sqlstr1
cmd1.Execute
rs.MoveNext
Next i

MsgBox "处理完毕!", vbOKOnly

Set rs = Nothing

这样看起来比较好

xinjiana 2003-05-16

打赏
举报

错了,还没修改那

xinjiana 2003-05-16

打赏
举报

Dim cmd As Command
Dim cmd1 As Command
Dim rs As Recordset
Dim rs1 As Recordset
Dim sqlstr As String
Dim sqlstr1 As String
Dim datenow As Date
Dim i As Integer
Dim a As Integer

Set cmd = New Command
Set cmd1 = New Command

If de_holdsale.Connection1.State = adStateClosed Then
de_holdsale.Connection1.Open
End If
If de_holdsale.cnn.State = adStateClosed Then
de_holdsale.cnn.Open
End If
cmd.ActiveConnection = de_holdsale.Connection1
cmd1.ActiveConnection = de_holdsale.cnn

datenow = dtpnow.Value

sqlstr = "select fitemno,flotno,flotno2,fwhcd,flctcd,fohqty from invdtf where fohqty>0"

cmd.CommandText = sqlstr
Set rs = cmd.Execute
prgload.Max = rs.RecordCount
' Label1.Caption = "处理中..."

For i = 1 To rs.RecordCount
prgload.Value = i
' Label2.Caption = i
sqlstr1 = "insert into dayinvdtf(fitemno,flotno,flotno2,fwhcd,flctcd,fohqty,fdate) " _
& " values('" & rs!fitemno & "','" & rs!flotno & "','" & rs!flotno2 & "'," _
& " '" & rs!fwhcd & "','" & rs!flctcd & "','" & rs!fohqty & "','" & datenow & "')"
cmd1.CommandText = sqlstr1
cmd1.Execute
rs.MoveNext
Next i

MsgBox "处理完毕!", vbOKOnly
' a = "共添加了" + rs.RecordCount + "条记录"
' Label3.Caption = a

Set rs = Nothing

planetike 2003-05-16

打赏
举报

谢谢，各位问题解决了。
myreset()与sqlreset()是我自己定义的两个函数，可以直接带入SQL语句返回记录集，
很方便，
还有几个函数有点长不贴出来了，如果想看看请妹：planetike@163.com。

stonbing1980 2003-05-16

打赏
举报

如果字段数相同，每个字段的属性也相同的话，可以将其追加到另一个记录集中，
MRC1.movelast
mrc2.movefirst
do while not mrc2.eof
mrc1.addnew

mrc1.fields("字段名").value = mrc2.fields("字段名").value
.
.
.
mrc1.update
mrc2.movenext
mrc1.movenext
loop

lihonggen0 2003-05-16

打赏
举报

myReset 这个记录集你是怎么写的?

lihonggen0 2003-05-16

打赏
举报

Dim TmpReset As ADODB.Recordset
Set TmpReset = myReset.Clone
这样的复制记录集的语句并没有任何错误

-----------------------
sqlReset(MySql) 请检查你这个函数，可能是你记录集打开的问题

Daniel0318 2003-05-16

打赏
举报

sqlReset()和myReset对象不明确，是什么东东

检查函数sqlReset内打开数据集时的参数

你的函数箱实现什么功能？我看好像算法可以简化

MoQi_123 2003-05-16

打赏
举报

Set TmpReset = myReset.Clone ''这句有错误,修改为
Set TmpReset = myReset

qingming81 2003-05-16

打赏
举报

'Set TmpReset = New ADODB.Recordset
前面为什么要加一个注释？

如何将一个记录集复制到另一个记录集？

相关推荐