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.
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ú
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
'cnn esta declarada como mi Conex.
Dim RSTInserto As New ADODB.Recorset
OPENTABLA RSTInserto, "INSERT INTO tabla(campos) VALUES(valores)"", cnn, 3
Cita de: seba123neo en 17 Octubre 2009, 01:43 AMCita 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.
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
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
Cita de: Karcrack en 25 Octubre 2009, 21:37 PMCita de: seba123neo en 25 Octubre 2009, 17:25 PMNo hace falta un driver para leer esa informacion
si, pero el everest no es programado en visual basic , debe estar en C++ y debe tener algun driver programado que le provee esa información directamente,
De todas formas pronto veras un driver programado en VB