Popolare un DataGrid per pagina ASP con SQL Server

[djciko]

Originariamente inviato da bobovieri
Sei grande!!!

non esageriamo...

[bobovieri]

Buongiorno a tutto il forum!!!

Continuo a postare qui perchè le cose ancora non vaddo al meglio, anzi....

Ho utilizzato il codice che mi è statao postato ma ho dei caratteri che rimangono sottolineati

<%@ Import NameSpace="System.Data %>
<%@ Import NameSpace="System.Data.SqlClient" %>

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Inserire qui il codice utente necessario per inizializzare la pagina
        Dim internal_SQLCONN As SqlConnection
        Dim internal_DATASET As DataSet
        Dim internal_SQLADAPTER As SqlDataAdapter
        Dim StringaConnessione As String = "Data Source=MIOSERVER;User ID=USERID;Password=PASSWORD;Initial Catalog=MIODB"
        Try
            internal_SQLCONN = New SqlConnection("Data Source=MIOSERVER;initial catalog=MIODB;password=PASSWORD;persist security info=True;user id=USERID;workstation id=MIO_PC;packet size=4096")
            internal_SQLCONN.Open()
        Catch ex As SqlException
            Response.Write("Si è verificato il seguente errore: " & ex.message)
        End Try

        internal_DATASET = New DataSet()
        internal_SQLADAPTER = New SqlDataAdapter("SELECT [Nome Cliente] FROM Cliente ORDER BY [Nome Cliente]", internal_SQLCONN)

        Try
            internal_SQLADAPTER.Fill(internal_DATASET, "datatable")
            internal_SQLCONN.Close()
        Catch ex As SqlException
            Response.Write("Si è verificato il seguente errore: " & ex.message)
        End Try

        DataGrid1.DataSource = internal_DATASET
        DataGrid1.DataBind()

    End Sub

Le prime due righe di codice le ho inserite all'inizio, prima di ogni altra cosa. Gli errori che mi evidenzia li ho scritti in rosso, per evidenzirli. Se mi fermo sopra col mouse su "Sql..." mi dice "Tipo .... non valido".

Cosa significa???

Ho fatto le prove sia creando la SqlConnection e tutto il seguito (SqlDataAdapter e relativo DataSet), sia non creandolo, ma la cosa non cambia. Gli errori permangono!!!

Chiedo una mano al forum per cercare di risolvere questo problema.

Grazie in anticipo a tutti!!!

[Raffa62]

nel primo import mancano le virgolette di chiusura

<%@ Import NameSpace="System.Data %>

[djciko]

e poi ti conviene chiudere il tutto in :

If not IsPostBack then
.
.
.
End If

[bobovieri]

Ho fatto come mi avete detto ma non è cambiato assolutamente niente.

Sono rimasti gli stessi errori.

Per comodità allego il codice...

Vi prego, non riesco a capire perchè fa così...

Grazie ancora per la pazienza.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Inserire qui il codice utente necessario per inizializzare la pagina
        Dim internal_SQLCONN As SqlConnection
        Dim internal_DATASET As DataSet
        Dim internal_SQLADAPTER As SqlDataAdapter
        Dim StringaConnessione As String = "Data Source=VOYAGER;User ID=sa;Password=xdb982;Initial Catalog=SXDB"

        <%@ Import NameSpace="System.Data" %>
        <%@ Import NameSpace="System.Data.SqlClient" %>

        If Not IsPostBack Then

            Try
                internal_SQLCONN = New SqlConnection("Data Source=VOYAGER;initial catalog=SXDB;password=xdb982;persist security info=True;user id=sa;workstation id=THOMAS_PC;packet size=4096")
                internal_SQLCONN.Open()
            Catch ex As SqlException
                Response.Write("Si è verificato il seguente errore: " & ex.message)
            End Try

            internal_DATASET = New DataSet()
            internal_SQLADAPTER = New SqlDataAdapter("SELECT [Nome Cliente] FROM Cliente ORDER BY [Nome Cliente]", internal_SQLCONN)

            Try
                internal_SQLADAPTER.Fill(internal_DATASET, "datatable")
                internal_SQLCONN.Close()
            Catch ex As SqlException
                Response.Write("Si è verificato il seguente errore: " & ex.message)
            End Try

            DataGrid1.DataSource = internal_DATASET
            DataGrid1.DataBind()

        End If
    End Sub

End Class

P.S. Questo codice l'ho scritto nella pagina denominata "WebForm1.aspx.vb" (in parole povere ho fatto doppio clic sulla pagina bianca che mi si apre quando seleziono "Applicazione WebASP.NET")

[Raffa62]

<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>

queste vanno subito sotto la direttiva Page, prima di tutte le sub, nella pagina aspx

[bobovieri]

    <%@ Import NameSpace="System.Data" %>
    <%@ Import NameSpace="System.Data.SqlClient" %>

Public Class WebForm1
.
.
.


Codice generato da Progettazione Web Form
.
.
.

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Inserire qui il codice utente necessario per inizializzare la pagina
        Dim internal_SQLCONN As SqlConnection
        Dim internal_DATASET As DataSet
        Dim internal_SQLADAPTER As SqlDataAdapter
        Dim StringaConnessione As String = "Data Source=MIOSERVER;User ID=USERID;Password=PASSWORD;Initial Catalog=MIODB"

        If Not IsPostBack Then

            Try
                internal_SQLCONN = New SqlConnection("Data Source=MIOSERVER;initial catalog=MIODB;password=PASSWORD;persist security info=True;user id=USERID;workstation id=MIOPC;packet size=4096")
                internal_SQLCONN.Open()
            Catch ex As SqlException
                Response.Write("Si è verificato il seguente errore: " & ex.message)
            End Try

            internal_DATASET = New DataSet()
            internal_SQLADAPTER = New SqlDataAdapter("SELECT [Nome Cliente] FROM Cliente ORDER BY [Nome Cliente]", internal_SQLCONN)

            Try
                internal_SQLADAPTER.Fill(internal_DATASET, "datatable")
                internal_SQLCONN.Close()
            Catch ex As SqlException
                Response.Write("Si è verificato il seguente errore: " & ex.message)
            End Try

            DataGrid1.DataSource = internal_DATASET
            DataGrid1.DataBind()

        End If
    End Sub
End Class

Così???

Ma comunque dovunque metto quelle due righe di codice, gli errori rimangono, tutti.


Grazie ancora a tutti!!!

[djciko]

Se stai scrivendo nel Code-Behind...(il file .vb) le import le devi mettere cosi:

Imports System.Data
Imports System.Data.SqlClient

se tutto il codice sta nella pagina aspx (cioe' non hai utilizzato il code-behind) le devi mettere nella forma <%@ ... %>

prova

[bobovieri]

Hai una cena pagata a New York!!!!!!!!!!



Ora mi visualizza la lista dei clienti che mi serviva.

E un punto e fatto!!!!!!!!!!!

Per fare le altre due colonne devo "copiare" il codice per i clienti e modificarlo a dovere per far apparire la lista delle versioni e dei titoli,vero??????????????

Intanto ti ringrazio infinitamente per l'aiuto che mi hai (anzi, avete, tu e tutto il forum) dato!!!

P.S. Quando dicevo che sei grande, un motivo ci dovrà pure essere stato, no???

Grazie ancora e, x chi va in ferie, buone ferie!!!

Per tutti gli altri, buon proseguimento di giornata.

[djciko]

allora, il datagrid l'hai fatto con

AutoGenerateColumns = "true" ? o "false" ?