tengo una listado que me devuelve de una consulta, pues lo que estoy haciendo ahora, es que al seleccionar cualquier de ellos, me muestre mas detalles, para que se den un ejemplo esta es la ruta
http://criveronet.europe.webmatrixho...et/prueba.aspx
en el listado aparece una liga para los detalles, pero al recuperarlo me aparece el siguiente error:
Exception Details: System.Data.OleDb.OleDbException: No value given for one or more required parameters.
Source Error:
Line 24: Dim ds as DataSet=New DataSet()
Line 25: Dim Cmd as New OleDbDataAdapter(MySQL,conn)
Line 26: Cmd.Fill(ds,"astesa")
Line 27: MyDataList.Datasource=ds '.Tables("astesa").DefaultView
Line 28: MyDataList.DataBind()
que hago mal....este es mi codigo en donde recupero los datos
Dim sDetails as String
Dim intID as String
Sub Page_Load(Source as Object, E as EventArgs)
sDetails=request.QueryString ("action")
intID=Request.QueryString("id")
if sDetails="details" then
pnl1.visible="true"
doShowDetails
end if
End Sub
Sub doShowDetails()
Dim strConn as string = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("/database/foraneo.mdb")
Dim MySQL as string = "SELECT astesa.sinaseg, astesa.sinastesa, asegurado.asegurado, cia.company, gerencia.gerente, ramo.ramo, causa.causa, astesa.lugarsin, estado.estado, astesa.bienes, status.status, dictamen.dictamen, astesa.observaciones, tajuste.tipoajuste, oficina.oficina FROM (cia INNER JOIN (dictamen INNER JOIN (ramo INNER JOIN (causa INNER JOIN (tajuste INNER JOIN (oficina INNER JOIN (asegurado INNER JOIN (status INNER JOIN (astesa INNER JOIN estado ON astesa.id_estado = estado.id_estado) ON status.id_status = astesa.statusId_) ON (estado.id_estado = asegurado.estadoId_) AND (asegurado.id_aseg = astesa.aseguradoId_)) ON oficina.id_oficina = astesa.oficinaId_) ON tajuste.id_tajuste = astesa.tajusteId_) ON causa.id_causa = astesa.causaId_) ON ramo.id_ramo = astesa.ramoId_) ON dictamen.id_dictam = astesa.dictamenId_) ON cia.id_cia = astesa.id_cia) INNER JOIN gerencia ON (gerencia.id_gerente = astesa.gerenciaId_) AND (cia.id_cia = gerencia.id_cia) where sinastesa=" & intID
Dim conn as New OleDbConnection(strConn)
Dim ds as DataSet=New DataSet()
Dim Cmd as New OleDbDataAdapter(MySQL,conn)
Cmd.Fill(ds,"astesa")
MyDataList.Datasource=ds.Tables("astesa").DefaultV iew
MyDataList.DataBind()
End Sub
