Mensajes

pues si que andas algo desorientado, el codigo que te pase, lo puedes usar para abrir  bases de datos de access (.mdb)


mira para abrir una base de access primero tienes que crear una variable que te represente tu BD y otra variable que sea tu tabla, por ejemplo tienes una base de datos Escuela.mdb y esa BD contiene una tabla llamada Alumos para abrir, editar o cualquier cosa que quieras hacer sobre esa tabla puedes hacer lo siguiente:

'Declarar las variables
dim BD as database
dim Tb as recordset

'Para tener acceso a la tabla primero debes abrir la BD
set BD = workspaces(0).Opendatabase("c:\bases\Escuela.mdb")

'Ahora abres la tabla
set tb = BD.openrecordset("Alumnos")
' o puedes hacer una consulta SQL
set tb = bd.openrecodset("SELECT * FROM Alumnos WHERE...")

'para tener acceso a los campos

txtNombre.text = tb.Field(0)
ó txtNombre.text = tb!Nombre_Alumno

esto suponiendo que en tu tabla hay un campo llamado Nombre_Alumno

para cerrar 1o debes cerrar la tabla y luego la BD

tb.close
bd.close

y luego liberas la memoria

set tb = nothing
set bd = nothing


si escribes este código tal ves recibas un mensaje de error algo asi como que el VB no sabe que onda con los tipos de datos, si esto pasa solo agrega una referencia a: Microsoft DAO 3.6 Objet Library, mnu proyecto-> Referencias


para lo de cargar tu imagen si esta en un directorio lo puedes hacer como ya antes te habia dicho, o si la tienes en una base de datos, deberas tener instalado el SP4 del vb para poder trabajar con ella

Lo que estoy haciendo en una aplicación en donde quiero incluir una parte de soporte técnico, asi para que los usuarios puedan mandarme un mail en caso de alguna falla o comentario, es cierto que abro el Outlook, pero la verdad no me se otra forma, si pueden ayudarme se los agradeceria mucho

creo que ya lo solucione

en un command pongo
   
    MAPISession1.SignOn
   
    MAPIMessages1.SessionID = MAPISession1.SessionID
    ComposeMessage
   
   
    MAPISession1.SignOff


y luego en un sub

Private Sub ComposeMessage()
    On Error GoTo ComposeErr
    Dim strMessage As String
    MAPIMessages1.Compose
    'MAPIMessages1.MsgIndex = -1
    MAPIMessages1.RecipDisplayName = "ocelaya@contal.com"
    MAPIMessages1.MsgSubject = "Soporte técnico"
    MAPIMessages1.Send True
   
    Exit Sub
ComposeErr:
    Debug.Print Err.Number, Err.Description
    Resume Next
End Sub



lo pongo por a alguien le sirve

Alguien sabe como enviar un mail desde una aplicaion de VB6, de antemano gracias

y si pones el texto en un archivo .txt y luego que el word (por emdio de automatizaciópn) se encarge de todo lo demas

ya intentaste hacerlo con un arreglo


Option Explicit
Dim x() As Form
Dim Formularios As Integer

Private Sub Command1_Click()
    'Crear nueva instancia
    Formularios = Formularios + 1
    ReDim Preserve x(1 To Formularios)
    Set x(Formularios) = New Form1
    x(Formularios).Show
    x(Formularios).Caption = Formularios
End Sub

Private Sub Form_Load()
    Formularios = 1
End Sub

ya lo probe y funciono muy bien, GRACIAS!!!!!

la forma mas sencilla de consultar una BD
es usando DAO


set bd as database
set tb as recordset


set bd = workspaces(0).opendatabase("\\Ruta\de\tu\bd", exclusivo, sololectura, password)

set tb = bd.openrecodset(tabla o consulta SQL)

te recomiendo que consultes la ayuda sobre los tipos de bloqueo

para lo de la foto usa la instruccion LoadPictutre

picture1.picture = loadPicture("\\Servidor\dir\foto.jpg")

lo puedes hacer,  con las propiedades selstar, sellengt puedes seleccionar partes del tecto y luego con las propiedades de la fuente puedes cambiar letra, color, tamaño etc.


por ejemplo pudes tener

"esto es una prueba"
y le quieres cambiar el color a la palabra "prueba" a verde


    With RichTextBox1
        .SelStart = 12
        .SelLength = 6
        .SelColor = vbGreen
        .SelLength = 0
        .SelStart = Len(.Text)
    End With

para eso de que te abre un formulario hijo cuando intentas abrir el MDI esta raro, ¿ya checaste en las propiedades del proyecto para checar que formulario es el objeto inicial?

proyecto -> Propiedades de ...