Data source is an invalid type. It must be either an IListSource, IEnumerable, or IDataSource.

Question

User749488471 posted

Hi

I have problem with my code for show data from database to grid, i had to try.. but i can't find it yet..

give me solution..

this my code

Public Class PengaturanTampilan
    Inherits System.Web.UI.Page

    Dim sqlstr As String
    Dim RSP As New ADODB.Recordset
    Dim aduh As New ADODB.Recordset
    Dim cancel As Boolean
    Dim col As Long 'panjang kolom

    Private NamaDBs() As String
    Private NameDBs() As String
    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ''koneksi
        sqlstr = "provider=MSDataShape;DataProvider=MSDASQL;DRIVER={SQL Server};SERVER="
        sqlstr = sqlstr & Trim(GBLserverName) & ";UID="
        sqlstr = sqlstr & "sa" & ";PWD="
        sqlstr = sqlstr & "password1" & ";DATABASE="
        sqlstr = sqlstr & "AJMweb" & ";"

        If conn.State = 1 Then
            conn.Close()
        End If

        conn.ConnectionString = sqlstr

        conn.Open()

        If aduh.State = 1 Then
            aduh.Close()
        End If
        sqlstr = "select * from M_DaftarMnu"
        aduh.Open(sqlstr, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        'Dim list As New ListItem
        ''Dim dataset As New DataSet
        ''Dim Adapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter
        ''Adapter.Fill(dataset)
        'list.a()
        'IList <sqlstr> = New ili
        'IEnumerable.aduh = New IEnumerable.aduh
        'List(Of datakoneksi)= New List(Of datako
        'IEnumerable(Of String) = From M_DaftarMnu In sqlstr Select LabelID
        'List(Of String) =
        aduh.Requery()



        'aduh(sqlstr)
        If aduh.EOF = False Then
            tampil_grid.DataSource = aduh
            tampil_grid.DataBind()
        Else
            tampil_grid.DataSource = Nothing
        End If
        

        aduh = Nothing

        'If RSP.State = 1 Then
        '    RSP.Close()
        'End If

        'sqlstr = "select * from M_DaftarMnu order by Caption"
        'RSP.Open(sqlstr, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

        'RSP = Nothing

      
    End Sub