asp.net with vb Coding

Question

0.00/5 (No votes)

See more:

i give the coding in class

VB

Public sub fill_combo(byval ddl as dropdownlist,byval field as string,byval condition s string)
dim dr as sqldatareader
dim a() as string
ddl.items.clear()
dim l as new listitem
l.text="select "
l.value=0
ddl.items.add(l)
dr=viewrecord_dr(field,tbl,condition)
if field.contains(",") then
a=field.split(",")
while dr.read
dim li as new listitem
li.value=dr.item(0)
li.text=dr.item(1)
ddl.items.add(li)
end while
else
while dr.read
ddl.items.add(dr.item(0))
end while
end if
dr.close()
end sub

I give this coding in class

VB

Public function viewrecord_dr(byval field as string,byval condition s string)as sqldatareader
dim query as string 
query="select"
query=query+"from "+tbl
if condition.trim.length>0 
else
query=query
end if
cmd=new sqlcommand (query,con)
dr=cmd.excutereader()
viewrecord_dr=dr
end function

i give this coding in pageload

VB

c.connect()
call c.fill_combo(ddlservicenumber,"servicenumber","tblregistration","")
c.disconnect()

My error is 'invalid column name servicenumberfrom"
please clear this error

Posted 13-Jul-12 22:00pm

suganya sugan

Updated 13-Jul-12 22:13pm

Sandeep Mewara

v2

Add a Solution

Comments

Kenneth Haugland 14-Jul-12 4:07am

I dont know exactly but this sounds fishy to me:
dim query as string
query="select"
query=query+"from "+tbl
use & in vb and not +

Sandeep Mewara 14-Jul-12 4:14am

Did you DEBUG?
Where have you defined: 'servicenumberfrom'?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2012-07-13T22:13:00

Spaces my friend, spaces.

As in you don't have any.
You need a space between you need a space between "select" and "servicenumber", you need a space between "servicenumber" and "from".

Add spaces explicitly, and by preference if you are going to assemble strings like that, use a StringBuilder as it is a lot more efficient!

Kenneth Haugland · Answer 2 · 2012-07-13T22:50:00

The last function should look something like this in any case:

VB

Public sub viewrecord_dr(byval field as string,byval condition s string)
dim query as string
query = "select from " & tbl
if tbl = nothing then
exit sub
end if

cmd=new sqlcommand (query,con)
'Where is dr defined?
dr=cmd.excutereader()
'And why not: viewrecord_dr = cmd.excutereader()
viewrecord_dr=dr
end function

Your code looks like it needs a lot of work though....

asp.net with vb Coding

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0