random in SQL server database

below script to random all row number:
select * from namatabel order by newid()


Query generates a random number between 1 and 10.

UPDATE @TT
SET DayAlloted = ABS(CHECKSUM(NEWID())) % 100 + 24

generate top 10 random field

SELECT TOP 10 RAND() AS [RandomNumber], [CustomerID], [CompanyName], [ContactName]
FROM [dbo].[Customers]

move data listview from listview1 to listview2 or opposite

berikut contoh membuat select data dari 2 buah list view.
data di pilih satu satu atau all data dan di pindah kekanan / kiri










----------------------
Private Sub cmdkanan_Click()
Dim k, t
If ListView1.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
t = ListView1.SelectedItem.Text
k = ListView1.SelectedItem.Index
ListView1.ListItems.Remove (k)
ListView1.Refresh

Set List2 = ListView2.ListItems.Add(, , t)

Cmdkiri.Enabled = True
Cmdkirisemua.Enabled = True
If ListView1.ListItems.Count = 0 Then
cmdkanan.Enabled = False
Cmdkanansemua.Enabled = False
End If
End If
Call cmdlanjut_Click
End Sub

---------------------------------------
Private Sub Cmdkanansemua_Click()
Dim i, t
If ListView1.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
For i = 1 To ListView1.ListItems.Count
t = ListView1.ListItems.Item(i)
Set List2 = ListView2.ListItems.Add(, , t)
Next i
ListView1.ListItems.Clear
cmdkanan.Enabled = False
Cmdkanansemua.Enabled = False
Cmdkiri.Enabled = True
Cmdkirisemua.Enabled = True
End If
Call cmdlanjut_Click
End Sub

------------------------------------

Private Sub Cmdkiri_Click()
Dim k, t
If ListView2.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
t = ListView2.SelectedItem.Text
k = ListView2.SelectedItem.Index
ListView2.ListItems.Remove (k)
ListView2.Refresh

Set List1 = ListView1.ListItems.Add(, , t)
cmdkanan.Enabled = True
Cmdkanansemua.Enabled = True
If ListView2.ListItems.Count = 0 Then
Cmdkiri.Enabled = False
Cmdkirisemua.Enabled = False
End If
End If
Call cmdlanjut_Click
End Sub

---------------------------------

Private Sub Cmdkirisemua_Click()
Dim i, t
If ListView2.ListItems.Count = 0 Then
MsgBox "Daftar dosen sudah habis !", vbCritical + vbOKOnly, "PERINGATAN"
Else
For i = 1 To ListView2.ListItems.Count
t = ListView2.ListItems.Item(i)
Set List1 = ListView1.ListItems.Add(, , t)
Next i
ListView2.ListItems.Clear
cmdkanan.Enabled = True
Cmdkanansemua.Enabled = True
Cmdkiri.Enabled = False
Cmdkirisemua.Enabled = False
End If
Call cmdlanjut_Click
End Sub

penggunaan KeyAscii di VB6

berikut contoh penggunaan enter di login menu
Private Sub passwd_KeyPress(KeyAscii As Integer)
' detect when user presses "Enter" key and if so validate password
If KeyAscii = 13 Then
' this is the call on the routine that does the password checking
Call passwd_Validate(False)
End If
End Sub

LISTVIEW di VB6

bila tidak tampil di component VB6, maka harus tambahkan control "Microsoft Windows Common Control 6.0 (SP2)"

perbedaaan listview dengan datagrid al sbb (diambil dari berbagai sumber):

listview itu component yg ada dlm package Microsoft Windows Common Control (v5/v6). kalo DataGrid itu komponen ndiri (klo nda salah MS DataGrid Control). bedanya jauh...

listview : cuman bisa nge-view (namanya juga listVIEW)
datagrid : bisa berhubungan langsung dengan datasource, jadi memungkinkan untuk manipulasi data (SELECT/INSERT/UPDATE/DELETE) secara langsung via datagrid

listview :cukup indah (apalagi MSCommCtrl bawaan vb2005 : bisa modeview tiles/thumbnail kya di explorer). oia, windows explorer itu jg makae listview control, cuman dia bukan turunan class MSCommCtrl, tapi syslistview)
datagrid: tampilan biasa... kadang lebih terkesan kya halaman view table-nya MS Access. tapi cukup powerful kalo nda pengen coding banyak-banyak

listview : bisa nambah icon, bisa dikasih background
datagrid : ndak bisa

listview : agak lambat kalo data udah sampai ribuan. refresh listview bisa bikin flicker.
datagrid : nda masalah sampai data ribuan. kalo jutaan, ogut belon pernah benchmark.

listview : kerumitan pertama ada pada saat design-time yang terlihat di form cuman kotak putih mirip picturebox, nda ada visualisasi penampakan tabel yang mau dibikin. nyetting-nyetting headernya agak rumit (tapi di VB 2005, untuk kasus ini sudah dipermudah...)
datagrid : pas design-time, cukup referensikan datasource ke ADODC, trus di datagridnya tinggal klik-kanan dan retreive fields... dan ... jadilah!

listview : data yang ampil di slistview bisa di olah tanpa memakai sql script.
datagrid : karakteristiknya datagrid ini adalah recordset yang tersambung terus... jadi kalo datasourcenya di-disconnect-in, datagridnya bakal kosong lagi.

Listview menampilkan data dengan melakukan looping di tiap gridnya,
DataGrid tidak. Listview tidak dapat diedit di tiap gridnya, cuman bisa menampilkan data doank, sedangkan data grid bisa.....

keduanya dipakai sesuai keperluan.Komponen sejenis adalah truedbgrid product dari ComponentOne (berbayar).