Can't Load My 3 Tables In My Listview. . .Whats Wrong In My Coding. . .1St Table Called Customert Loads Fine. . . The 2Nd Table Named Imaget Loads Only 2 Rows But I Have 5 Datas In My Ms Access...

See more:

Windows

Win7

Sub loadlistView()
LV1.FullRowSelect = True
LV1.MultiSelect = False
LV1.View = View.Details

LV1.Columns.Clear()
LV1.Items.Clear()

LV1.Columns.Add("ID", 30, HorizontalAlignment.Left)
LV1.Columns.Add("Contact", 100, HorizontalAlignment.Left)
LV1.Columns.Add("First Name", 150, HorizontalAlignment.Left)
LV1.Columns.Add("Last Name", 150, HorizontalAlignment.Left)
LV1.Columns.Add("Address", 200, HorizontalAlignment.Left)

Dim SqlQuery As String = "SELECT * From CustomerT"
Dim SqlCommand As New OleDbCommand
Dim SqlAdpter As New OleDbDataAdapter
Dim TABLE As New DataTable

With SqlCommand
.CommandText = SqlQuery
.Connection = conn
End With


With SqlAdpter
.SelectCommand = SqlCommand
.Fill(TABLE)
End With

For i = 0 To TABLE.Rows.Count - 1
With LV1
.Items.Add(TABLE.Rows(i)("CustomerID"))
With .Items(.Items.Count - 1).SubItems
.Add(TABLE.Rows(i)("Contact"))
.Add(TABLE.Rows(i)("FirstName"))
.Add(TABLE.Rows(i)("LastName"))
.Add(TABLE.Rows(i)("Address"))
End With
End With


Next
LV2.FullRowSelect = True
LV2.MultiSelect = False
LV2.View = View.Details

LV2.Columns.Clear()
LV2.Items.Clear()

LV2.Columns.Add("ID", 30, HorizontalAlignment.Left)
LV2.Columns.Add("Image Count", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Image Name1", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Position1", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Image Name2", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Position2", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Image Name3", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Position3", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Image Name4", 100, HorizontalAlignment.Left)
LV2.Columns.Add("Position4", 100, HorizontalAlignment.Left)

Dim SqlQuery1 As String = "SELECT * From ImageT"
Dim SqlCommand1 As New OleDbCommand
Dim SqlAdpter1 As New OleDbDataAdapter
Dim TABLE1 As New DataTable

With SqlCommand1
.CommandText = SqlQuery1
.Connection = conn
End With


With SqlAdpter1
.SelectCommand = SqlCommand1
.Fill(TABLE1)
End With

For i = 0 To TABLE1.Rows.Count - 1
With LV2
.Items.Add(TABLE1.Rows(i)("ImageID"))
With .Items(.Items.Count - 1).SubItems
.Add(TABLE1.Rows(i)("ImageCount"))
.Add(TABLE1.Rows(i)("ImageName1"))
.Add(TABLE1.Rows(i)("Position1"))
.Add(TABLE1.Rows(i)("ImageName2"))
.Add(TABLE1.Rows(i)("Position2"))
.Add(TABLE1.Rows(i)("ImageName3"))
.Add(TABLE1.Rows(i)("Position3"))
.Add(TABLE1.Rows(i)("ImageName4"))
.Add(TABLE1.Rows(i)("Position4"))

End With
End With
Next


LV3.FullRowSelect = True
LV3.MultiSelect = False
LV3.View = View.Details

LV3.Columns.Clear()
LV3.Items.Clear()

LV3.Columns.Add("ID", 30, HorizontalAlignment.Left)
LV3.Columns.Add("T-Shirt Provider", 100, HorizontalAlignment.Left)
LV3.Columns.Add("T-Shirt Print Type", 100, HorizontalAlignment.Left)
LV3.Columns.Add("T-Color Count", 100, HorizontalAlignment.Left)
LV3.Columns.Add("c1", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c2", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c3", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c4", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c5", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c6", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c7", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c8", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c9", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c10", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c11", 30, HorizontalAlignment.Left)
LV3.Columns.Add("c12", 30, HorizontalAlignment.Left)
LV3.Columns.Add("T-Shirt Count", 100, HorizontalAlignment.Left)
LV3.Columns.Add("Size Small", 100, HorizontalAlignment.Left)
LV3.Columns.Add("Size Medium", 100, HorizontalAlignment.Left)
LV3.Columns.Add("Size Large", 100, HorizontalAlignment.Left)
LV3.Columns.Add("Size Custom1", 100, HorizontalAlignment.Left)
LV3.Columns.Add("Size Custom2", 100, HorizontalAlignment.Left)

Dim SqlQuery2 As String = "SELECT * From T-ShirtT"
Dim SqlCommand2 As New OleDbCommand
Dim SqlAdpter2 As New OleDbDataAdapter
Dim TABLE2 As New DataTable

With SqlCommand2
.CommandText = SqlQuery2
.Connection = conn
End With


With SqlAdpter2
.SelectCommand = SqlCommand2
.Fill(TABLE2)
End With

For i = 0 To TABLE2.Rows.Count - 1
With LV3
.Items.Add(TABLE2.Rows(i)("T-ShirtID"))
With .Items(.Items.Count - 1).SubItems
.Add(TABLE2.Rows(i)("T-ShirtProvider"))
.Add(TABLE2.Rows(i)("T-ShirtPrintType"))
.Add(TABLE2.Rows(i)("T-ColorCount"))
.Add(TABLE2.Rows(i)("c1"))
.Add(TABLE2.Rows(i)("c2"))
.Add(TABLE2.Rows(i)("c3"))
.Add(TABLE2.Rows(i)("c4"))
.Add(TABLE2.Rows(i)("c5"))
.Add(TABLE2.Rows(i)("c6"))
.Add(TABLE2.Rows(i)("c7"))
.Add(TABLE2.Rows(i)("c8"))
.Add(TABLE2.Rows(i)("c9"))
.Add(TABLE2.Rows(i)("c10"))
.Add(TABLE2.Rows(i)("c11"))
.Add(TABLE2.Rows(i)("c12"))
.Add(TABLE2.Rows(i)("T-ShirtCount"))
.Add(TABLE2.Rows(i)("SizeSmall"))
.Add(TABLE2.Rows(i)("SizeMedium"))
.Add(TABLE2.Rows(i)("SizeLarge"))
.Add(TABLE2.Rows(i)("SizeCustom1"))
.Add(TABLE2.Rows(i)("SizeCustom2"))
End With
End With
Next
End Sub