ayudaurgente con dropdownlist
Publicado por Susan (3 intervenciones) el 05/11/2004 22:17:45
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Dim objConn, rs, sqlstr, lsttipos
'objConn = Server.CreateObject("ADODB.Connection") ' Set removed.
'objConn.Open("DSN=farmaclin;DBQ=C:\Inetpub\wwwroot\FARMACLIN\farmaclin.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;") ' Parentheses added.
'sqlstr = "SELECT * FROM tipo_producto;"
'rs = objConn.execute(sqlstr) ' Set statement removed.
'DropDownList1.DataSource = rs
'DropDownList1.DataValueField = "tipo_producto"
'DropDownList1.DataTextField = "nombre"
'DropDownList1.DataBind()
End Sub
'Dim objConn, rs, sqlstr, lsttipos
'objConn = Server.CreateObject("ADODB.Connection") ' Set removed.
'objConn.Open("DSN=farmaclin;DBQ=C:\Inetpub\wwwroot\FARMACLIN\farmaclin.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;") ' Parentheses added.
'sqlstr = "SELECT * FROM tipo_producto;"
'rs = objConn.execute(sqlstr) ' Set statement removed.
'DropDownList1.DataSource = rs
'DropDownList1.DataValueField = "tipo_producto"
'DropDownList1.DataTextField = "nombre"
'DropDownList1.DataBind()
End Sub
Valora esta pregunta


0