run time error 380

[abu taher]

"Invalid property value"
for show data in list view i write code

Private Sub Form_Load()
Dim i As Integer
Call path
SQL = "select * from material"
Set rs = New ADODB.Recordset


 i = 1
 rs.Open SQL, Adb, adOpenDynamic, adLockOptimistic
        Do While Not rs.EOF
            LVEmp.ListItems.Add i, , i
            LVEmp.ListItems(i).SubItems(1) = rs!id
            LVEmp.ListItems(i).SubItems(2) = rs!Name
            LVEmp.ListItems(i).SubItems(3) = rs!unit
            i = i + 1
            rs.MoveNext
        Loop
    rs.Close
End Sub

when I run it then show this msg. and highlight this line

LVEmp.ListItems(i).SubItems(1) = rs!id

[Hack]

Try

Dim i As Integer
Dim lvwItem As Listitem
Call Path
SQL = "select * from material"
Set rs = New ADODB.Recordset
 
 
 i = 1
 rs.Open SQL, Adb, adOpenDynamic, adLockOptimistic
        Do While Not rs.EOF
            Set lvwItem = LVEmp.ListItems.Add(i, , i)
            lvwItem.SubItems(1) = rs!id
            lvwItem.SubItems(2) = rs!Name
            lvwItem.SubItems(3) = rs!unit
            i = i + 1
            rs.MoveNext
        Loop
    rs.Close
End Sub

[abu taher]

sorry. after try your code that msg again show.

[Siddharth Rout]

What is the value of rs!id

Check it manually by inserting this one line before...

Msgbox rs!id

If the value is correct then try

Trim(rs!id) before setting it as a value....

[jp26198926]

Try Add ColumnHeaders..

Private Sub Form_Load()
Dim i As Integer
Call path
SQL = "select * from material"
Set rs = New ADODB.Recordset

LVEmp.View = lvwReport

LVEmp.ColumnHeaders.Add , , "Count"
LVEmp.ColumnHeaders.Add , , "ID"
LVEmp.ColumnHeaders.Add , , "Name"
LVEmp.ColumnHeaders.Add , , "Unit"

 i = 1
 rs.Open SQL, Adb, adOpenDynamic, adLockOptimistic
        Do While Not rs.EOF
            LVEmp.ListItems.Add i, , i
            LVEmp.ListItems(i).SubItems(1) = rs!id
            LVEmp.ListItems(i).SubItems(2) = rs!Name
            LVEmp.ListItems(i).SubItems(3) = rs!unit
            i = i + 1
            rs.MoveNext
        Loop
    rs.Close
End Sub

[abu taher]

What is the value of rs!id

Check it manually by inserting this one line before...

Msgbox rs!id

If the value is correct then try

Trim(rs!id) before setting it as a value....

it is manually insert. when I use your code msg show: 1. and then show that msg. if i use trim(rs!id) not solve.

[Siddharth Rout]

Abu, Can I see you project? If you want, you can also mail it to me...

[anhn]

Make sure your listview has at least 4 columns at design time, otherwise you will hit error 380 when you use ....SubItems(x) where x = 1, 2 or 3.

[abu taher]

Make sure your listview has at least 4 columns at design time, otherwise you will hit error 380 when you use ....SubItems(x) where x = 1, 2 or 3.

In design time I use 4 colums header. now show a msg: "invalid use of null" and then select this line

  lvwItem.SubItems(3) = rs!unit

now I what need to do.

[Siddharth Rout]

What is the value of rs!unit?

[anhn]

In design time I use 4 colums header. now show a msg: "invalid use of null" and then select this line

  lvwItem.SubItems(3) = rs!unit

now I what need to do.

A subitem cannot have Null value. If rs!unit is Null then you have convert it to "" (empty string), perhaps like this:

  lvwItem.SubItems(3) = "" & rs!unit