Le he echo montones de modificaciones a ver si con algun cambio Funca, hasta el momento nada, si le quito el Handles no me da el error del WithEvents, pero oabviamente me sigue dando problemas lineas mas abajo, lamentablemente no he podido encontrar ejemplos claros con bases de datos, se me ha armado un lio volver a hacer la consulta a la base porque no se como abrirla nuevamente etc.
aqui les pinto el codigo completo a ver si alguien se apiada de este novato.
<%@ Page Language="VB"%>
<%@ Import Namespace = "System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<script runat="server">
Dim MyConnection As OleDbConnection
Dim MyConnection2 As OleDbConnection
Sub Page_Load(Sender As Object, E As EventArgs)
MyConnection = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("../wwww/aaaads.mdb"))
'If Not (IsPostBack)
Dim DS As DataSet
Dim MyCommand As OleDbDataAdapter
MyCommand = New OleDbDataAdapter("select distinct variedad from vinos", MyConnection)
DS = new DataSet()
MyCommand.Fill(DS, "vinos")
MySelect.DataTextField= "Variedad"
MySelect.DataValueField ="Variedad"
MySelect.DataSource= DS.Tables("vinos").DefaultView
MySelect.DataBind()
'End If
End Sub
Private Sub MySelect_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
'Handles MySelect.SelectedIndexChanged
'Aqui ejecutas la consulta
Dim varieda as string
Varieda= MySelect.SelectedValue.ToString()
MyConnection2 =New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("../rrrrr/ooooo.mdb"))
Dim DS1 As DataSet
Dim MyCommand1 As OleDbDataAdapter
MyCommand1 = New OleDbDataAdapter("select * from vinos where cepa='"&Varieda&"'", MyConnection2)
DS1 = new DataSet()
MyCommand1.Fill(DS1, "vinos")
MyList1.DataTextField= "cepa"
MyList1.DataValueField ="cepa"
MyList1.DataSource= DS1.Tables("vinos").DefaultView
MyList1.DataBind()
End sub
</script>
</head>
<body>
<form runat="server">
<h3>ListBox AutoPostBack Example</h3>
Select an item from the list box: <br><br>
<asp:ListBox id="MySelect"
DataField="Variedad"
Rows="4"
Width = "200"
height = "300"
AutoPostBack="True"
SelectionMode="Single"
runat="server"/>
<asp:ListBox id="Mylist1"
DataField="cepa"
Rows="4"
Width = "200"
height = "300"
AutoPostBack="True"
SelectionMode="Single"
runat="server"/>
<br><br>
</form>
</body>
</html>