run time error 380

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

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

Code:

---

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

---

Try

vb Code:

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

sorry. after try your code that msg again show.

What is the value of rs!id

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

Code:

---

Msgbox rs!id

---

If the value is correct then try

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

Try Add ColumnHeaders..

Code:

---

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

---

Quote:

---

Originally Posted by koolsid

What is the value of rs!id

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

Code:

---

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.

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

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.

Quote:

---

Originally Posted by 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.

---

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

Code:

---

  lvwItem.SubItems(3) = rs!unit

---

now I what need to do.

What is the value of rs!unit?

Quote:

---

Originally Posted by abu taher

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

Code:

---

  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:

Code:

---

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

---