SQL Random ID
Function SQLRandomIDs(proc, params, fname, count)
Dim i, rs, records, reccount, normalized
On Error Resume Next
PushError
SQLRandomIDs = Null
Set rs = iOpen(proc, params)
If CheckPopError Then
Exit Function
End If
If rs.EOF Then
rs.Close
Set rs = Nothing
Exit Function
End If
records = rs.GetRows(adGetRowsRest, , fname)
If CheckPopError Then
Exit Function
End If
rs.Close
Set rs = Nothing
Selengkap nya Dibawah ini :
Visit : http://www.text-upload.com/read,t11187
