• Viernes 9 de Mayo de 2025, 20:28

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 - zareth

Páginas: 1 [2]
26
Visual Basic 6.0 e inferiores / Re: Cambiar Cursor Del Ratón
« en: Lunes 1 de Agosto de 2005, 16:55 »
holas  :hola:
pues para ke sea mas solida la revision y a modo de descarte, te dire ke tambien veo el cursor "finger.cur" ke colocastes en el label y concretamente esta bien.

z4r3th  :comp:

27
Visual Basic 6.0 e inferiores / Re: Excel
« en: Sábado 30 de Julio de 2005, 20:05 »
Cita de: "RadicalEd"
Pues tienes que configurar como dice mbrenes, subir el nivel de seguridad y despues le das F11 y entras a VBA ahi estan todos los modulos de las macros que tenga programada la plantilla de Excel.

Pregunta?
Si sabes crear macros, por que preguntas eso?
O talvez no entendi la pregunta.
... es cierto el nivel de seguridad esta en MEDIO cosa ke pregunta siempre antes de abrirl el libro de excel, pero me refieria a ke si yo ke las kreo no estare creando sin darme cuenta  :huh:  un codigo malicioso ke pueda danar el excel... es extrano preguntar esto  <_<  pero por siaca  :(

z4r3th :comp:

28
Visual Basic 6.0 e inferiores / Re: Conectar A Una Base En Sql 2000
« en: Sábado 30 de Julio de 2005, 19:57 »
hola a todos  :hola:
esto es lo ke hice CON RESPECTO A cargar una base de datos en excel a sql
Código: Text
  1.  
  2. Dim cn As adodb.Connection
  3.     Dim strSQL As String
  4.     Dim lngRecsAff As Long
  5.    
  6.     Set cn = New adodb.Connection
  7.     DoEvents
  8.    
  9.     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  10.         "Data Source=" & Text1.Text & ";" & _
  11.         "Extended Properties=Excel 8.0"
  12.        
  13.     'Importo usando Jet Provider.
  14.         strSQL = "SELECT * INTO [ODBC;Driver={SQL Server};" & _
  15.         "Server=SERVER;Database=BASE;" & _
  16.         "UID=USER01;PWD=USER01].BASEPRUEBA " & _
  17.         "FROM [" & Combo1.Text & "]"
  18.    
  19.     cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
  20.     MsgBox "Números De Registros Importados : " & lngRecsAff
  21.    
  22.     cn.Close
  23.     Set cn = Nothing
  24.  
  25.  
el unico incoveniente es ke me crea siempre la tabla y no la actualiza como debe, alguna sugerencia..

z4r3th :comp:

29
Visual Basic 6.0 e inferiores / Re: Excel
« en: Sábado 30 de Julio de 2005, 19:50 »
Cita de: "RadicalEd"
cuidado con lo que te dice mbrenes, ya que si dejas esta opcion habilitada de esta forma cualquier archivo que bajes de Internet que no sea de tu confianza puede contaminar las plantillas o hasta el mismo normal.dot de Word y eso puede ser peligroso. :devil:  :devil:  :devil:
holas a todos :hola:

yo uso mucho macros en excel...  :o  he sabido ke pueden danar las plantillas de excel o hacerla ke funcionen mal, como puedo darme cuenta de ke la macro ke manejo es buena o no !!!!!  :huh:  alguna sugerencia...

z4r3th  :comp:

30
Visual Basic 6.0 e inferiores / Re: Cambiar Cursor Del Ratón
« en: Sábado 30 de Julio de 2005, 19:36 »
Cita de: "Sagutxo"
Salu2, verás, seguramente esté lo mejor esplicado que se puede, pero me temo que no entiendo, me `puedes decir como puedo hacer eso, o en su defecto ponerme un .cur akí que me pueda servir, si no es mucho pedir, un dedo que pinche.

Muchas gracias. :comp:  :smartass:  :(
aki hay una coleccion ke uso, por ahi te pueda servir...

z4r3th  :comp:

31
Visual Basic 6.0 e inferiores / Re: Cambiar Cursor Del Ratón
« en: Sábado 30 de Julio de 2005, 19:21 »
Cita de: "RadicalEd"
Utiliza cursores de 16*16 o 32*32, de pronto ese es el problema, por que a mi me mola bien.
holas  :hola:

al igual ke RadicalEd opino lo mismo, yo tambien uso lo mismo ke tu y me va bien. es la resolucion ke damos a los iconos o cursores... (16*16,32*32) hay programas buenos cono IconXP ke te permite modificar a tu gusto tamano colores etc...

z4r3th  :comp:

32
Visual Basic 6.0 e inferiores / Re: Primer Caracter En Mayuscula De Un String
« en: Sábado 30 de Julio de 2005, 18:37 »
holas  :hola:
tal vez te pueda servir esto:
Código: Text
  1.  
  2. Private Sub Text1_Change()
  3. Dim x As Integer
  4. If Len(Trim(Text1.Text)) = 1 Then
  5.     Text2.Text = UCase(Mid(Text1.Text, 1, 1))
  6. ElseIf InStr(1, Text1.Text, " ", 1) > 0 Then
  7.     x = InStr(1, Text1.Text, " ", 1)
  8.     Text2.Text = UCase(Mid(Text1.Text, 1, 1)) + Mid(Text1.Text, 2, x - 1) + UCase(Mid(Text1.Text, x + 1, 1)) + Mid(Text1.Text, x + 2, Len(Text1.Text))
  9. Else
  10.     Text2.Text = UCase(Mid(Text1.Text, 1, 1)) + Mid(Text1.Text, 2, Len(Text1.Text))
  11. End If
  12. End Sub
  13.  
  14.  
aki lo hice con dos cuadros de texto, solo cambia el valor de salida para ke sea en un cuadro de texto.. suerte

z4r3th  :comp:
PD: ojo ke esta validacion es para dos palabras, ejem: Augusto Valvuena. No lo he probado con tres o mas... pero ya tienes la idea... nos vemos

33
Visual Basic 6.0 e inferiores / Re: Tengo Un Problema Con Un Datagrid
« en: Miércoles 27 de Julio de 2005, 20:30 »
holas cerocool :)

perdon por no contestar a tiempo, estuve realmente ocupado resolviendo un tema de import a sql todo un dolor de cabeza, mira al ver tu correo vi el codigo ke me enviastes como dice radicale eso es vbNET no he visto mucho ese lenguaje pero puedo decirte como normalmente haria es llenar el grid de destino con codigo asignado a un recordset algo asi como insert into values(..) por medio de sql y luego un refresh al recordset >> recordset.refresh deberia de funcionar porke asi utilizo la mayoria de los recordset ke uso... talvez en la parte donde haces el proceso de llenado "Public Function listado_items() As DataSet"  cuando haces esto "titems.Rows(titems.Rows.Count - 1)(1) = Me.txt_cantidad.Text" al final puedes meterlo en refresh al recordset, a mi siempre me funka en esa parte.... (al similar claro esta...!! ) espero te ayude en algo

z4r3th  :comp:

PD: gracias por darte tiempo de escribirme y de adicionarme al msm espero ke alli hablemos mejor y talvez compartamos ideas... adios suerte

34
Visual Basic 6.0 e inferiores / Re: Tengo Un Problema Con Un Datagrid
« en: Martes 26 de Julio de 2005, 19:48 »
hey cerocool mi correo es retricom@hotmail.com, enviame tu codigo para revizarlo... saludos

z4r3th  :comp:

35
Visual Basic 6.0 e inferiores / Re: Tengo Un Problema Con Un Datagrid
« en: Martes 26 de Julio de 2005, 17:57 »
holas cerocool,,, :)

yo tambien trabajo con datagrid llenados con recordset dentro de varios formularios, no entiendo bien tu pregunta puedes mostrarme algo del codigo o ke parte del proceso es... saludos

z4r3th  :comp:

36
Visual Basic 6.0 e inferiores / Conectar A Una Base En Sql 2000
« en: Lunes 25 de Julio de 2005, 19:45 »
hola gente  :)

ke tal de nuevo por aki (con nuevo id, antes era desarrollo pero lo utiliza una companera) despues de unas largas vacaciones volviendo a la chamba con una pekena duda.

Tengo ke subir datos de una hoja de excel a una base que esta en un server de SQL2000 de tal manera que importe los datos y llene una tabla determinada, buske y encontre este codigo:
Código: Text
  1. Function MySQL_ConnectionString(sServerName As String, sUserName As String, sPassword As String, Optional sDatabaseName As String = "", Optional sPort As String = 3306) As String
  2. 100   MySQL_ConnectionString = ""
  3.  
  4.       On Error GoTo Err
  5.       ' Stop
  6.      
  7. 110   MySQL_ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
  8.       "SERVER=" & sServerName & ";" & _
  9.       "UID=" & sUserName & ";" & _
  10.       "PWD=" & sPassword & ";" & _
  11.       "PORT=" & sPort & ";" & _
  12.       "DATABASE=" & sDatabaseName
  13.  
  14.       Exit Function
  15.  
  16. Err:
  17.       MySQL_ConnectionString = False
  18.       Debug.Print "ERROR ConnectionString: " & Err.Number & vbNewLine & Err.Description & vbNewLine & "Line: " & Erl
  19. End Function
  20.  

exactamente ke deberia tener la linea donde dice 110, porke asi como esta no se conecta o es diferente por ser sql2000??? por cierto el puerto como valor por default tiene 3306 eso tambien influye??? alguna idea o sugerencia de como deberia levantar mis datos de excel a sql2000, a la espera de sus comentarios, saludos

z4r3th  :comp:

Páginas: 1 [2]