Como ejecutar un procedimiento almacenado

Hola, para ésto necesitas el OLE DB provider para VFP, te copio el link
donde encontrar el link para descargar el OLE DB provider para VFP y código
ASP para ejecutar una consulta, para ejecutar un stored procedure lo
siguiente:

Stored Procedure VFP
FUNCTION GetCustomer
SELECT * FROM customer
ENDFUNC

Codigo ASP+VBS
dim cConnectString, oRS, oConn
cConnectString = "Provider=VFPOLEDB.1;Data
Source=C:\vfp7\Samples\Data\testdata.dbc;" & _
"Mode=ReadWrite|Share Deny None;Password='';Collating Sequence=MACHINE"
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.ConnectionTimeout = 30
oConn.Open
Set oRS = oConn.Execute("GetCustomer", , 4) '4 = Stored ProcedureIf oRS.EOF
Then
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "No records found.< br >" & vbCR
Response.End
End If

Do while not oRS.EOF
Response.Write oRS.Fields("cust_id").Value & " - " & _
oRS.Fields("company").Value & "< br >" & vbCR
oRS.MoveNext
Loop

oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
Saludos,
Francisco Fagas
Ecuador
"Jason Boris Rivas Otaiza" wrote in message
news:u8Oe$

Buenas quisiera saber como ejecutar un procedimiento almacenado con ASP en
una base de datos de VFP muchisimas gracias por su atencion

Probé el código que me mandaste y me salio este error

Tipo de error:
Microsoft OLE DB Provider for Visual FoxPro (0x80004005)
Feature is not available.
/Limaguns/paginas/prueba3.asp, línea 17


además no encuentro el link que me indicas en tu mensaje podrías enviármelo
por favor
muchas gracias por tu ayuda

"Francisco Fagas [MVP]" escribió en el
mensaje news:

Hola, para ésto necesitas el OLE DB provider para VFP, te copio el link
donde encontrar el link para descargar el OLE DB provider para VFP y
código ASP para ejecutar una consulta, para ejecutar un stored procedure
lo siguiente:

Stored Procedure VFP
FUNCTION GetCustomer
SELECT * FROM customer
ENDFUNC

Codigo ASP+VBS
dim cConnectString, oRS, oConn
cConnectString = "Provider=VFPOLEDB.1;Data
Source=C:\vfp7\Samples\Data\testdata.dbc;" & _
"Mode=ReadWrite|Share Deny None;Password='';Collating Sequence=MACHINE"
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.ConnectionTimeout = 30
oConn.Open
Set oRS = oConn.Execute("GetCustomer", , 4) '4 = Stored ProcedureIf
oRS.EOF Then
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "No records found.< br >" & vbCR
Response.End
End If

Do while not oRS.EOF
Response.Write oRS.Fields("cust_id").Value & " - " & _
oRS.Fields("company").Value & "< br >" & vbCR
oRS.MoveNext
Loop

oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
Saludos,
Francisco Fagas
Ecuador
"Jason Boris Rivas Otaiza" wrote in message
news:u8Oe$

Buenas quisiera saber como ejecutar un procedimiento almacenado con ASP
en una base de datos de VFP muchisimas gracias por su atencion

Es un error con respecto al provider que estas usando, descarga el provider
que me mencioné anteriormente.

Éste es el link:
http://fox.wikis.com/wc.dll?Wiki~VFP_OleDB_Provider

Saludos,
Francisco Fagas
Ecuador
"Jason Boris Rivas Otaiza" wrote in message
news:

Probé el código que me mandaste y me salio este error

Tipo de error:
Microsoft OLE DB Provider for Visual FoxPro (0x80004005)
Feature is not available.
/Limaguns/paginas/prueba3.asp, línea 17


además no encuentro el link que me indicas en tu mensaje podrías
enviármelo por favor
muchas gracias por tu ayuda

"Francisco Fagas [MVP]" escribió en
el mensaje news:

Hola, para ésto necesitas el OLE DB provider para VFP, te copio el link
donde encontrar el link para descargar el OLE DB provider para VFP y
código ASP para ejecutar una consulta, para ejecutar un stored procedure
lo siguiente:

Stored Procedure VFP
FUNCTION GetCustomer
SELECT * FROM customer
ENDFUNC

Codigo ASP+VBS
dim cConnectString, oRS, oConn
cConnectString = "Provider=VFPOLEDB.1;Data
Source=C:\vfp7\Samples\Data\testdata.dbc;" & _
"Mode=ReadWrite|Share Deny None;Password='';Collating Sequence=MACHINE"
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.ConnectionTimeout = 30
oConn.Open
Set oRS = oConn.Execute("GetCustomer", , 4) '4 = Stored ProcedureIf
oRS.EOF Then
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "No records found.< br >" & vbCR
Response.End
End If

Do while not oRS.EOF
Response.Write oRS.Fields("cust_id").Value & " - " & _
oRS.Fields("company").Value & "< br >" & vbCR
oRS.MoveNext
Loop

oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
Saludos,
Francisco Fagas
Ecuador
"Jason Boris Rivas Otaiza" wrote in message
news:u8Oe$

Buenas quisiera saber como ejecutar un procedimiento almacenado con ASP
en una base de datos de VFP muchisimas gracias por su atencion

Prove el codigo que me mandaste i funciona muy bien en mi maquina pero
cuando lo puse en mi servidor este me mando el siguiente error

ADODB.Connection error '800a0e7a'

Provider cannot be found. It may not be properly installed.

/paginas/prueba3.asp, line 20

¿Sabes que significa? este es el codigo que he utilizado

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file = "../includes/ADOVBS.INC"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>

<body>
<%
dim cConnectString, oRS, oConn,acum,reg
acum=0
cConnectString = "Provider=VFPOLEDB.1;Data Source=C:\Archivos de
programa\VFP\SAMPLES\DATA\TESTDATA.DBC;Mode=ReadWrite|Share Deny
None;Password='';Collating Sequence=MACHINE"
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.ConnectionTimeout = 30
oConn.Open
'Set oRS = oConn.Execute("GetCustomer",reg , 4) '4 = Stored Procedure
Set oRS = oConn.Execute("SELECT * FROM customer",reg , adCmdText) '4 =
Stored Procedure
If oRS.EOF Then
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "No records found.< br >" & vbCR
Response.End
End If
'registro=oRS.RecordCount
Do while not oRS.EOF
acum=acum+1
Response.Write oRS.Fields("cat_nombre").Value & "< br >"
'& " - " oRS.Fields("company").Value & "< br >"
oRS.MoveNext
Loop
%>
<%=acum%><br>
<%=reg%><br>
<%'=oRS.Fields("to_name").value%>

<%
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "que paso.< br >"
Response.End%>
</body>
</html>

en mi maquina funciona sin problemas podria ser por que yo tengo instalado
el vfp 8.0 com puedo reparar esto



"Francisco Fagas [MVP]" escribió en el
mensaje news:

Hola, para ésto necesitas el OLE DB provider para VFP, te copio el link
donde encontrar el link para descargar el OLE DB provider para VFP y
código ASP para ejecutar una consulta, para ejecutar un stored procedure
lo siguiente:

Stored Procedure VFP
FUNCTION GetCustomer
SELECT * FROM customer
ENDFUNC

Codigo ASP+VBS
dim cConnectString, oRS, oConn
cConnectString = "Provider=VFPOLEDB.1;Data
Source=C:\vfp7\Samples\Data\testdata.dbc;" & _
"Mode=ReadWrite|Share Deny None;Password='';Collating Sequence=MACHINE"
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.ConnectionTimeout = 30
oConn.Open
Set oRS = oConn.Execute("GetCustomer", , 4) '4 = Stored ProcedureIf
oRS.EOF Then
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.Write "No records found.< br >" & vbCR
Response.End
End If

Do while not oRS.EOF
Response.Write oRS.Fields("cust_id").Value & " - " & _
oRS.Fields("company").Value & "< br >" & vbCR
oRS.MoveNext
Loop

oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
Response.End
Saludos,
Francisco Fagas
Ecuador
"Jason Boris Rivas Otaiza" wrote in message
news:u8Oe$

Buenas quisiera saber como ejecutar un procedimiento almacenado con ASP
en una base de datos de VFP muchisimas gracias por su atencion