Visual Basic Foro

Te arme un ejemplo con un treeview para que uses de referencia, en el rar esta el esquema de la tabla pero lo explico aca para que quede claro.

La tabla tiene, en este caso 3 columnas

ID - que es el id autonumerico
nombre -  el nombre del menu
parent - la refecencia al ID del nodo PADRE


Aca estan los datos que use para el ejemplo

"ID"   "nombre"   "parent"
"1"   "Main Menu1"   "0"
"2"   "Sub1"                 "1"
"3"   "Sub2"                 "1"
"4"   "MainMenu2"   "0"
"5"   "Sub1"                 "4"
"6"   "Sub Sub1"   "2"

Si por ejemplo miras el item 6 vas a ver que tiene como parent el item 2 que a su vez tiene como parent el item 1, por ende eso representa una estructura asi

Main Menu1>Sub1>Sub Sub1

La estructura es simple, no creo que tengas mayores problemas.

https://dl.dropbox.com/u/43394978/Nueva%20carpeta.rar

Cual es la estructura de la tabla donde tenes este menú? me parece que ahí empieza el problema

Si se puede, lo que haces es en un modulo o en el mismo donde tenes esta funcion agregas una funcion publica asi.

Public Function MsgBox(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context)

End Function

esa funcion va a tener prioridad sobre la de VB, ahi dentro agregas lo que quieras, por ejemplo la llamada al modulo ese.

Y no se puede poner un triger que actualice una tabla donde se guarde por ejempo, nombredb, timestamp de la modificacion, y luego consultar el timestamp de modificacion y ver si es diferente al que tenemos en el programa?. Digo para no "recargar todo" permanentemente

xEntero = Val(Text1.Text) \ 12 '<--Parte entera
xUnidad = Val(Text1.Text) Mod 12'<--Resto


Pregunta, alguien tiene idea de como ejecutar eso desde VB? desde MS SQL management funciona pero en VB no se como hacer para que me devuelva datos.

    Dim sSql        As String
    Dim objRecord   As Recordset
   
    sSql = _
       " DECLARE @t TABLE " & _
       "   ( " & _
       "      [name]   VARCHAR(50), " & _
       "      [type]   VARCHAR(50), " & _
       "      updated  VARCHAR(10), " & _
       "      selected VARCHAR(10), " & _
       "      [column] VARCHAR(50) " & _
       "   ) " & _
       " INSERT INTO @t " & _
       " EXEC Sp_depends " & _
       "   'cd_spi_grabar_imputacion' " & _
       " SELECT " & _
       "   [name] " & _
       " FROM " & _
       "   @t " & _
       " WHERE[type] = 'stored procedure' "
       
    Set objRecord = m_Connection.Execute(sSql)

Gracias

Lo resolvi de otra manera, llamo
" EXEC Sp_depends " & _
       "   'cd_spi_grabar_imputacion' "

y listo.

Gracias Seba, entiendo eso, lo que no logro comprender es:

En el segundo ejemplo se hace un join y posteriormente se aplica el filtro que esta en el where, en el tercer y primer ejemplo se hace un join con todas las condiciones, basicamente esa es la diferencia. Ahora mi pregunta es, para ser mas concreto, en el primer ejemplo sintacticamente como hago para saber donde termina el JOIN? ahora se por los test que abarca todo pero sintacticamente es imposible saber lo que esta pasando. Por logica yo hice el segundo ejemplo pero resulto ser que estaba mal y no se como detectar estas cosas de manera sintactica sin tener que correr las consultas una por una.

Espero que se entienda lo que digo.

Perdon que bumpee el tema pero quedo en el olvido y aun tengo la duda.