The data in the list view in the SQL server table in Visual Basic 6.0, I’ve tteotge load can be?

Uncertainty by Mavs: In Visual Basic 6.0, how can I load data from SQL Server table into ListView?

I tried it with the code below but it still doesn’t work..

Maybe its in the properties of the listview? but i already changed the view type into 3-IvwReport and also added the column headers from 1 – 49.

I also checked FullRowSelect & GridLines in properties.

What more will I do?.. thanks! =)

‘=====================CODES==============

Private Sub Form_Activate()

frmManageEvalRec.ListView.ListItems.Clear

rs.Open “Select * from tblEvaluate”, con, adOpenDynamic, adLockOptimistic

Do While Not rs.EOF

With ListView

.ListItems.ADD , , (rs.Fields(“Date”))

.ListItems(.ListItems.Count).SubItems(1) = rs.Fields(“EmployeeID”)

.ListItems(.ListItems.Count).SubItems(2) = rs.Fields(“Section”).Value

.ListItems(.ListItems.Count).SubItems(3) = rs.Fields(“Subject”).Value

.ListItems(.ListItems.Count).SubItems(4) = rs.Fields(“Branch”).Value

.ListItems(.ListItems.Count).SubItems(5) = rs.Fields(“EvalPeriod”).Value

.ListItems(.ListItems.Count).SubItems(6) = rs.Fields(“SchoolYear”).Value

.ListItems(.ListItems.Count).SubItems(7) = rs.Fields(“I1″).Value

.ListItems(.ListItems.Count).SubItems(8) = rs.Fields(“I2″).Value

.ListItems(.ListItems.Count).SubItems(9) = rs.Fields(“I3″).Value

.ListItems(.ListItems.Count).SubItems(10) = rs.Fields(“I4″).Value

.ListItems(.ListItems.Count).SubItems(11) = rs.Fields(“I5″).Value

.ListItems(.ListItems.Count).SubItems(12) = rs.Fields(“I6″).Value

.ListItems(.ListItems.Count).SubItems(13) = rs.Fields(“I7″).Value

.ListItems(.ListItems.Count).SubItems(14) = rs.Fields(“I8″).Value

.ListItems(.ListItems.Count).SubItems(15) = rs.Fields(“I9″).Value

.ListItems(.ListItems.Count).SubItems(16) = rs.Fields(“II1″).Value

.ListItems(.ListItems.Count).SubItems(17) = rs.Fields(“II2″).Value

.ListItems(.ListItems.Count).SubItems(18) = rs.Fields(“II3″).Value

.ListItems(.ListItems.Count).SubItems(19) = rs.Fields(“II4″).Value

.ListItems(.ListItems.Count).SubItems(20) = rs.Fields(“II5″).Value

.ListItems(.ListItems.Count).SubItems(21) = rs.Fields(“II6″).Value

.ListItems(.ListItems.Count).SubItems(22) = rs.Fields(“III1″).Value

.ListItems(.ListItems.Count).SubItems(23) = rs.Fields(“III2″).Value

.ListItems(.ListItems.Count).SubItems(24) = rs.Fields(“III3″).Value

.ListItems(.ListItems.Count).SubItems(25) = rs.Fields(“III4″).Value

.ListItems(.ListItems.Count).SubItems(26) = rs.Fields(“III5″).Value

.ListItems(.ListItems.Count).SubItems(27) = rs.Fields(“III6″).Value

.ListItems(.ListItems.Count).SubItems(28) = rs.Fields(“III7″).Value

.ListItems(.ListItems.Count).SubItems(29) = rs.Fields(“III8″).Value

.ListItems(.ListItems.Count).SubItems(30) = rs.Fields(“III9″).Value

.ListItems(.ListItems.Count).SubItems(31) = rs.Fields(“III10″).Value

.ListItems(.ListItems.Count).SubItems(32) = rs.Fields(“III11″).Value

.ListItems(.ListItems.Count).SubItems(33) = rs.Fields(“III12″).Value

.ListItems(.ListItems.Count).SubItems(34) = rs.Fields(“IV1″).Value

.ListItems(.ListItems.Count).SubItems(35) = rs.Fields(“IV2″).Value

.ListItems(.ListItems.Count).SubItems(36) = rs.Fields(“IV3″).Value

.ListItems(.ListItems.Count).SubItems(37) = rs.Fields(“IV4″).Value

.ListItems(.ListItems.Count).SubItems(38) = rs.Fields(“IV5″).Value

.ListItems(.ListItems.Count).SubItems(39) = rs.Fields(“IV6″).Value

.ListItems(.ListItems.Count).SubItems(40) = rs.Fields(“IV7″).Value

.ListItems(.ListItems.Count).SubItems(41) = rs.Fields(“IV8″).Value

.ListItems(.ListItems.Count).SubItems(42) = rs.Fields(“IV9″).Value

.ListItems(.ListItems.Count).SubItems(43) = rs.Fields(“IV10″).Value

.ListItems(.ListItems.Count).SubItems(44) = rs.Fields(“IV11″).Value

.ListItems(.ListItems.Count).SubItems(45) = rs.Fields(“IV12″).Value

.ListItems(.ListItems.Count).SubItems(46) = rs.Fields(“IV13″).Value

.ListItems(.ListItems.Count).SubItems(47) = rs.Fields(“IV14″).Value

.ListItems(.ListItems.Count).SubItems(48) = rs.Fields(“Comments”).Value

End With

rs.MoveNext

Loop

rs.Close

End Sub

That is a look into In Visual Basic 6.0, how can I load data from SQL Server table into ListView? that you could be need to have to clear up complications ourselves. Simply it will help to in several ways; may create everything better. Who want a look into In Visual Basic 6.0, how can I load data from SQL Server table into ListView? might possibly be a fix in coming years.

Most practical answer:

Answer by Arpita

try adding lines before Do while

If Not (rs.EOF And rs.BOF) Then

rs.MoveFirst

Acknowledge good?

Add your own special answer within a comments!

The World’s Legendary Overclocker Nick Shih overclocking an Ivy Bridge Core i7-3770K to a crazy 7.136GHz with ASRock Z77 OC Formula which was designed by him…

The data in the list view in the SQL server table in Visual Basic 6.0, I’ve tteotge load can be?