In questo esempio faccio vedere una tabella di access. Modificando la tabella in modo diretto con Access, il client vede i cambiamenti tramite chiamate continue al server. Io ho messo 1 secondo, per prova, ma è chiaro che nel web deve essere più grande, 15 secondi o più :master:
pagina
codice:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="controllo database 1.aspx.vb" Inherits="CorsoApogeo_ajax_semplice_ajax_controllo_database_1" %>
<!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 id="Head1" runat="server">
<title>Pagina senza titolo</title>
<link href="../../../stili/Styles.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../../../js/ajax.js"></script>
<script language="javascript" type="text/javascript">
// <!CDATA[
window.onload = function()
{
controlla_database();
}
function controlla_database()
{
ajax("?comando_ajax=controlla_database", onload);
function onload()
{
$("div1").innerHTML = this.request.responseText;
window.setTimeout(controlla_database,1000);
}
}
// ]]>
</script>
</head>
<body>
<form id="form1" runat="server">
<span>Aggiungere righe nella tabella tabella7, direttamente da Access e vedere il risultato con chiamate ajax continue</span>
<hr />
<div id="div1"></div>
<hr />
</form>
</body>
</html>
codice
codice:
Option Strict On
Partial Class CorsoApogeo_ajax_semplice_ajax_controllo_database_1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim comando_ajax As String = RequestParams("comando_ajax")
If comando_ajax = "controlla_database" Then
Dim s As New StringBuilder()
Dim dt As DataTable = libreria.GetDataTable(StringaConnessioneTest, "select * from tabella7 order by [id]")
s.Append("<table border=""1"" >")
s.Append("<tr><td>id</td><td>nome</td><td>numero</td></tr>")
For i As Integer = 0 To dt.Rows.Count - 1
s.Append(String.Format("<tr><td>{0}</td><td>{1}</td><td>{2}</td></tr>", libreria.NullToSpace(dt.Rows(i)(0)), libreria.NullToSpace(dt.Rows(i)(1)), libreria.NullToSpace(dt.Rows(i)(2))))
Next
s.Append("</table>")
Me.Response.Clear()
Me.Response.Write(s.ToString())
Me.Response.End()
End If
End Sub
End Class
link dove prendere il javascript ajax
http://web.tiscali.it/archivio_esempi/js/ajax.comp.js
basta usare javascript e ajax
Permessi di invio
Rispondi quotando