错误:无法将类型"Integer"的值转换为"System.Data.DataTable" [英] Error : Value of type 'Integer' cannot be converted to 'System.Data.DataTable'

问题描述

HI，

我在调用模块到我的表单时出错类型为"Integer"的值不能转换为"System.Data.DataTable"".

我有一个模块可以在列表视图中填充数据，

i have an error to call module to my forms "Value of type ''Integer'' cannot be converted to ''System.Data.DataTable''".

i have a module to fill data in the listview,

Module ModProcedure
      Dim xsize As Integer
      'load data in the listview
      Public Sub FillListView(ByVal sqlData As DataTable, ByVal lvList As ListView, ByVal imageID As Integer)
            Dim i As Integer
            Dim j As Integer
            'lvList.Refresh()
            lvList.Clear()
            For i = 0 To sqlData.Columns.Count - 1
                  lvList.Columns.Add(sqlData.Columns(i).ColumnName)
            Next i
 
            For i = 0 To sqlData.Rows.Count - 1
                  lvList.Items.Add(sqlData.Rows(i).Item(0), imageID)
                  For j = 1 To sqlData.Columns.Count - 1
                        If Not IsDBNull(sqlData.Rows(i).Item(j)) Then
                              lvList.Items(i).SubItems.Add(sqlData.Rows(i).Item(j))
                        Else
                              lvList.Items(i).SubItems.Add("")
                        End If
                  Next j
            Next i
 
            For i = 0 To sqlData.Columns.Count - 1
                  xsize = lvList.Width / sqlData.Columns.Count - 8
                  'MsgBox(xsize)
                  'If xsize > 1440 Then
                  lvList.Columns(i).Width = xsize
                  'Else
                  '   lvList.Columns(i).Width = 2000
                  'End If
                  'lvList.Columns(i).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize)
            Next i
      End Sub---

我曾经在表单中调用此函数，但是在调用数据表时遇到了如下问题

i used to call this function to my form but i am facing problem to call data table as below

Private Sub FrmWHMaster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
         
            Dim myCn As New dbconnection
            Dim cnn As New SqlClient.SqlConnection(myCn.Getdbconn)
            Dim sqlStr As String
            ' Try
            cnn.Open()
 
            sqlStr = "select * from userMaster"
 

            Dim cmd1 As New SqlClient.SqlCommand(sqlStr, cnn)
            cmd1.CommandType = CommandType.Text
          FillListView(cmd1.ExecuteNonQuery, IstCurrentload, 0)
 
            cnn.Close()
 
      End Sub

这是我遇到错误的区域?请咨询.

This is the area i am getting error?please advice.

FillListView(cmd1.ExecuteNonQuery, IstCurrentload, 0)

谢谢，
Ali

Thanks,
Ali

推荐答案

ExecuteNonQuery始终返回单个值，即受影响的记录数.如果要使用数据表，则需要使用数据适配器，然后从中填充数据表.

[edit]数据库-> DataTable-OriginalGriff [/edit]

ExecuteNonQuery always returns a single value, the number of records affected. If you want to use a DataTable, then you need to use a DataAdapter instead, and Fill the DataTable from that.

[edit]Database --> DataTable - OriginalGriff[/edit]

谢谢..我将代码更改为Dataadapter，它可以正常工作

Dim da As New SqlClient.SqlDataAdapter(sqlStr，con)
昏暗的dt =新的数据表
da.Fill(dt)
sqlStr = da.Fill(dt)
FillListView(ExecuteSQLQuery(sqlStr)，IstCurrentload，0)

Thank you .. i changed my code to Dataadapter, it works

Dim da As New SqlClient.SqlDataAdapter(sqlStr, con)
Dim dt = New DataTable
da.Fill(dt)
sqlStr = da.Fill(dt)
FillListView(ExecuteSQLQuery(sqlStr), IstCurrentload, 0)

这篇关于错误:无法将类型"Integer"的值转换为"System.Data.DataTable"的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！