Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » Foxpro y Ajax

FoxPro/Visual FoxPro - Foxpro y Ajax

Volver
Nuevo Tema
<<>>
 
Vista:

Foxpro y Ajax

Publicado por Alvaro (16 intervenciones) el 10/04/2015 19:21:17
Buenas, Alguien me puede informar sobre los pasos a seguir para hacer una pagina web
que actualice los datos mediante base de datos FoxPro utilizando Ajax (XMLHttpRequest)

Saludos, Gracias,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

Foxpro y Ajax

Publicado por xve (83 intervenciones) el 10/04/2015 21:37:03
Hola Alvaro, que lenguaje de programación estas utilizando en el servidor?? y que base de datos estas utilizando con FoxPro?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Foxpro y Ajax

Publicado por alvaro (16 intervenciones) el 10/04/2015 22:23:21
Hola, Gracias por contestar,
Digamos que yo lo que quiero hacer es algo como esto:
https://msdn.microsoft.com/es-es/library/bb972247.aspx
sin que cargue la pagina web entera cada vez que se envían o reciben los datos

Con Ajax Se puede, pero no se como hacerlo.

Utilizo FoxPro 9 , Y el Servidos Web IIS de Windows 7

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Foxpro y Ajax

Publicado por alvaro (16 intervenciones) el 12/04/2015 23:50:03
Me contesto a mi mismo:

asi quedaría custormers.asp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
<%@ Language=VBScript%>
<!-- #include file="conn.asp" -->
<%
Dim oRs, nReg
Set oRs = oConn.Execute("CustomersAll",nReg,4)
%>
<script type="text/javascript">
function showHint(str) {
 
   if (str.length == 0) {
        document.getElementById("txtHint").innerHTML = "";
        return;
    } else {
        var xmlhttp = new XMLHttpRequest();
        xmlhttp.onreadystatechange = function() {
            if (xmlhttp.readyState == 4 && xmlhttp.status == 200) {
                document.getElementById("txtHint").innerHTML = xmlhttp.responseText;
            }
        }
 
    xmlhttp.open("GET", "orders.asp?q=" + str, true);
        xmlhttp.send();
    }
}
</script>
 
 
<html>
<body bgcolor="#E0EAFC">
<h3>Listado de Clientes al: <% =Now() %></h3>
<table border=1 width=100% cellspacing="1" cellpadding="2">
  <tr>
    <th>Id</th>
    <th>Compañia</th>
    <th>Dirección</th>
    <th>Ciudad</th>
    <th>País</th>
    <th>...</th>
  </tr>
  <% Do While Not oRS.EOF %>
    <tr bgcolor="#FFFFFF">
<td><input type="button" value="<%=oRs(0)%>" onclick="showHint(this.value)"></td>
       <td><%=oRs(1)%></td>
      <td><%=oRs(2)%></td>
      <td><%=oRs(3)%></td>
      <td><%=oRs(4)%></td>
      <td><a href="/vfp/editcustomer.asp?cId=<%=oRs(0)%>">Editar</a></td>
    </tr>
    <%
    oRs.MoveNext
  Loop
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
  %>
</table>
<p>Registros: <%=nReg%></p>
</body>
 
<p>Orders: <span id="txtHint"></span></p>
 
</html>

asi quedaría ordes.asp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<%
Dim cRuta, oConn
'-- Si solo tenemos instalado el proveedor OLE DB de VFP 9.0

' cRuta = "C:\program files (x86)\" & _

'   "Microsoft Visual FoxPro OLE DB Provider\Samples\Northwind\Northwind.DBC"

 
'-- Si tenemos instalado Visual FoxPro 9.0

cRuta = "C:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Northwind\Northwind.DBC"
 
Set oConn = CREATEOBJECT("ADODB.Connection")
oConn.Open("Provider=VFPOLEDB.1;Data Source=" & cRuta & ";Mode=ReadWrite")
 
Dim q
 'get the q parameter from URL

q= Request("q")
Dim oRs, nReg
Set oRs = oConn.Execute("CustOrdersOrders('" & q & "')",nReg,4)
 
 'lookup all hints from array if length of q>0

 
 
  hint=""
   Do While Not oRS.EOF
   hint=hint & "," & oRs(0)
 
 
    oRs.MoveNext
  Loop
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
 
'Output "no suggestion" if no hint were found

 'or output the correct values

 if hint="" then
   response.write("no suggestion")
 else
   response.write(hint)
 end if
%>


Resumiendo: al Clickear en un Id de un Cliente aparece un listado de los números de pedido al final de Customers.asp
Solo recarga datos, al estilo de Programa de escritorio
En la barra de direcciones poner http://192.168.1.60/vfpajax/customers.asp , no funciona si se pone localhost


información sacada de: http://www.w3schools.com/asp/asp_ajax_asp.asp


¿Puede alguien ofrecer un ejemplo completo o ampliar Informaciòn?
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Foxpro y Ajax

Publicado por Saul (728 intervenciones) el 14/04/2015 16:36:07
Hola Alvaro:

Buen día, muy buen articulo el que expones, pero a mi parecer puedes hacer eso no prisazamente interactuando con vfp, pues que lo puedes hacer unicamente con ASP digamoslo así.

Mas bien porque recuerda no puedes compartir clases de vfp
Ahora otra detalle a tomar en cuenta es que tu codigo que estas mostrando no es la mejor tendecia del día.
recuerad que ahora se usa mas CSS que <table>

Es mi opinion nada mas..

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar