Salve a tutti
Questa pagina che effettuata la visualizzazione di alcuni dati di una tabella.
La stessa pagina se gira sul server di sviluppo appoggiandosi su un db access funziona vi riporto lo script di seguito:
codice:<%@ Page Language="vb" Debug="true" ClientTarget=downlevel %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.OleDb" %> <%@ import Namespace="System.Web.UI.WebControls" %> <script runat="server"> Dim ds As DataSet Dim dv As DataView Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsPostBack Then Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:/notifica/mdb-database/poliscrtrile.mdb") Dim myCommand As New OleDbDataAdapter("SELECT Count(numcarte) as totale, dataril FROM crtrile GROUP BY dataril", myConnection) ds = New DataSet() myCommand.Fill(ds, "crtrile") Session("datagrid") = ds Else ds = Session("datagrid") End If dv = New DataView(ds.Tables("crtrile")) dv.Sort = "dataril" DataGrid1.DataSource = dv If Not Page.IsPostBack Then DataBind()
Se invece opportunamente modificato e si prova ad utilizzare un db ms sql ho questo tipo di errore:
lo script è questo:codice:Riga 33: 'Dim strConn as string ="Provider=sqloledb.1; Data Source=ESDB; Initial Catalog=crtsuperiori; User Id=ucrt; Password=superiori;" Riga 34: Riga 35: MyConnection.Open() Riga 36: Dim myCommand As New OleDbDataAdapter("SELECT Count(numcarte) as totale, dataril FROM crtrile GROUP BY dataril", myConnection) Riga 37:
La pagina aspx risiede su un server ed il db su un altro. Nel db e nella tabella del sql l'utenza è presente.codice:<%@ Page Language="vb" Debug="true" ClientTarget=downlevel %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.SQLClient" %> <%@ import Namespace="System.Web.UI.WebControls" %> <script runat="server"> Dim ds As DataSet Dim dv As DataView Dim ds2 As DataSet Dim dv2 As DataView Dim ds3 As DataSet Dim dv3 As DataView Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsPostBack Then If Session("datagrid") Is Nothing Then 'Dim myConnection As New OleDbConnection("Provider=sqloledb.1; Data Source=ESDB; Initial Catalog=crtsuperiori; User Id=ucrt; Password=superiori;") Dim MyConnection as OleDbConnection MyConnection = New OleDbConnection ("Provider=sqloledb.1; Data Source=ESDB; Initial Catalog=crtsuperiori; User Id=ucrt; Password=superiori") 'Dim strConn as string ="Provider=sqloledb.1; Data Source=ESDB; Initial Catalog=crtsuperiori; User Id=ucrt; Password=superiori;" MyConnection.Open() Dim myCommand As New OleDbDataAdapter("SELECT Count(numcarte) as totale, dataril FROM crtrile GROUP BY dataril", myConnection) ds = New DataSet() myCommand.Fill(ds, "crtrile") Session("datagrid") = ds Else ds = Session("datagrid") End If dv = New DataView(ds.Tables("crtrile")) dv.Sort = "dataril" DataGrid1.DataSource = dv If Not Page.IsPostBack Then DataBind() End If end if End Sub
Quale può essere la spiegazione dell'errore?
Grazie.

Rispondi quotando