questa è una prova: leggo un file di circa 250.000 caratteri, lo taglio a circa 65.000 caratteri, lo archivio in un campo memo, lo leggo e lo metto in una label, e tutto con Odbc
pagina:
codice:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="b.aspx.vb" Inherits="prove_b" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Pagina senza titolo</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Button ID="Button1" runat="server" Text="Scrivi e leggi Memo" />
<asp:Label ID="Label1" runat="server"></asp:Label>
</div>
</form>
</body>
</html>
codice
codice:
Option Strict On
Partial Class prove_b
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'leggo un file di circa 250.000 caratteri
Dim s As String = File.ReadAllText("C:\Documenti\Visual Studio 2005\Projects\libreria\libreria\ModuloWeb.vb")
Dim connessione As Odbc.OdbcConnection = Nothing
Dim comando As Odbc.OdbcCommand = Nothing
Dim transazione As Odbc.OdbcTransaction = Nothing
Dim sql As String = ""
Try
connessione = New Odbc.OdbcConnection(StringaConnessione)
connessione.Open()
transazione = connessione.BeginTransaction()
comando = connessione.CreateCommand()
comando.Transaction = transazione
sql = "UPDATE [TABELLA12] SET [MEMO] = ? WHERE [ID] = ? "
comando.CommandText = sql
comando.Parameters.Clear()
'la stringa immessa deve essere necessariamente tagliata, pena errore
comando.Parameters.Add("memo", Odbc.OdbcType.VarChar, 65535).Value = s.Substring(0, 65535)
comando.Parameters.Add("id", Odbc.OdbcType.SmallInt).Value = 1
comando.ExecuteNonQuery()
transazione.Commit()
'adesso leggo il memo e lo metto nella label
sql = "SELECT [MEMO] FROM TABELLA12 WHERE [ID]=1"
comando.CommandText = sql
Dim reader As Odbc.OdbcDataReader = comando.ExecuteReader(CommandBehavior.SingleRow)
If reader.HasRows Then
reader.Read()
Me.Label1.Text = "<pre>" & reader(0).ToString() & "</pre>"
End If
Catch ex As Exception
PrintLn(ex.ToString())
If (transazione IsNot Nothing AndAlso transazione.Connection IsNot Nothing) Then transazione.Rollback()
Finally
If connessione IsNot Nothing Then connessione.Close()
End Try
End Sub
Private Function StringaConnessione() As String
Return "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\dati\test\test.mdb;Uid=Admin;Pwd=;"
End Function
End Class
Rispondi quotando
(Access 2007). Due Giga, se ho letto bene, non mi sogno certo di usarli, ma 60.000 caratteri si immagazzinano benissimo. Uso OleDb però: odbc con Access sono dal secolo scorso che non lo uso 
