• Miércoles 15 de Mayo de 2024, 09:12

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - MeLaT

Páginas: [1] 2
1
Visual Basic 6.0 e inferiores / Re: Manipulación De Filas De Un Datagrid
« en: Viernes 31 de Agosto de 2007, 20:44 »
Ya esta . . .  :P  . . ., se trata de la propiedad del DataGrid .Columns.Item () , eso es lo que buscaba:

Código: Text
  1. Private Sub DataGrid1_DblClick() ' _Click()
  2.      answr = MsgBox("¿Desea utilizar el Dato: " & DataGrid1.Columns.Item(1) & ".", vbYesNo, "Obtener Datos")
  3.      If answr = vbYes Then
  4.           MsgBox "Si"
  5.      ElseIf answr = vbNo Then
  6.           MsgBox "No"
  7.      End If
  8. End Sub
  9.  
  10.  

2
Visual Basic 6.0 e inferiores / Manipulación De Filas De Un Datagrid
« en: Jueves 30 de Agosto de 2007, 23:49 »
Hola, tengo un DataGrid ya cargado con ciertos datos.

Mi pregunta es, cómo hago para que cuando le de Click o Dblclick a una fila, verifique un campo de la fila que seleccionó y me lo guarde en una variable.

Según me dijeron se tiene que hacer con API's o algo asi, pero nunca he trabajado con eso.

Hay algún código que me puedan facilitar al Click o Dblclick en el DataGrid.
O algo asi como que selecciona el usuario una fila y luego le da click en un botón y poder saber qué datos tiene la fila que seleccionó.

Gracias.

Espero sus respuestas o que me digan que tengo que investigar para poder hacer esto.

3
Visual Basic 6.0 e inferiores / Re: Sentencia Sql - Fecha Con Formato
« en: Jueves 30 de Agosto de 2007, 23:27 »
Muchas Gracias por sus comentarios y sugerencias

-  :P  ArKaNtOs  ;)  
-  :P  F_Tanori  ;)  
-  :P  Angel38  ;)  

Ya lo slocucioné . . .
No había intentado con el signo de igual. Lo probé y resultó. La opción que me quedaba era dejar el tipo de dato como varchar, pero no tube que hacerlo, es más, no tube que cambiar el orden de la fecha, resulto bien.

Código: Text
  1.  
  2. " . . . FECHA1 = '" & v_fecha1 & "')" . . .
  3.  

4
Visual Basic 6.0 e inferiores / Re: Sentencia Sql - Fecha Con Formato
« en: Jueves 30 de Agosto de 2007, 16:00 »
:unsure:  Ya intené eso cambiando la posición de la fecha de la variable:

Código: Text
  1. a = Left(v_fecha1, 2)
  2. b = Mid(v_fecha1, 4, 2)
  3. c = Right(v_fecha1, 4)
  4. v_fecha1= b & "/" & a & "/" & c
  5.  
  6.  

Tienen que ver en algo estos símbolos, ya sea al principio o al final de la variable,
$ - # - % . . .  :huh:  ?!

Gracias por responder ArKaNatOs . . .

5
Visual Basic 6.0 e inferiores / Sentencia Sql - Fecha Con Formato
« en: Jueves 30 de Agosto de 2007, 00:47 »
Trabajando con Visual Basic 6.0 y SQL Server.

En la TABLA1, tengo un campo llamado FECHA1 de tipo datetime;
en la TABLA1, tengo este otro campo llamado FECHA2 de tipo varchar.

Si consulto con lo siguiente FECHA1, no obtengo resultados.  <_<

Código: Text
  1. Dim v_fecha1 as Date
  2. v_fecha1 = txt_fecha1.text
  3.  
  4. "
  5. SELECT *
  6. FROM TABLA1, TABLA2
  7. WHERE
  8.    (TABLA1.FECHA1 LIKE " & v_fecha1 & ")
  9.    AND
  10.    (TABLA1.CLIENTE=TABLA2.CLIENTE)
  11. ORDER BY TABLA1.ID
  12. "
  13.  

Si consulto con FECHA2, si obtengo los resultados deseados  ;) . Eso me hace buscar salida mandando el valor de la fecha con formato  :) , para que FECHA1, que es de tipo datetime encuentre coincidencia. He utilizado:

Código: Text
  1.  1.   (TABLA1.FECHA1 LIKE '#" & v_fecha1 & "#')
  2.  2.   (TABLA1.FECHA1 LIKE '#" & format(v_fecha1, 'dd/mm/yyyy') & "#')
  3.  3.   (TABLA1.FECHA1 LIKE '" & v_fecha1 & "%')
  4.  
  5.  

Tal vez no esta bien la sentencia  :unsure: , si alguien ha hecho algún tipo de consulta parecida, porfavor dime que formato le diste a la fecha, o cómo es tu sentencia SQL.

Gracias.  :hola:

6
Flash / ActionScript / Otra Duda . . . Un Poco Diferente . . .
« en: Domingo 29 de Julio de 2007, 23:33 »
Esta discusión debía ir como respuesta en:

- En IE se le tiene que dar clic a un *.swf para controlarlo -


:hola:  Hola ! ! !

Gracias a esta discusión también puse en su lugar el código para que en IE se puedan ver los archivos flash sin que le tubieran que dar clic  :D . Pero . . .  :blink:

 . . . como puedo redimensionar la altura y anchura del archivo flash  :blink:  ?!

Por que si sólo pongo números menores, corta la altura y anchura del archivo pero no lo redimensiona . . .  :(

Tengo que directamente cambiar mi archivo .fla, o hay otra solución  :huh:  ?!

Gracias.  :D

7
Flash / ActionScript / Menu En Frames
« en: Lunes 16 de Julio de 2007, 23:05 »
Hola  :hola: , estoy trabajando en Dreamweaver e hice un menú en Flash MX Pro,
la página que estoy haciendo tiene frames:

Código: Text
  1. <frameset rows="100,*" cols="*" frameborder="NO" border="0" framespacing="0">
  2.   <frame src="topF.htm" name="topF" scrolling="NO" noresize >
  3.   <frameset rows="*" cols="160,*" framespacing="0" frameborder="NO" border="0">
  4.     <frame src="leftF.htm" name="leftF" scrolling="NO" noresize>
  5.     <frameset rows="*,100" frameborder="NO" border="0" framespacing="0">
  6.     <frame src="mainF.htm" name="mainF">
  7.     <frame src="bottomF.htm" name="bottomF" scrolling="NO" noresize>
  8.   </frameset>
  9.   </frameset>
  10. </frameset>
  11.  

En "leftF.htm" tengo el menú  :) , y obvio cuando a algún botón del menú es presionado se cambia la página "mainF.htm" por otras, tengo este código en el action de los botones (desde flash), pero no cambia nada  :blink: :

Código: Text
  1. on (release) {
  2.   getURL("ubicacion.htm", "mainF");
  3.   // esa es una de las páginas que se abren dependiendo en que botón dio el clic
  4.   // getURL("http://www.google.com", "_blank");
  5.   // porbe abrir google, pero tampoco
  6. }
  7.  

Esta mal el código ?!  :huh:  O algo estoy haciendo mal ?!  :huh:  O algo no estoy haciendo ?!  :huh:

Gracias, por su aporte . . .  :hola:

8
Visual Basic 6.0 e inferiores / Re: Sentencia Sql
« en: Jueves 28 de Junio de 2007, 18:21 »
Ok Usercode  :hola: , lo intentaré con formato a ver si algo sucede  :P . Aunque si se tratara de que la sentencia esta mal, tal vez debería mandarme un error o algo no ?!

Simplemente lee la instrucción pero la pasa de largo, no marca error ni na' . . .  <_<  .

Código: Text
  1. Report.SQLQueryString = "SELECT * FROM  DIR WHERE (FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#)"
  2.  

9
Visual Basic 6.0 e inferiores / Sentencia Sql
« en: Miércoles 27 de Junio de 2007, 19:48 »
Tengo un DataReport1 que muestra un informe con registros por fechas que estan dentro de un rango (DATE1 y DATE2, son las variables que almacenan esas fechas, en un formulario se especifican esas fechas y se guardan como variables globales).

En el código del DataEnvironment tengo esto:

Código: Text
  1. Private Sub DataEnvironment_Initialize()
  2.    Me.Commands(1).CommandType = adCmdText
  3.    'la sentencia anterior es la que permite modificar el texto del command1
  4.    Me.Commands(1).CommandText = "SELECT  * FROM DIR WHERE (FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#)"
  5.    ' la sentencia anterior modifica la sentencia SQL y permite que cuando cargue el DataEnvironment las fechas estén dentro del rango DATE1 y  DATE2
  6. End Sub
  7.  

Pues ahi esta el reporte, pero hay ciertas cosas que no me permite hacer el DataReport, como el poner campos de la tabla al pie del informe, etc. Y por eso agregué un reporte Crystal Reports, tratando de hacer lo mismo y cambiar la sentencia SQL, tengo en la parte de código del reporte:

Código: Text
  1. Private Sub Report_Initialize()
  2. Report.SQLQueryString = "SELECT * FROM  DIR WHERE (FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#)"
  3.  
  4. 'Report.SQLQueryString ="SELECT * FROM  DIR WHERE FECHA BETWEEN '" & DATE1 & "' AND '" & DATE2 & "'"
  5.  
  6. End Sub
  7.  

Trate con esas dos sentencias pero no cambia nada, abre el reporte con la sentencia que tenia:

Código: Text
  1. SELECT * FROM DIR
  2.  

Me parece que me falta alguna sentencia que permita hacer el cambio del texto del comando como en el DataReport, o son otras intrucciones, o algo asi ?!

Cualquier comentario lo agradecería.

10
Crystal Reports / Modificar Sentencia Sql En Comando
« en: Miércoles 27 de Junio de 2007, 01:10 »
En Crystal Reports tengo un comando que tiene como sentencia SQL

Código: Text
  1. SELECT *
  2. FROM DATOS
  3. WHERE (FECHA BETWEEN #29/04/2007# AND #30/04/2007#)
  4.  

Y me despliega todos los registros entre esas fechas. Pero quisiera que esas dos fechas provengan de VB 6.0. Lo que hice fue dejar la sentencia SQL en Crystal Reports como:

Código: Text
  1. SELECT *
  2. FROM DATOS
  3.  

En el progama que tengo en VB, en la parte de código del reporte CrystalReport1.Dsr:

Código: Text
  1. Private Sub Report_Initialize()
  2. CrystalReport1.SQLQueryString = CrystalReport1.SQLQueryString & " WHERE (FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#)"
  3.  
  4. 'CrystalReport1.SQLQueryString = CrystalReport1.SQLQueryString & " WHERE FECHA BETWEEN '" & DATE1 & "' AND '" & DATE2 & "'"
  5.  
  6. End Sub
  7.  

Pero el reporte aparece como si lo estubiera abriendo con la misma sentencia que tiene el comando en el Crystal Report, no modifica la sentencia, la lee pero no la cambia.

Algún comentario  :o , a alguien le a pasado  :huh: . O alguna manera de pasar esas variabes (DATE1 y DATE2) al reporte en Crystal Report. Esto lo he hecho con los reportes normales de visual y lo que hago es poner esto en el código del DataEnvironment:

Código: Text
  1. Private Sub DataEnvironment_Initialize()
  2.     Me.Commands(1).CommandType = adCmdText
  3.     Me.Commands(1).CommandText = "SELECT * FROM TABLA1, TABLA2 WHERE (TABLA1.LETRA=TABLA2.LETRA) AND TABLA1.LETRA = " & VSLETRA
  4. End Sub
  5.  

Lo que hace en esa sentencia es que en la TABLA1 y TABLA2 busca el mismo registro del campo LETRA, ese registro es la variable que se obtiene de un form, la variable es VSLETRA.

11
Visual Basic 6.0 e inferiores / Cargando Textbox Con Combobox
« en: Domingo 1 de Abril de 2007, 07:14 »
Hola !!!

El siguiente código lo tengo en un combobox. Con este quiero que cuando seleccionene un item de los que tiene, varios textbox se carguen dependiendo de lo que haya seleccionado haciendo una conexión a SQL.

Código: Text
  1. Private Sub cmb_sistemac_Change()
  2.     If cmb_sistemac.Text = "1A" Then
  3.         nuevoT          'vacia los textbox
  4.         CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')"
  5.         abrirRS          'abre el RecordSource
  6. 'cargar los campos relacionados con el sistema elegido
  7.         If RS.EOF Then
  8.             MsgBox "El sistema fue modificado.", vbExclamation, "Sistema"
  9.         Else
  10.             txt_semana.Text = RS!SIS_SEMANA
  11.             txt_dia.Text = RS!SIS_DIA
  12.             txt_mes.Text = RS!SIS_MES
  13.             txt_otro.Text = RS!TST_VALOROTROS
  14.         End If
  15.     Elseif
  16. cmb_sistemac.Text = "1B" Then
  17.         nuevoT          'vacia los textbox
  18.         CRITERIO = "SELECT * FROM T_SISTEMA WHERE (SIS_SISTEMA LIKE '" & cmb_sistemac & "')"
  19.         abrirRS          'abre el RecordSource
  20. 'cargar los campos relacionados con el sistema elegido
  21.         If RS.EOF Then
  22.             MsgBox "El sistema fue modificado.", vbExclamation, "Sistema"
  23.         Else
  24.             txt_semana.Text = RS!SIS_SEMANA
  25.             txt_dia.Text = RS!SIS_DIA
  26.             txt_mes.Text = RS!SIS_MES
  27.             txt_otro.Text = RS!TST_VALOROTROS
  28.         End If
  29.     End If
  30. End Sub
  31.  

Pero me manda un "error de compilación y variable no definida" y señala a: "RS!SIS_SEMANA", en que ando mal ?!

Gracias. . .

12
Visual Basic 6.0 e inferiores / Reporte, Mandar Una Variable Al Command
« en: Martes 27 de Marzo de 2007, 18:44 »
Hola !!
He hecho reportes pero con todos los registros de una tabla.
Ahora quiero un reporte de un sólo registro tomando en cuenta 2 tablas. Tengo un DataEnvironment con un command con el origen de datos con conexión sql:

Código: Text
  1. select *
  2. from T_COND, T_VEH
  3. where (T_COND.TVH_ZE=T_VEH.TVH_ZE) and T_COND.TVH_ZE = ZE
  4.  
  5.  

Debo mencionar que la sentencia SQL si esta bien, por que la probe como vista en la bd, obvio que cambie el ZE por un número existente. Pero bueno, regresando al DataReport, si utilizo like abre el reporte, pero no se ve el registro. (LIKE ' & ZE &') Si utilizo el igual me manda:
"El parámetro ZE no tiene un valor predeterminado."

Con lo cual creo que no reconoce la variable ZE, pero no se cómo enviarla del InputBox a la variable que tiene el command.

El reporte lo abro desde un menú, y ya tiene los RptTextBox con el campo y la variable ZE la pregunta un inputbox. Pero no se como mandarle el valor que introdujo en el inputbox, o tal vez ni siquiera es asi.

Alquien me podría decir que utilizo o en dónde pongo el código.

En el inputbox tengo esto:
Código: Text
  1. ZE = InputBox("Introduce la Zeta que desea ver en el reporte:", "Zeta")
  2. If IsNumeric(ZE) Then
  3.    If ZE > 0 And ZE < 500 Then
  4.       'asi lo puse pensando que envia ZE ,pero no
  5.       'dtr_info.Show (ZE)
  6.       dtr_info.Show
  7.    Else
  8.           Exit Sub
  9.    End If
  10. Else
  11.    Exit Sub
  12. End If
  13.  

Cualquier comentario se agradece...

13
Visual Basic 6.0 e inferiores / Re: Combobox Con Item Seleccionado
« en: Martes 27 de Marzo de 2007, 17:58 »
Ok. Muchas Gracias mamex.

Si, sólo tenía que colocar el campo de la bd en el combo, ups.

Qué diferencia hay entre usar:
Código: Text
  1. cmb_name.text = RS.Fields("TIM_NAME")
  2. 'o
  3. cmb_name.text = rs!TIM_NAME
  4.  

14
Visual Basic 6.0 e inferiores / Re: Conectado A Sql 2000
« en: Viernes 23 de Marzo de 2007, 22:58 »
:yes: Si. Empiezo mis proyectos desde 0. Pero acudo a este foro para mis dudas  :P.
Ok. Muchas gracias por tus aportes "elnapster". :gracias:

15
Visual Basic 6.0 e inferiores / Re: Combobox Con Item Seleccionado
« en: Viernes 23 de Marzo de 2007, 22:52 »
Tal vez no me explique bien, mira lo que hace un Form1 es:
 
1. Cuando se abre un Form1, ComboBox1 se carga con todos los campos de una tabla con el código que puse, eso ya esta.
2. Al evento clic de un Command1 se busca un registro en la base de datos, y si se encuentra el registro empieza a llenar Text1, Text2, etc. Eso también ya lo tengo. Pero cuando llego al ComboBox1, ahi es donde me quedo, no se que propiedad tengo que utilizar para que un item de los que ya estan cargados en ComboBox1 y que sea igual que el dato que tengo en un campo de la base de datos este seleccionado.

Por ejemplo:
1. Al abrirse Form1 a ComboBox1 se le añaden estos items:

Ayer
Hoy
Mañana

2. Al evento _clic de un Command1 se busca un registro en la base de datos, si lo encuentra, en un campo de cierta tabla que se llama días, ese registro que busque tiene en un campo Mañana. Cómo hago para que en ComboBox1 quede seleccionado Mañana y no Ayer u Hoy?

Mañana

Gracias por sus aportes. Estoy en Duda.

16
Visual Basic 6.0 e inferiores / Combobox Con Item Seleccionado
« en: Viernes 23 de Marzo de 2007, 18:37 »
Hola !!!

Cuando abro un formulario, cargo un ComboBox (cmb_estado) asi:

Código: Text
  1.  
  2. If CN.State = 0 Then CONEXION
  3.     CRITERIO = "SELECT * FROM T_ESTADOS"
  4.     abrirRS
  5.     For i = 1 To RS.RecordCount
  6.         cmb_estado.AddItem RS.Fields("EDO_ESTADO")
  7.         RS.MoveNext
  8.     Next i
  9.  
  10.  

Pero cuando hago una busqueda y si encuentra el registro, cómo hago para que el elemento del ComboBox (cmb_estado) quede seleccionado dependiendo del que tenga en la bd.

17
Bases de Datos / Re: Conexión A Sql
« en: Viernes 23 de Marzo de 2007, 18:26 »
Cita de: "elnapster"
Que error te esta devolviendo ?  :ph34r:
Ninguno, simplemente no se conecta.

Como tengo que entregar este proyecto para revisión el lunes, voy a utilizar Access. Creo que cuando ya este funcionando será un poco más fácil solo cambiar el tipo de conexión de Access a SQL Server, al fin que ya tengo la bd en Access y SQL, o es muy dificil o tiene complicaciones hacer ese cambio ?!

18
Visual Basic 6.0 e inferiores / Re: Conectado A Sql 2000
« en: Viernes 23 de Marzo de 2007, 18:22 »
Cita de: "elnapster"

Depende lo que quieras hacer ....  :rolleyes:
Ok, bueno, entonces creo que cuando se trate de un error en declaraciones deberia buscar una referencia, o no es sólo en declaraciones ?!

19
Bases de Datos / Conexión A Sql
« en: Viernes 23 de Marzo de 2007, 03:46 »
Hola, estoy haciendo pruebas y no me puedo conectar a la base de datos que tengo en SQL Server. Tengo esas conexiones, pero con ninguna me conecta . . .

Código: Text
  1.  
  2. Public Sub conectar()
  3.     On Error GoTo errorcnn
  4.     Set conn = New ADODB.connection
  5.     With conn
  6.         .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=paco;Database=mibase;USER=admin;PWD=005"
  7.         '.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=admin;pwd=005;Initial Catalog=mibase;Data Source=paco"
  8.         '.ConnectionString = "PROVIDER=MSDASQL;DNS=LocalServer;UID=admin;pwd=005;DATABASE=mibase"
  9.         '.ConnectionString = "Driver={SQL Server};Server=paco;Database=mibase;Uid=admin;Pwd=005;"
  10.     End With
  11.     edocnn = 1
  12. errorcnn:
  13.     MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
  14.     Exit Sub
  15. End Sub
  16.  
  17.  

La función conectar la llama cada formulario al evento click de un botón que puede ser aceptar o buscar o nuevo . . .

No se si tambien influya este otro código, para la entrada al sistema, que es el que ahora estoy probando para ver si hay conexión:

Código: Text
  1.  
  2. Private Sub cmd_aceptar_Click()
  3. conectar
  4. 'comprobar si la contraseña es correcta
  5. CRITERIO = "SELECT * FROM T_USUARIOS WHERE (TUS_USUARIO LIKE '" & txt_usuario.Text & "' AND TUS_CONTRASENIA LIKE '" & txt_contrasenia.Text & "')"
  6. On Error Resume Next
  7. rs.OPEN CRITERIO, conn, adOpenKeyset, adLockPessimistic
  8. If rs.EOF Then
  9.     LoginCount = LoginCount + 1
  10.     MsgBox "EL usuario o la contraseña no son válidos." & vbCrLf & "Vuelva a intentarlo", vbExclamation, "Inicio de sesión."
  11.     txt_contrasenia = ""
  12.     txt_contrasenia.SetFocus
  13.     If LoginCount >= 3 Then
  14.         MsgBox "No puede iniciar sesión." & vbCrLf & "Consulte al administrador del sistema.", vbExclamation, "Inicio de sesión"
  15.         Unload Me
  16.     End If
  17. Else
  18.     LoginSucceeded = True
  19.     Unload Me
  20.     frm_splash.Show
  21. End If
  22. End Sub
  23.  
  24.  

Gracias por sus aportes. Igual y estoy poniendo algo de más o mas bien me faltan cosas.

20
Visual Basic 6.0 e inferiores / Re: Conectado A Sql 2000
« en: Viernes 23 de Marzo de 2007, 02:27 »
Gracias.
No tenia idea que tenía que agregar referencias.
Utilicé " Microsoft ActiveX Data Objects 2.8 Library ".

Me podrían decir en qué otros casos debería agregar otra referencia ?!

21
Visual Basic 6.0 e inferiores / Conectado A Sql 2000
« en: Jueves 22 de Marzo de 2007, 18:28 »
Hola que tal. Este código lo uso en páginas web:

Código: Text
  1. Set ObjetoConexion = SERVER.CreateObject("ADODB.Connection")
  2. ObjetoConexion.OPEN "driver={SQL server};uid=MIO;pwd=098;database=mibase;server=10.000.0.000"
  3. SQL = "SELECT * FROM T_CONTRASEÑA, T_DTS_PERSONALES WHERE (T_CONTRASEÑA.DTSP_NOCTRL=T_DTS_PERSONALES.DTSP_NOCTRL)AND((T_CONTRASEÑA.DTSP_NOCTRL = '" & request.Form("TXT_USER") & "') AND (dbo.T_CONTRASEÑA.CONT_PASSWORD = '" & request.Form("TXT_PASS") & "'))"
  4. Set db = ObjetoConexion.EXECUTE(SQL)
  5.  

Pero ahora estoy trabajando con VB 6.0 y no me sirve de mucho. Tengo esto en el módulo, para que cada formulario mande llamar esta conexión:

Código: Text
  1.  
  2. Option Explicit
  3.     Public conn As ADODB.Connection
  4.     Public rs As ADODB.Recordset
  5.     Public CRITERIO As String
  6.     Public resp As String
  7.     Public edocnn As String
  8. Public Sub conectar()
  9.     On Error GoTo errorcnn
  10.     Set conn = New ADODB.Connection
  11.     With conn
  12.         .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=MIO;Database=mibase;USER=admin;PWD=0987"
  13.     End With
  14.     edocnn = 1
  15. errorcnn:
  16.     MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
  17.     Exit Sub
  18. End Sub
  19. Public Sub RS_ABRIR()
  20.     If rs.State = 1 Then rs.Close
  21.     rs.OPEN CRITERIO, conn, adOpenKeyset, adLockPessimistic
  22. End Sub
  23.  

Pero nisiquiera corre el programa por que en:
Código: Text
  1. Public conn As ADODB.Connection
  2.  
me marca un error de compilación, "No se ha definido el tipo por el usuario."

Nunca he trabajado con conexiones desde visualbasic6.0 a SQL, me podrían decir en que ando mal ?!

Gracias . . .

22
ASP .NET / Re: Action = ">%2 Páginas Diferentes%>"
« en: Miércoles 14 de Marzo de 2007, 02:20 »
Muchísimas gracias F_Tanori, esto es lo que estaba buscando  :P , me servirá de mucho.

Cita de: "F_Tanori"
    switch(frm.txt_user.value.length)
       {
      case 8:
        frm.action="ocho.asp";
      break;
      case 9:
        frm.action="nueve.asp";
      break;
       }
    frm.submit();

:gracias:

- Respecto de la frase:
  :alien:  Un día se me ocurrió pensar en lo que pasaría si sólo una persona en el mundo supiera algo que fuera importante para uno, algunos, muchos o todos. El dilema no era que supiera "eso" o no, sino la incógnita de saber si compartiría "eso" que sólo esa persona sabe.
Las conversaciones debajo de la frase las puse recordando a mis amig@s a los que les  mencioné por primera vez esa frase. Algo asi discutimos. :sorcerer: . -

23
ASP .NET / Action = ">%2 Páginas Diferentes%>"
« en: Martes 13 de Marzo de 2007, 00:11 »
:P  Hola que tal?!

Estoy en un proyecto donde la página de entrada tiene dos textfield, uno "txt_user" y otro "txt_pass". Pero quiero validar que si la clave de usuario que ingresa en "txt_user", tiene 8 caracteres, lo direcciona a una página, "ocho.asp", por ejemplo; o si tiene 9 caracteres, a "nueve.asp". Y si no tiene ni 8, ni 9, que lo direccione a la misma "entrada.asp".

Tengo este código en el action, pero me manda siempre a "ocho.asp"  :blink:  :

Código: Text
  1.  
  2. <form action="<%If len("TXT_USER")=8 Then%>ocho.asp<%ElseIf len("TXT_USER")=9 Then%>nueve.asp<%Else%>entrada.asp<%End If%>" method="post" name="FRM_Entrada" id="FRM_Entrada">
  3.  
  4.  

 :unsure:  No se si esta mal la condifción IF, o mejor utilizo un script. Pero no se como mandar una variable de session en un script y mandársela al asp.

O tienen otra idea para solucionar esto.

 :rolleyes:  Gracias por sus comentarios y opiniones.  :rolleyes:

P.D.: En si no estoy trabajando con ASP.NET, estoy creando las páginas en dreamweaver, pero utilizo páginas ASP y scripts (de java y de visualbasic).

24
Visual Basic 6.0 e inferiores / Re: En Reporte ?!
« en: Lunes 12 de Marzo de 2007, 05:33 »
Cómo es eso de los parámetros, es algo asi como que meter:

en la propiedad caption de un label una variable?!
O
en la propiedad text de una caja de texto una variable?!

O a que te refieres con parámetro mi estimado lencho ?!

:huh: Estoy en duda . . .

;) Es algo asi:

label1.caption = "Mi nombre es " + vnombre + " y tengo " + vedad + " años."
text1.text = "Mi nombre es " + vnombre + " y tengo " + vedad + " años."

:) Por tu sugerencia, Gracias Lencho !!!

25
Visual Basic 6.0 e inferiores / Re: En Reporte ?!
« en: Sábado 10 de Marzo de 2007, 21:47 »
Y si son varias hojas mamex, hago todo en un mismo picture o varios formularios ?!

:)  Gracias por tu aporte.

Páginas: [1] 2