Problem in Coding Pls help

Question

1.00/5 (2 votes)

See more:

Function Listload(Gsub_LoadDatasource As String, lvw As ListView)
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
'Gsub_LoadDatasource
cnn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data Source =D:\Lifting RAR\Liftingreports.mdb"
cnn.Open
rs.Open ("Select * from tbllogin"), cnn, 2, 3
lvw.ListItems.Clear
While Not rs.EOF
  With lvw.ListItems.Add(, , rs(0))
        For rx = 1 To 3
             .SubItems(rx) = rs(rx)
        Next
  End With
     rs.MoveNext
  Wend
End Function

Posted 23-Oct-10 3:13am

NKEA

Updated 23-Oct-10 3:18am

Rod Kemp

v2

Add a Solution

Comments

Rod Kemp 23-Oct-10 9:19am

What exactly is the problem. List any error messages you may be receiving.

Keith Barrow 23-Oct-10 9:37am

There is no question here, what is the problem? You just state you have a problem then whizz up some code. Please tell us the error message at least.

thatraja 23-Oct-10 10:17am

There is no question man

Tarun.K.S 23-Oct-10 13:05pm

now what?

Henry Minute 23-Oct-10 22:44pm

Your code (Recordset) looks like it might be VB 6.0, please edit your Tag to make it either VB 6.0 or VB.NET

1 solution

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)

DaveAuld · Answer 1 · 2010-10-25T07:00:00

Apart from having no idea what your problem is, because you haven't asked a question, or provided an error messages or symptoms;

1) Depend what the caller is expecting, you have used a Function statement and returning nothing at all.

2) rs.Open ("Select * from tbllogin"), cnn, 2, 3 is the closing parenthesis in the correct place? would have thought rs.Open ("Select * from tbllogin", cnn, 2, 3) would have been more appropriate, or remove them altogether.

3) Can't remember the statements for the listview add, but don't remember optional members at the front, could be wrong though....been a while...

best I can come up with until you give us all more of a clue..........:~