Visual Basic Foro

Hola que tal Amigos

Necesito de su valiosa Ayuda, hago el siguiente proceso:

1.- Leo una tabla de bd, y lo almaceno en un recordet set (contiene un campo correo electronico).
2.- Recorro el Record Set con un do while. y por cada registro genero un reporte un PDF y lo almaceno.
3.- Envio por correo el PDF creado.
4.- Sigo el Paso 2 con el siguiente registro, hasta terminar.

El problema es que, aveces lo hace tan rapído (me crea todos los pdfs), Sale del ciclo, y no alcanzo a enviar todos los documentos por correo, ó al reves aveces tarda el proceso en crear y almacenar el PDF.  (en el proceso del envio es donde se toma unos segundos) pongo doevents, pero aun asi no me termina de enviar todos los correos.

En el Active Reports después de exportarlo puse tambien DoEvents


Private Sub Form_Load()
Dim rsMails As New ADODB.Recordset
Dim sSQL As String
   
    sSQL = "SELECT * FROM CLIENTES"
    rsMails.Open sSQL, cnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
   
    Do While Not rsMails.EOF
        email = rsMails!cORREO
        Address = email       
        Me.MousePointer = vbHourglass
        dtpDesde.Value = Format(Now, "dd/MM/yyyy")
        dtpHasta.Value = Format(Now, "dd/MM/yyyy")
   
        GeneraReporte
   
        rsMails.MoveNext
    Loop
    rsMails.Close
   
    Set rsMails = Nothing
   
End Sub


Private Sub GeneraReporte()
Dim Reporte As New arReporte
Dim sSQL As String
Dim i As Integer

    Me.Label1.Caption = "Realizando Validación..."
    Me.Label1.Caption = "Ejecutando Reporte..."
   
    dtpDesde = DateAdd("d", -8, dtpDesde.Value)
   
    With Reporte
        Set .dc.Connection = cnDB
         sSQL = "exec ReportClientes '" & Format(dtpDesde, "yyyyMMdd") & "','" & Format(dtpHasta, "yyyyMMdd") & "',0," & Sucursal & ",'Sin Pagar'"
        .dc.Source = sSQL
        .lblFechas.Caption = "Reporte Clientes " & Format(dtpDesde, "dd/MMM/yyyy") & " al " & Format(dtpHasta, "dd/MMM/yyyy")
        .TipoReporte = 1
        .Show
        .Hide
    End With
   
    DoEvents

    MDIMain.SendMail Trim$(lstTo.List(i)), "Reporte facturas:" & Format(dtpDesde, "dd/MMM/yyyy") & "", "Reporte Clintes sin pagar", " & ArchReporte & ".pdf"
    MDIMain.salir
     
    Set Reporte = Nothing

End Sub
 

Hola coco y demas compañeros, muy interesante la clase...

Te comento lo siguiente, yo consumo un web service, y uso xmlhttrequest de la siguiente manera, ahora como podria yo, con ésta clase, enviarle al usuario un aviso (un form, un gif de esos tipo web "loading",) ó algo que me indique que se esta procesando la solicitud...?? pido mucho?? gracias!!

Dim oHttReq As XMLHTTPRequest
Set oHttReq = New XMLHTTPRequest

urlPOST = "https://test.consultauser.com.mx/wsconsultaiduser.asmx"

oHttReq.Open "POST", urlPOST, False 'Aqui tendria que poner a true

oHttReq.Send sXml 'al hacer esto aqui es donde se me congela por unos segundos el equipo.

'sXML es un String que contiene el XML con los datos de usuario y contraseña y ademas la informacion que envio al Ws.

If oHttReq.Status = 200 Then
    ' este será el texto recibido del servicio Web
    resultWs = procesarRespuesta(oHttReq.responseText)
Else
    MsgError = "Error Codigo de Estado Web Service Status: " & oHttReq.Status & ": " & oHttReq.statusText & "
   resultWs = False
End If

Set oHttReq = Nothing

Hola les comento lo siguiente (acepto ragaños jajaja)..

Deseo iniciar en .Net En especial Windows Form, actualmente uso VB 6, en VB 6 estoy acostumbrado a ir al Menu Proyecto->Propiedades y Definir el nombre del proyecto, mi objeto inicial Sub Main, etc y para trabajar los formularios y/o Objetos pues ir programando sus Eventos y Propiedades.

Pero en .Net me pierdo, empiezo al abrir 1 formulario y me muestra:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

Alguien me puede hechar una manita como empezar ó como comprender a migrar los conceptos de programacion que tengo de vb6 y pasarlo a la programacion de .Net.

pues eso... despues de intentar y buscar por fin pude resolver ese pendiente, con esto doy por cerrado el caso Administrador ya puedes cerrar el caso.

Solucion: El codigo anterior de VB es correcto, lo unico que hice fue que el archivo .res lo genere con un programa (que por aqui buscando en un foro lo mencionaron) se llama XN Resource Editor, y con ese me creo el archivo res sin problemas .

Hola que tal, Uso visual basic 6.0, tengo ActiveSkyn 4.3, me gustaria saber si se puede incluir un archivo skn en un archivo de recurso y posteriormente de ahi llamarlo para poner los skyn en los formularios. Me pueden ayudar con algun codigo para ver si es posible eso. Gracias!