A voir également:
- Excel et les images ou bd et les images
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Arctan excel ✓ - Forum C++ & C++ .NET
- Excel convertir timestamp en date et heure ✓ - Forum Visual Basic
- Arctangente excel - Forum Visual Basic
- Excel vba modulo - Forum Visual Basic
1 réponse
Utilisateur anonyme
18 oct. 2006 à 19:15
18 oct. 2006 à 19:15
A oui si vous voulez voir ou ca foire, www.art-shots.com/art-shots/tuto.aspx
j'ai oublié de precisé que les images sont stocké dans le fichier et ne sont pas dans un dossier
et je vous donne meme le code en fait :
<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<SCRIPT runat="server">
Dim connBD As OleDbConnection = new
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("2022_tuto_avec_vignettes.xls") & ";" &
"Extended Properties=Excel 8.0;")
Dim commSQL As OleDbDataAdapter
Dim dsMemoire As DataSet = new DataSet()
Dim iCpt As Integer
Sub Page_Load(sender As Object, e As EventArgs)
Try
connBD.Open()
commSQL = new OleDbDataAdapter("SELECT * FROM liste
ORDER BY Titre;", connBD)
commSQL.Fill(dsMemoire, "TabListe")
connBD.Close()
Catch ex As Exception
connBD.Close()
Response.Write(ex)
Response.End()
End Try
End Sub
</SCRIPT>
<html>
<head>
</head>
<link href="style_news.css" rel="stylesheet" type="text/css">
<table width="100%" border="0">
<% For iCpt = 0 To dsMemoire.Tables("TabListe").Rows.Count - 1 %>
----
, \"></td>
"
target="_blank"><% =dsMemoire.Tables("TabListe").Rows(iCpt)
("Titre") %>,
<%
=Day(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Month(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Year(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>,
<% Next %>
</td>
</tr>
</table>
</html>
[blue]On a rien sans rien/blue
j'ai oublié de precisé que les images sont stocké dans le fichier et ne sont pas dans un dossier
et je vous donne meme le code en fait :
<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<SCRIPT runat="server">
Dim connBD As OleDbConnection = new
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("2022_tuto_avec_vignettes.xls") & ";" &
"Extended Properties=Excel 8.0;")
Dim commSQL As OleDbDataAdapter
Dim dsMemoire As DataSet = new DataSet()
Dim iCpt As Integer
Sub Page_Load(sender As Object, e As EventArgs)
Try
connBD.Open()
commSQL = new OleDbDataAdapter("SELECT * FROM liste
ORDER BY Titre;", connBD)
commSQL.Fill(dsMemoire, "TabListe")
connBD.Close()
Catch ex As Exception
connBD.Close()
Response.Write(ex)
Response.End()
End Try
End Sub
</SCRIPT>
<html>
<head>
</head>
<link href="style_news.css" rel="stylesheet" type="text/css">
<table width="100%" border="0">
<% For iCpt = 0 To dsMemoire.Tables("TabListe").Rows.Count - 1 %>
----
, \"></td>
"
target="_blank"><% =dsMemoire.Tables("TabListe").Rows(iCpt)
("Titre") %>,
<%
=Day(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Month(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Year(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>,
<% Next %>
</td>
</tr>
</table>
</html>
[blue]On a rien sans rien/blue
