//aki esta el codigo completo de la pagina y la consulta... si le kito las comillas sencillas no pasa... se keda aki
objComando1.Fill(objDS1, "CV_SUBPROGRAMA")
y marca:
No se han especificado valores para algunos de los parámetros requeridos
asi ke no se ke hacer ya ke no puedo kitarle las comillas por ke si no, no jala, con las comillas sencillas si pasa, pero no carga la info en los siguientes dropdownlist....
<%@ Page Language="VB" Debug="TRUE" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OLEDB" %>
<%@ import Namespace="System.Data.OleDb.OleDbException" %>
<script runat="server">
SUB PAGE_LOAD(obj As object, e As eventargs)
If Not (Page.IsPostBack)
RELLENA_DDLPROGRAMA()
else
RELLENA_DDLSUBPROGRAMA()
end if
END SUB
SUB RELLENA_DDLPROGRAMA()
' ---- CON ESTE RELLENAMOS EL DEL PROGRAMA ----
Dim strConexion As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim objDS As New DataSet
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("TABLA.MDB")
objConexion = New OleDbConnection(strConexion)
Dim objSelect as String = "SELECT * FROM PROGRAMAS ORDER BY CV_PROGRAMA;"
objComando = New OleDbDataAdapter(objSelect, strConexion)
objComando.Fill(objDS, "CV_PROGRAMA")
Dim Row
Dim I As Integer = 1
PROGRAMA.Items.Add("Seleccione")
PROGRAMA.Items.Item(0).Value = 0
For Each Row In objDS.Tables("CV_PROGRAMA").Rows
PROGRAMA.Items.Add(Row(1))
PROGRAMA.Items.Item(I).Value = Row(0)
I += 1
Next
objConexion.Close()
END SUB
SUB RELLENA_DDLSUBPROGRAMA()
' ---- CON ESTE RELLENAMOS EL DEL SUBPROGRAMA ----
Dim strConexion1 As String
Dim objConexion1 As OleDbConnection
Dim objComando1 As OleDbDataAdapter
Dim objDS1 As New DataSet
strConexion1 = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("TABLA.MDB")
objConexion1 = New OleDbConnection(strConexion1)
Dim objSelect1 as Object = "SELECT CV_SUBPROGRAMA FROM SUBPROGRAMAS WHERE CV_PROGRAMA = '@PROGRAMA' GROUP BY CV_SUBPROGRAMA"
objComando1 = New OleDbDataAdapter(objSelect1, strConexion1)
objComando1.Fill(objDS1, "CV_SUBPROGRAMA")
Dim Row1
Dim I1 As Integer = 1
SUBPROGRAMA.ITEMS.CLEAR
SUBPROGRAMA.Items.Add("Seleccione")
SUBPROGRAMA.Items.Item(0).Value = 0
For Each Row1 In objDS1.Tables("CV_SUBPROGRAMA").Rows
SUBPROGRAMA.Items.Add(Row1(1))
SUBPROGRAMA.Items.Item(I1).Value = Row1(0)
I1 += 1
Next
objConexion1.Close()
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<form runat="server">
Programa:
<asp:DropDownList id="PROGRAMA" runat="server" Font-Names="Verdana" Font-Size="10pt" AutoPostBack="True"></asp:DropDownList>
Subprograma:
<asp:DropDownList id="SUBPROGRAMA" runat="server" Font-Names="Verdana" Font-Size="10pt" AutoPostBack="True">
<asp:ListItem Text="Seleccione"></asp:ListItem>
</asp:DropDownList>
Subsubprograma:
<asp:DropDownList id="SUBSUBPROGRAMA" runat="server" Font-Names="Verdana" Font-Size="10pt" AutoPostBack="True">
<asp:ListItem Text="Seleccione"></asp:ListItem>
</asp:DropDownList>
</form>
</body>
</html>
o komo pasar la seleccion del dropdownlist como variable para que sirva al momento de pasar al segundo dropdownlist ....