Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - ssccaann43 ©

#331
Definitivamente si es lo mejor, ya que sobrecarga la BD, luego la BD tendría mucho peso y por ser volatil, puede dañarse. Lo mejor es usar un directorio y cargar allí todos los archivos jpg que son más livianos que los bmp.
#332
Funciona y es óptimo.

Claro, que existen otras formas de hacerlo, Si. Pero creeme que está es una muy buena entre esas formas de hacerlo.

De igual manera, lo importante es aportar nuestros conocimientos. Así que cualquier duda, continuamos estando a la orden.
#334
Luego de aperturar mi conex, yo creo esto en un módulo .bas

Código (vb) [Seleccionar]

Public Sub OPENTABLA(Xrecordset As ADODB.Recordset, xselect As String, NWConnection As ADODB.Connection, tipocursor As Integer, Optional Bloqueo As Integer)

If Xrecordset.State = adStateOpen Then Xrecordset.Close
 Xrecordset.ActiveConnection = NWConnection
 Xrecordset.CursorType = adOpenDynamic
 Xrecordset.CursorLocation = tipocursor
 If Bloqueo = 2 Then
    Xrecordset.LockType = adLockPessimistic
 Else
    Xrecordset.LockType = adLockOptimistic
 End If
 Xrecordset.Open xselect
 Exit Sub

End Sub



Seguido de esto, puedo hacer la inserción de datos así...



'cnn esta declarada como mi Conex.
Dim RSTInserto As New ADODB.Recorset
OPENTABLA RSTInserto, "INSERT INTO tabla(campos) VALUES(valores)"", cnn, 3



Y eso funciona sin problemas, de hecho mis aplicaciones lo llevan...!
:silbar:
#335
Cita de: seba123neo en 17 Octubre 2009, 01:43 AM
Cita de: Mr. Crowley en 16 Octubre 2009, 16:07 PM


Private Sub psGuardar_Usuario()
Dim rs As ADODB.Recordset
On Error GoTo Error_Handler
Set rs = New ADODB.Recordset
Call modMySQL.psConectar
With rs
.ActiveConnection = modMySQL.conConexion
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic

.Open "INSERT INTO tabla(campos) VALUES(valores)"
If .State Then .Close
If modMySQL.conConexion.State Then modMySQL.conConexion.Close
End With
Set rs = Nothing
Exit Sub
Error_Handler:
MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub



sigue estando mal, con un recordset no se insertan registros, es con un objeto command.

saludos.

Seba con un Recorset si se puede insertar registros...!   :silbar:
#336
Facil...

Fijate

Declara una Variable con el Nombre de Impresora_Anterior
Y en el Load del Form, Asignale el nombre de la impresora que tiene predeterminada. Seguido de esto, con este Codigo que adjunto abajo, asignas el nombre de la impresora y la establece como Predeterminada, permitiendote imprimir. Luego de la impresión, llamas la funcion de Establecer y le colocas el nombre de la Impresora Anterior.  ;D

Código (vb) [Seleccionar]

Public Function EstablecerImpresora(Impresora As String)   
 
Dim Prt As Printer   
    ' Establece la impresora que se utilizará para imprimir. XD   
    For Each Prt In Printers   
        If Prt.DeviceName = Nombre_Impresora Then 
            Set Printer = Prt   
        End If 
    Next 
End Function

;-)
#337
Cita de: m[a]rkus en 26 Octubre 2009, 14:23 PM
Hola pues eso fue lo que mas me costo a mi también incluso cree un tema tratado sobre "Protocolo MSN" donde puse una función que te resuelve el tema del passport, aqui te paso el enlace.

Espero te sirva

http://foro.elhacker.net/programacion_vb/vb_dudas_sobre_protocolo_msn-t267831.0.html

Ahi encotraras las respuestas a preguntas que tienes ahora y que te haras, no creas que conectando al msn resuelves todo.

Un saludo

marcus, crees poder compartir tú source con el foro?
#338
Cita de: Karcrack en 25 Octubre 2009, 21:37 PM
Cita de: seba123neo en 25 Octubre 2009, 17:25 PM
si, pero el everest no es programado en visual basic :P, debe estar en C++ y debe tener algun driver programado que le provee esa información directamente,
No hace falta un driver para leer esa informacion ;D

De todas formas pronto veras un driver programado en VB :rolleyes: :silbar: :silbar:

Jajaja... Algo se trae Karcrack... Esperemos a ver que muestra... =D
#339
Lo mejor es como dice Leandro, de hecho es lo que yo hago. Logro leer solo un Codigo único con el que identifico al registro y de igual manera identifico al usuario. Luego al consultar y mostrar la información correcta, busco el archivo y en caso de que no exista aún, muestro una imagen que dice NO PHOTO, es lo mejor.