一个关于存储过程的有关问题
一个关于存储过程的问题
Dim objrs As New ADODB.Recordset
'添加字段名称
For lCount = 0 To adoPrimaryRS.Fields.Count - 1
objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
Next
'打开记录集
objrs.Open
'将指定记录数循环添加到objrs中
For lCount = 1 To nPageSize
If adoPrimaryRS.EOF Or adoPrimaryRS.BOF Then
Exit For
Else
objrs.AddNew
objrs!姓名 = adoPrimaryRS!姓名
objrs!密码 = adoPrimaryRS!密码
adoPrimaryRS.MoveNext
End If
Next
当数据库中有空纪录的时候,就会在
“objrs.AddNew
objrs!姓名 = adoPrimaryRS!姓名
objrs!密码 = adoPrimaryRS!密码”
adoPrimaryRS.MoveNext
报错,有没有办法让空纪录也可以传到新的记录集当中呢?麻烦各位多多帮忙了。
------解决方案--------------------
后面加上: & “”
adoPrimaryRS!姓名 & " "
Dim objrs As New ADODB.Recordset
'添加字段名称
For lCount = 0 To adoPrimaryRS.Fields.Count - 1
objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
Next
'打开记录集
objrs.Open
'将指定记录数循环添加到objrs中
For lCount = 1 To nPageSize
If adoPrimaryRS.EOF Or adoPrimaryRS.BOF Then
Exit For
Else
objrs.AddNew
objrs!姓名 = adoPrimaryRS!姓名
objrs!密码 = adoPrimaryRS!密码
adoPrimaryRS.MoveNext
End If
Next
当数据库中有空纪录的时候,就会在
“objrs.AddNew
objrs!姓名 = adoPrimaryRS!姓名
objrs!密码 = adoPrimaryRS!密码”
adoPrimaryRS.MoveNext
报错,有没有办法让空纪录也可以传到新的记录集当中呢?麻烦各位多多帮忙了。
------解决方案--------------------
后面加上: & “”
adoPrimaryRS!姓名 & " "