problecas con una property
Publicado por josu (89 intervenciones) el 03/07/2006 12:07:38
hola de nuevo, tengo un problema con con una property, les cuento lo que trato de hacer, quiero hacer una property que me dvuelva como valor el dataset de una consulta luego este dataset se recoge en una funcion javascript y se recorre en la misma funcion.
aqui os pongo como lo he echo:
en el lado vb:
Dim elValorQueSea As DataSet
Public Property miPropiedad() As DataSet
Get
Dim oConn As New OleDb.OleDbConnection
Dim oCmd As New OleDb.OleDbCommand
Dim oDa As New OleDb.OleDbDataAdapter
Dim k As New OleDb.OleDbParameter
Dim oDs As New DataSet
Dim destino As String
destino = "C:\Inetpub\wwwroot\cementoslemona\libro1.xls"
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destino & ";Extended Properties=Excel 8.0;"
oConn.Open()
oCmd.CommandText = "SELECT epi FROM tabla2 WHERE (puestodetrabajo='calcador')"
oCmd.Connection = oConn
oDa.SelectCommand = oCmd
oDa.Fill(oDs, "tabla")
elValorQueSea = oDs
Return elValorQueSea
End Get
Set(ByVal Value As DataSet)
elValorQueSea = Value
End Set
End Property
y en el lado html:
<script language="javascript">
function tabla()
{
var ds;
ds=<%=miPropiedad%>
var i=ds.tables[0].rows[0].Item("epi");
alert(i);
}
</script>
</HEAD>
<body onload="javascript:tabla()" MS_POSITIONING="GridLayout">
y el error que me da es el siguiente:
:-(
Linea: 14
Car: 6
Error: 'System' no esta definido
si alguien ve en que me equivoco le agradeceria mucho que me indicase cual es el fallo que cometo.
un saludo y gracias de antemano
aqui os pongo como lo he echo:
en el lado vb:
Dim elValorQueSea As DataSet
Public Property miPropiedad() As DataSet
Get
Dim oConn As New OleDb.OleDbConnection
Dim oCmd As New OleDb.OleDbCommand
Dim oDa As New OleDb.OleDbDataAdapter
Dim k As New OleDb.OleDbParameter
Dim oDs As New DataSet
Dim destino As String
destino = "C:\Inetpub\wwwroot\cementoslemona\libro1.xls"
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destino & ";Extended Properties=Excel 8.0;"
oConn.Open()
oCmd.CommandText = "SELECT epi FROM tabla2 WHERE (puestodetrabajo='calcador')"
oCmd.Connection = oConn
oDa.SelectCommand = oCmd
oDa.Fill(oDs, "tabla")
elValorQueSea = oDs
Return elValorQueSea
End Get
Set(ByVal Value As DataSet)
elValorQueSea = Value
End Set
End Property
y en el lado html:
<script language="javascript">
function tabla()
{
var ds;
ds=<%=miPropiedad%>
var i=ds.tables[0].rows[0].Item("epi");
alert(i);
}
</script>
</HEAD>
<body onload="javascript:tabla()" MS_POSITIONING="GridLayout">
y el error que me da es el siguiente:
:-(
Linea: 14
Car: 6
Error: 'System' no esta definido
si alguien ve en que me equivoco le agradeceria mucho que me indicase cual es el fallo que cometo.
un saludo y gracias de antemano
Valora esta pregunta
0