Mensajes

bueno hadess_inf
intente aserlo como em dices pero mediceke se esperaba un objeto
y no pude
y pensando
ise lo mismo pero asi


dim Ws as MSWinsocklib

estoy bien o no se ni quediablos hago?????

Eso es porque no has instanciado el socked.
Insertar Cita
dim sock as System.Net.Sockets
sock =  new System.Net.Sockets

[Caso 1]

Para redireccionar desde 1 dropdownlist:

Caso 1
1) Propiedad Autopostback = true del control dropdownlist
2) Agregar los elementos desde propiedad Items del Control o desde el Smart Tag
3) Evento dropdownlist_indexchange:

sub dropdownlist1_indexchange(...)...
dim pagina as string
select case dropdownlist1.selectedindex
case 0: pagina="Pagina1.aspx"
case 1: pagina="Pagina2.aspx"
case 2: pagina="Pagina3.aspx"
end case
response.redirect(pagina)
end sub

Yo logro redireccionar una sola opcion con el autopostback pero las demas opciones toma el valor de la primera, y esa no es la idea, la idea es que se vaya a diferentes paginas...

Quizas el error este en que has agregado los items en el evento load de la pagina, para solucionar ese problema agrega lo siguiente en el load.

sub Page_load(...)...
if not page.ispostback then
dropdownlist1.items.add ("Pagina 1")
dropdownlist1.items.add ("Pagina 2")
dropdownlist1.items.add ("Pagina 3")
end if
end sub

Seguir los pasos 1 y 3 del caso 1

Saben como hacer por javascript, asi lo redirecciono desde la propia pagina web...
Saludios

En la cabezera de la pagina agrega la siguiente funcion

<script>
function redireccion(obj)
{
if(obj==1)
{
document.location = 'mipagina.aspx';
}
else
{
document.location = 'mipaginaopcional.aspx';
}
}
</script>

En el evento laod agrega las siguientes lineas de codigo:

sub page_load(..)..
dropdownlist1.attributes.add ("onchange","javascript:redirecciona(" & dropdownlist1.selectedindex & ");")

Saludos.
end sub

dim sock as System.Net.Sockets

['Esto es lo que puedes modificar, puedes reducirlo.]

Hola nuevamente, bueno, es lo unico que queria saber, empezemos. Antes que nada decirte que particularmente me gusta usar la menor cantidad de variables posible. y trabajar por bloques. Si lo que deseas hacer es mostrar una subcategoria de una categoria solo es usar bucles (en este caso usare for), veamos un ejemplo:

Imports system.data.sqlclient
Public class formulario
Dim con as new sqlconnection("integrated security=sspi;data source=(local);initial catalog=DB")
Dim da as sqldataadapter
Dim dtb,d1,d2,d3,d4,d5 as Datatable

function Direccion() as datatable
da = new sqldataadapter("select id_direccion,direccion from direccion",con)
dtb = new datatable
da.fill(dtb)
return dtb
end function

function subdireccion(byval id as string) as datatable
da = new sqldataadapter("select id_subdireccion,direccion from subdireccion where id_direccion='" & id & "'",con)
dtb = new datatable
da.fill(dtb)
return dtb
end function

function departamento(byval id as string) as datatable
da = new sqldataadapter("select id_departamento,departamento from departamento where id_subdireccion='" & id & "'",con)
dtb = new datatable
da.fill(dtb)
return dtb
end function

function oficinas(byval id as string) as datatable
da = new sqldataadapter("select id_oficina,oficina from oficina where id_departamento='" & id & "'",con)
dtb = new datatable
da.fill(dtb)
return dtb
end function

'Esto es lo que puedes modificar, puedes reducirlo.

sub llenatreeview()
dim a,b,c,d as integer
dim id1,id2,id3,id4 as string 'variable para los codigos
dim ca1,ca2,ca3,ca4 as string 'variable para los textos
for a = 0 to direccion.rows.count-1
id1 = direccion.rows(a)("id_direccion").tostring
ca1 = direccion.rows(a)("direccion").tostring
treeview1.nodes.add (ca1)
for b = 0 to subdireccion(id1).rows.count-1
  id2 = subdireccion.rows(b)("id_subdireccion").tostring
  ca2 = subdireccion.rows(b)("subdireccion").tostring
  treeview1.nodes(treeview1.nodes.count-1).nodes.add (ca2)
  for c = 0 to departamento.rows.count-1
   id3 = departamento.rows(c)("id_departamento").tostring
   ca3 = departamento.rows(c)("departamento").tostring   
   treeview1.nodes(treeview1.nodes.count-1).nodes(treeview1.nodes(treeview1.nodes.count-1).nodes.count-1).nodes.add (ca3)
   for d = 0 to oficinas.rows.count-1
    id4 = departamento.rows(c)("id_departamento").tostring
    ca4 = departamento.rows(c)("departamento").tostring   

   end for
end for
end for
end for
end sub
end class

Tambien tener en cuenta que puedes usar recursividad, puedes mirar este post, y reducir el bloque de codigo. Saludos. Espero sirva.

http://foro.elhacker.net/index.php/topic,186323.0.html

Has generado algo de codigo, alguna idea tienes de como hacerlo o no ¿?

NO especificaste que lo necesitabas para C#.

Si queda algo en concreto avisenme. Para aportar.

[msgbox dtb.rows(a)("NOMBRE").tostring()]

Imports system.data.sqlclient

dim con as new sqlconnection("...")
dim da as sqldataadapter
dim dtb as data.datatable

sub form_load(...)
da = new sqldataadapter("select * from usuario",con)
dtb = new data.datatable
da.fill(dtb)
if dtb.rows.count <> 0 then
   dim a as integer
   for a = 0 to dtb.rows.count-1
      msgbox dtb.rows(a)("NOMBRE").tostring()
   end for
end if
end sub

Donde:

'Libreria que usaras para realizar las conexiones a tu base de datos y demas. SI no agregas esto al inicio no podras usar: sqlconnection, sqldataadapter y por ende no podras hacer lo que deseas.
Imports system.data.sqlclient

'variable para tu conexion, aqui definiras los parametros, como servidor, base de datos, etc
dim con as new sqlconnection("...")
'Variable donde almacenaras la consulta que ingreses, es como el recordset del vb6
dim da as sqldataadapter
'Complemento del sqldataadapter, no es necesario que lo uses para este caso, pero a mi se me hace mas sencillo usarlo. Es una tabla, se te hara mas facil el uso de filas y columnas
dim dtb as data.datatable

'Se instancia el sqldataadapter y se le designa la consulta que se desea en este caso la consulta a la tabla usuario. Se requieren dos parametros: (cadena,con), donde cadena representa la consulta y con representa la cadena de conexion (previamente asignada).
da = new sqldataadapter("select * from usuario",con)

'Se instancia la tabla para poder usarla
dtb = new data.datatable

'Se llena la tabla dtb con los datos que retorna la consulta que contiene el adaptador da, en este caso la consulta es: "select * from usuario"
da.fill(dtb)

'Se verifica si la tabla tiene filas, con la propiedad rows.count, esta propiedad retorna cuantas filas tiene la tabla dtb, en el caso que si tenga se ejecuta el bloque de codigo.
if dtb.rows.count<>0 then

'COmo te podras dar cuenta, este es el contados.
for a = 0 to dtb.rows.count-1

'Este es el punto que necesitas, aqui vas a mostrar el campo que necesites de la consulta que hiciste en el sqldataadapter previamente, acontinuacion te explico la sintaxis, y los parametros: Tomaremos el siguiente ejemplo:
                  Campo Nombre
rows(0) --->  JUAN
rows(1) --->  JOSE LUIS
rows(2) --->  MARIELA
rows(3) --->  SILVIA

- rows(a) = rows indica la fila y (a) indica el indice, entonces si a = 2, rows(2) retornara la fila donde el campo nombre es MARIELA, pero aun falta designar que campo queremos que se muestre, en este caso el Nombre.
- rows(a)("nombre").tostring = despues de designar la fila de la cual queremos mostrar los datos, tambien debemos asignar el campo, esto se logra agregando: ("nombre").tostring, donde "nombre" representa el nombre del campo a mostrar y tostring es la funcion que convierte a cadena el campo seleccionado.
dtb.rows(a)("NOMBRE").tostring()

Saludos y espero que te sirva.

No entiendo bien la pregunta pero supongo que lo que deseas hacer es llamar a un mismo procedimiento una cantidad X de veces, si ese es el caso haz lo siguiente, sino es lo que necesitas replantea la pregunta:

sub form_load(...)
dim a as integer
for a = 0 to 10
muestra()
end for
end sub

sub muestra()
msgbox "poner el codigo que se desea"
end sub

[Caso I]

Caso I
Dim a As Integer = 11
Dim cod As String = "0000".Substring(0, 4 - a.ToString.Length) & a
MsgBox(cod)

Caso II
dim da as sqldataadapter
dim con as sqlconnection
dim dtb as data.datatable

function generacodigo() as string
da = new sqldataadapter("select count(*)+1 as [num] from factura",con)
dtb = new data.datatable
da.fill(dtb)
dim num as integer = dtb.rows(0)("num").tostring
dim cod as string = "0000".substring(0, 4 - num.tostring.length) & num
return cod
end function

SUb Form_Load (...)
msgbox generacodigo
end sub

Caso III
dim da as sqldataadapter
dim con as sqlconnection
dim dtb as data.datatable

function generacodigo() as string
da = new sqldataadapter("select * from factura",con)
dtb = new data.datatable
da.fill(dtb)
dim num as integer = dtb.rows.count + 1
dim cod as string = "0000".substring(0, 4 - num.tostring.length) & num
return cod
end function

SUb Form_Load (...)
msgbox generacodigo
end sub

PD: Recordar que el 4 de color rojo, representa el tamaño del codigo, en este caso el codigo es de 4 digitos, si fuese mayor o menor se debera cambiar ese valor.

PD: Recordar que puedes poner digitos alfanumericos, podria ser FA0001, y si ese fuese el caso el valor que se indica de color Rojo, tendria que ser del tamaño de tu cadena.

PD: Recordar tambien que la consulta puede cambiar, segun lo que desees, mientras que en el primer caso cuentas cuantos registros hay para luego filtrar unicamente el campo num(dtb.rows(0)("num").tostring), en el segundo muestras todos para luego contarlos con el dtb.rows.count. Particularmente prefiero usar la primera opcion.

Debido a que es un ejemplo deberas configurar tu cadena de conexion para la variable con, la declaracion e instanciar las mismas. Tampoco olvides agregar la libreria (imports System.Data.SqlClient).

Saludos, espero que te sirva.