elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10
71  Programación / Programación Visual Basic / Re: Conexion Con BBDD Lotus en: 2 Marzo 2010, 22:36 pm
Las modificaciones hasla sobre las tablas, no las vistas. Te recuerdo que las vistas son consultas realizadas a una o más tablas de una base de datos, incluso puede incluir vistas en dicha consulta. Por tal motivo no pueden ser editada su contenido. Sin embargo las tablas obviamente si permite la modificación de sus registros.
Citar
Las modificaciones hasla sobre las tablas
Intento sabes como poder crear una tabla dentro de names.nsf porque hasta ahora solo tenia vistas pero nos e como crear en lotus una tabla dentro del archivo .nsf.

creo que queda bastante claro que una vista  es una consulta a la tabla, no editable, pero mi pregunta es como puedo crear en LOTUS una tabla para luego poder realizar en enlace ODBC y asi poder realizar cambios en la tabla? En MySQL lo veo mucho mas facil, pero no se porque en LOTUS es distinto..
72  Programación / Programación Visual Basic / Re: Conexion Con BBDD Lotus en: 2 Marzo 2010, 09:27 am
y como hago para consegui entrar en la BBDD de names.nsf para podificar los campos?
existe alguna consulta  que me permita modificar la base si acceder por la vista?

Código
  1. rs2.Open "SELECT * from ?", CON2, adOpenDynamic, adLockOptimistic
73  Programación / Programación Visual Basic / Conexion Con BBDD Lotus en: 1 Marzo 2010, 07:48 am
Buenas Gente, os comento mi problema:

Necesito conectarme a una base de datos Lotus, he estado buscando por google y encontre la manera de hacerlo mediante ODBC:

Código
  1. Dim connstr As String
  2. Dim rt As ADODB.Recordset
  3.  
  4. Set rt = New ADODB.Recordset
  5. Set CON2 = New ADODB.Connection
  6. connstr = "Driver={Lotus NotesSQL driver (*.nsf)};"
  7. connstr = connstr & "Database=names.nsf;Server=server;"
  8. connstr = connstr & "Uid=user;" & "Pwd=pass"
  9.  
  10. If CON2.State = 0 Then
  11.    CON2.ConnectionString = connstr
  12.    CON2.Open
  13. End If
  14.  
  15. rs2.Open "SELECT * from ListadoUsuarios", CON2, adOpenDynamic, adLockOptimistic
  16.  
  17. MsgBox rs2.State
  18. variable1 = rs2.Fields("Firstname") & "YOYO"
  19. rs2.Fields("Firstname") = variable1
  20. rs2.Update
  21. rs2.Close

primero me saca por pantalla un mensaje diciendome el primero usuario y despues
el mensaje de Error que me saca cuando intenta modificarlo es el siguiente:


La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningun trabajo.

en el LOTUS la bbdd names.nsf tengo una vista que se llama ListadoUsuarios y es donde estoy apuntando con VB las conexiones se realizan bien y me deja consultar la información pero no modificarla. ¿Que puede estar ocurriendo? un saludo y gracias!





74  Programación / Programación Visual Basic / Re: Como puedo Unhookear las APis de user32.dll? en: 4 Enero 2010, 14:33 pm
muy bueno probare... ya posteare con lo ocurrido.. Mil Gracias!
75  Programación / Programación Visual Basic / Como puedo Unhookear las APis de user32.dll? en: 31 Diciembre 2009, 13:32 pm
Bueno pos esa es mi duda . Un saludo!
76  Programación / Programación Visual Basic / Re: Formularios Continuos VB en: 8 Octubre 2009, 08:32 am
Hola ahora como hago para descargar los controles? por que no funciona un simple Unload de Texto1 o unload Texto1(2) que peude estar pasando? VB me salta un error diciendo que se requiere un objeto. Un saludo
77  Programación / Programación Visual Basic / Re: Duda - Strings en: 23 Septiembre 2009, 01:11 am
Te voy a dar una para cualquier caracter de puntuación generalizado
No te lo doy hecho porque ahora no tengo tiempo pero es muy facil:

primero nos creamos una funcion que nos diga si 1 caracter es Signo de puntuacion

Código
  1. Private Sub EsPuntuacion(ByVal letra as char,Byref bandera as boolean)
  2.   select case letra
  3.   case '`'
  4.      bandera=true
  5.   case '´'
  6.      bandera=true
  7.   case 'á'
  8.      bandera=true
  9.   case else
  10.      bandera=false
  11.   end select
  12. end sub
'Despues haremos un bucle
Código
  1. Dim cadena as string
  2. Dim tamanoCad as integer
  3. Dim CadenaSalida as string
  4. Dim bandera as boolean
  5. CadenaSalida=""
  6. cadena ="Hola Pepe"
  7. tamanoCad=Len(cadena)
  8.  
  9. For i=1 To tamanoCad step 1
  10.   EsPuntuacion(mid(cadena,i,1),bandera)
  11.   if bandera then
  12.      CadenaSalida=CadenaSalida & mid(cadena,i,1) & " "
  13.   else
  14.      CadenaSalida & mid(cadena,i,1)
  15.   end if
  16.  
  17. next
  18.  
  19. MsgBox CadenaSalida


pd. La primera funcion no esta bien porque tengo un poco de ambigüedad con VB y los caracteres, pero puedes controlarlo tambien por el numero que representa en la tabla ascii. Un saludo espero que te sirva
78  Programación / Programación Visual Basic / Re: Formularios Continuos VB en: 23 Septiembre 2009, 01:05 am
Gracias probare!!
79  Programación / Programación Visual Basic / Re: Formularios Continuos VB en: 22 Septiembre 2009, 10:54 am
Me explico mejor:

ACCESS 2003:
Creamos un formulario y en la propiedad del formulario "vista predeterminada"(en ingles "default view"), podemos seleccionar: "Un unico Formulario","Formularios Continuos","Hoja de Datos","Tabla Dinamica","Gráfico Dinamico".


Me gustaría poder realizar lo mismo que hace Access cuando elegimos la opción
"Formularios Continuos" pero quisiera hacerlo en Visual Basic 6.0, con su respectiva conexion de datos. Como podría hacerlo? hasta ahora digamos que tengo lo siguiente:

Código
  1. Dim conexion As New ADODB.Connection
  2. Dim Recordset As New ADODB.Recordset
  3. Dim path As String
  4.  
  5. Private Sub Form_Load()
  6. path = "z:\yo.mdb"
  7.  
  8. With conexion
  9. .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path
  10. .Open
  11. End With
  12. Recordset.Open "SELECT * FROM CartasPago", conexion, adOpenKeyset, adLockOptimistic
  13.  
  14. Text1.Text = Recordset("Campo1")
  15. Text2.Text = Recordset("Campo2")
  16. Text3.Text = Recordset("Campo3")
  17. end Sub

Me Gustaría que sacara Tantos Text1, Text2,Text3 Como registros haya que es la finalidad de "Formularios Conitnuos" . Un saludo espero haberme explicado mejor :)
80  Programación / Programación Visual Basic / Formularios Continuos VB en: 21 Septiembre 2009, 16:00 pm
Hola gente tengo un problema , hay una propiedad del formulario en VB ACCESS la cual es la vista del formulario,quiero sacar todos los formularios,( FORMULARIOS CONTINUOS);¿ existe alguna manera  para emularlo en Visual Basic 6? es que no he encontrado la manera de hacerlo. Un saludo
Páginas: 1 2 3 4 5 6 7 [8] 9 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines