Comment inserer du texte avant d'importer un Datagrid dans un fichier excel VB.n

Signaler
Messages postés
32
Date d'inscription
dimanche 24 octobre 2004
Statut
Membre
Dernière intervention
23 avril 2008
-
Messages postés
20
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
20 août 2013
-
Salut,

J'ai un DataGrid à exporter dans un fichier excel. Ca, j'arrive à le faire, ca fonctionne niquel. Seulement, je souhaite rajouter un titre et quelques lignes de texte au début de mon fichier excel, avant les données venues de mon DataGrid.

Vous savez comment je dois m'y prendre?

Merci
Mickael

2 réponses

Messages postés
32
Date d'inscription
dimanche 24 octobre 2004
Statut
Membre
Dernière intervention
23 avril 2008

En fait, j'ai aussi un probleme, c'est que lorsque le texte d'un champ dépasse 20 caractères, je mets le texte dans le tooltips puis je tronque le texte à 20 caractères.
Seulement, lors de l'exportation, mes champs sont tronqués à 20...

Vous voyez comment je peux arranger cela? Genre en prenant la valeur du tooltips à la place du texte mais comment faire?

merci

Mickael
Messages postés
20
Date d'inscription
vendredi 10 février 2012
Statut
Membre
Dernière intervention
20 août 2013

salut,
j'ai une extraction d'une base de données access et je souhaite exporter vers un fichier excel téléchargeable par un lecteur lambda
---------------
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
' On définit la connection
Dim Conn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\data\athletisme.mdb"))

sub Page_Load(obj as Object, e as EventArgs)
if Not Page.IsPostBack then
FillDataGrid()
end if



FillDataGrid()
end sub



sub FillDataGrid()
'Ouverture de la connexion
dim objCmd as new OleDbCommand _
("select * from LISTE", Conn)
dim objReader as OleDbDataReader

try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader()
catch ex as Exception
lblMessage.Text = "Erreur de liaison avec la base de données."
end try

dgData.DataSource = objReader
dgData.DataBind()

objReader.Close
objCmd.Connection.Close()

end sub

function ExecuteSQL(strSQL)
dim objCmd as new OleDbCommand(strSQL, Conn)

try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
catch ex as Exception

end try

objCmd.Connection.Close()
end function
</script>

<html>



<form runat="server">





<Columns>

















</Columns>

<HeaderStyle BackColor="#0033CC" Font-Bold="True" ForeColor="White" />




</form>

</html>


Merci
Alain