name表中设置一个ID字段,自动增加型。dim cn as adodb.connection, rs as adodb.recordset dim lngID as longset cn = new adodb.connection cn.open strConnectionString rs.cursortype = adOpenDynamic rs.cursorlocation = adUseClient rs.open "select * form name",cn rs.movelastrandomize lngID = int(rnd*rs!recordcount) +1 cn.execute "inset into select_sex select * from name where 性别= '女' and id=" & lngID lngID = int(rnd*rs!recordcount) +1 cn.execute "inset into select_sex select * from name where 性别= '女' and id=" & lngID
dim lngID as longset cn = new adodb.connection
cn.open strConnectionString
rs.cursortype = adOpenDynamic
rs.cursorlocation = adUseClient
rs.open "select * form name",cn
rs.movelastrandomize
lngID = int(rnd*rs!recordcount) +1
cn.execute "inset into select_sex select * from name where 性别= '女' and id=" & lngID
lngID = int(rnd*rs!recordcount) +1
cn.execute "inset into select_sex select * from name where 性别= '女' and id=" & lngID