Greetings codingforums member,
I've a problems with excluding some row on the sql server 2000 with VB 6.0 (classic)
the tables MASTLOKASI in sql server:
KdLokasi | NamaLokasi | AlamatLokasi | Pimpinan | Status
--------------------------------------------------------
Resign | Resign | <null> | <null> | <null>
A1 | Bukit | <null> | <null> | <null>
And here is the VB 6.0 script:
Code:
Sub LoadLokasi()
Set rsLOKASI = New ADODB.Recordset
rsLOKASI.CursorLocation = adUseClient
rsLOKASI.LockType = adLockOptimistic
rsLOKASI.CursorType = adOpenDynamic
rsLOKASI.Open "SELECT * FROM MASTLOKASI ORDER BY KdLokasi WHERE ", conn, , , adCmdText
If Not rsLOKASI.EOF Then
CmbLokasi.Clear
rsLOKASI.MoveFirst
Do Until rsLOKASI.EOF
CmbLokasi.AddItem rsLOKASI!KdLokasi
rsLOKASI.MoveNext
Loop
CmbLokasi.ListIndex = 0
CmbLokasi = ""
Else
Exit Sub
End If
End Sub
I want to exclude the Resign rows