Re: invalid use of null
From: Ayaz Ahmed (ayaz_at_csquareonline.com)
Date: 03/19/04
- Next message: Ian Ashworth: "Windows Authentication?"
- Previous message: Ayaz Ahmed: "Re: I can't install my application..."
- In reply to: Neil Fallon: "invalid use of null"
- Next in thread: Neil Fallon: "Re: invalid use of null"
- Reply: Neil Fallon: "Re: invalid use of null"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 19 Mar 2004 02:02:49 -0800
Hello,
Dim objrs As ADODB.Recordset '
Set objrs = New ADODB.Recordset
sql = "Select * from Assets_Info" 'Opent the USERS table
objrs.Open sql, objconn
'load the first combo box with the entries in the databases
If objrs.EOF = True Then 'if the Accounts table is empty
MsgBox "The Assets Table is empty. Add some Assets' records", ,
"Alert"
EOFFlag = 1 'the EOF is REached
GoTo erra 'the end of this function
End If
EOFFlag = 0 'reset the EOF flag/ The table is not empty
While objrs.EOF <> True 'go until the EOF is reached
if is null(objrs.Fields("Asset_Name")) = false then
cmbAPAssetName.AddItem objrs.Fields("Asset_Name") 'fill the combo
cmbasstid.AddItem objrs.Fields("Assets_Id")
Cmbastid.AddItem objrs.Fields("Assets_Id")
objrs.MoveNext 'move and fill the combos with the next
record
Wend
end if
Thanks,
Warm Regards,
Ayaz Ahmed
Software Engineer & Web Developer
Creative Chaos (Pvt.) Ltd.
"Managing Your Digital Risk"
http://www.csquareonline.com
Karachi, Pakistan
Mobile +92 300 2280950
Office +92 21 455 2414
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
- Next message: Ian Ashworth: "Windows Authentication?"
- Previous message: Ayaz Ahmed: "Re: I can't install my application..."
- In reply to: Neil Fallon: "invalid use of null"
- Next in thread: Neil Fallon: "Re: invalid use of null"
- Reply: Neil Fallon: "Re: invalid use of null"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
