SoloCodigo

Esta Revista esta interesante.....
Les mando algo del contenido que posee la misma y adjunto la ruta donde podran bajar el file.
Espero que les guste.



Autor: Juravi

http://es.geocities.com/mksjrmileniun

Descarga: http://mygnet.com/

Hola A todas las personas.
Tengo un problema con el servidor de SQL Server 2000.
No sube los servicios.   Miren,  lo que pasa es que el SQL Server Agent no levanta con la cuenta local del sistema ni con la cuenta de usuario para administrar el servicio.
Alguno sabe que puede estar pasando....
Saludos

BUENAS TARDES POR ALGUIEN ME PUEDE AYURAR.
LO QUE PASA ES QUE SE DAÑARON UNOS FORMULARIOS DE VISUAL BASIC 6.0 Y AHORA NO ABREN ME DICE QUE EL FORMULARIO NO PUEDE SER LEIDO.
PARECE QUE TAMBIEN LEE UN ARCHIVO .LOG.
ALGUIEN SABE COMO RECUPERAR ESOS FORMULARIOS.

LES AGRADEZCO DE ANTEMANO

Hola a todos sere brebe. como hago para guardar numeros consecutivos en un update. Por ejemplo
 

num = 1024
Set RSMensuales = Nothing
                 RSMensuales.Open "UPDATE TMensual SET fac_mes = '" & Trim(num) & "'" & _
                  "WHERE per_mes = '" & per & "'", CnSQLconexion, adOpenKeyset, adLockOptimistic

si hay 3 registros afectados se guarde asi

1025
1026
y 1027

pero con un solo update y sin ciclo ....

Hola amigos, tengo un problema al momento de actualizar un registro que es demasiado largo y toma mas de una linea de codigo en vb y sentencia sql

Miren por ejemplo.

Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing

[/color]

La pregunta es si conosen algo ademas de _& para unir lineas ya que esto me da error
si lo pongo asi no me da error

Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',..   "_&
"Where ......",.......
Set Prueba = Nothing

[/color]

Para ver si me pueden hechar la mano.
Saludos y Feliz Navidad

Métodos De Seguridad Para Nuestras Aplicaciones

Hola socios, disculpen mi entrometimiento, pero esta discusión me dejo pensando. Yo soy programador, recién graduado de ing. , pero esto no va al caso. Cuando ustedes se refieren a violaciones en la seguridad de nuestras aplicaciones, se refieren a la misma plataforma donde trabajamos o a los software que desarrollamos…? Para mi el tema de polimorfismo (en programación) es Nuevo ya que lo di en una material de la U este semestre que paso y yo siempre estaba acostumbrado a una programación estructurada y no a una orientada a objetos.  Se que vb6 es estructurada y que ya .net es totalmente orientada a objetos. En mi trabajo vamos a migrar todos  los sistemas a .net y por eso me llamo la atención sobre la vulnerabilidad que tienen nuestras aplicaciones. Mi duda es, si .net es orientado a objetos y a la ves se aplica los términos de Abstracción, Encapsulación, Herencia y Polimorfismo, las aplicaciones en .net no serian lo suficientemente  seguras para estos casos de violaciones, claro usando los conceptos ya mencionados.  
Gracias y espero no les moleste mi ignorancia.
 
 

Hola. diran que yo si pregunto, pero es q si me salen errores que yo ni sabia q existian.
mi problema es el siguiente; estoy usando begintrans,committrans y RollbackTrans todo funciona bien pero siempre hay un pero. Cuando ocurre un error donde no se a entrado al begintrans, me sale un error con el rollbacktrans.
COMO HAGO PARA QUE EL SISTEMA SE DE CUENTA QUE NO SE HA EJECTUTADO UN BEGINTRANS( en el manejador de error. donde esta el rollback).
miren. este es parte de un codigo


Public Sub MUESTRA()
On Error GoTo Err
   Dim cnn1 As ADODB.Connection
   Dim rstTitles As ADODB.Recordset
   Dim strCnn As String
   Dim strTitle As String
   Dim strMessage As String

   ' Open connection.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn

   ' Open Titles table.
   Set rstTitles = New ADODB.Recordset
   rstTitles.CursorType = adOpenDynamic
   rstTitles.LockType = adLockPessimistic
   rstTitles.Open "titles", cnn1, , , adCmdTable
   
   rstTitles.MoveFirst
   cnn1.BeginTrans

   ' Loop through recordset and ask user if she wants
   ' to change the type for a specified title.
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "psychology" Then
         strTitle = rstTitles!title
         strMessage = "Title: " & strTitle & vbCr & _
         "Change type to self help?"

         ' Change the title for the specified
         ' employee.
         If MsgBox(strMessage, vbYesNo) = vbYes Then
            rstTitles!Type = "self_help"
            rstTitles.Update
         End If
      End If

         rstTitles.MoveNext
   Loop
      cnn1.CommitTrans
EXIT SUB
  ERR:
 CALL   ManejadordeError
End Sub

Function ManejadordeError()
  MsgBox "El servidor SQL Server está presentando problemas" + Chr(10) + _
  "Causas posibles:" + Chr(10) + _
  "-Puede que haya problemas con la conexion de la red" + Chr(10) + _
  "-Puede ser que la Base de Datos o alguna de sus tablas tenga problemas de acceso" + Chr(10) + _
  "Por favor localize al Adminstrador del Sistema lo antes posible, para que corrija el error" + Chr(10) + _
  CStr(Err.Number) & "  " & Err.Description, vbInformation
 
CnSQLconexion.RollbackTrans
 end function

SE LOS AGRADECERIA MUCHO, Y DISCULPEN Q MOLESTE DEMASIADO.
SALUDOS

Hola a todos, tengo un problema no tan grande, pero es un problema. Yo estoy migrando todo un sistema que se encuentra en VB6 que antes usaba access como base de datos y los informes estan hechos en cristal report 8. Ahora usamos SQL server 2000 y los informes foden y joden.
Bueno para dejarme de tantas chacharas voy al grano. La disenadora anterior de los reportes hiso en varios reportes duplica de tablas( por ejm. el reporte usa empleado, compania, contrato, empleado_1) empleado_1 es la copia de empleado.
para que hiso esto.  por que en la tabla de empleado, por ejemplo se guardaban el codigo de empleado y gerente en el mismo campo(emp_num) y al momento de obtener la informacion para que diera el nombre del empleado con su respectivo gerente solo iva a enviar  un dato, el nombre del empleado,

ver esquema
-------............ Nombre empleado.............Nombre del gerente
xxxxx..............  XXXX  ...............................XXXXXXXX                    

Mi pregunta. hay alguna forma de hacer esos llamados sin la necesidad de duplicar tablas..
si las hay por favor me la hacen saber que ya no me da mi capacidad para hacerlo.
gracias