Mostrar Mensajes

51

Visual Basic 6.0 e inferiores / Re: Importar De Excel A Access

« en: Miércoles 12 de Enero de 2005, 09:59 »

Muxisimas gracias Brroz!!, creo k voy hacerlo x access desde una macro ... mas k nada xk el paso de informacion en mi caso es para no perder la info k ya tienen almacenada y solo va a ser esta vez... cuando tenga un rato intentaré hacerlo x visual (cuando lo tenga lo posteo para la peña)

Muxisimas gracias y saludos a todos

52

Visual Basic 6.0 e inferiores / Re: Error En Un Insert Into

« en: Miércoles 12 de Enero de 2005, 09:44 »

mmmmmm... me sigue dando el mismo error...

te cuento: no tenia instalado el MDAC 2.8 pero como a ti no te daba problemas lo acabo de instalar y le he asignado las referencias del 2.8 aunque aun asi me sigue dando el mismo error de "No se pudo encontrar el archivo ISAM instalable" ...

Cualkier ayuda se agrade muxo

53

Visual Basic 6.0 e inferiores / Re: Error En Un Insert Into

« en: Miércoles 12 de Enero de 2005, 09:11 »

execute... si es k soy un garrulo xD

Muxisimas gracias ebolo!!!

x cierto, si funciona dejo aki el codigo puesto x si alguna vez lo necesitas (o cualkiera)

54

Visual Basic 6.0 e inferiores / Importar De Excel A Access

« en: Miércoles 12 de Enero de 2005, 09:05 »

Hola!!, tengo un problemilla con la importacion de datos de excel a access... alguien me podría decir algun método para importar los datos... los datos son una especie de fichas de clientes...

Muchas gracias !!!

Saludos !!

55

Visual Basic 6.0 e inferiores / Error En Un Insert Into

« en: Martes 11 de Enero de 2005, 22:17 »

Hola!!, estoy pasando datos de unas hojas excel a mi base de datos access pero me da un problema en el INSERT INTO y me saca un mensaje k me dice: "No se pudo encontrar el archivo ISAM instalable"

y la verdad es k me tiene descuadrado... os pongo el codigo y lo veis a ver k os parece...

este es el procedimiento con el k introduzco los datos:

Dim RS As Recordset

Public Sub Envia_Datos_Access()

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\Nerv.vgt;"

Set RS = New Recordset
RS.Open "INSERT INTO Contabilidad IN 'Z:\Nerv.vgt' SELECT * FROM [datos$] IN 'Z:\excel\datos.xls'[EXCEL 6.0;]", db, adOpenStatic, adLockOptimistic

Unload frmContabilidad
frmContabilidad.Show

End Sub

cualkier ayuda se agradece un monton !!

Muchas gracias y saludos a todos/as !!

56

Visual Basic 6.0 e inferiores / Re: Que Es Un "on Error Goto ..."

« en: Martes 11 de Enero de 2005, 22:05 »

holaa!!!, on error goto es una forma de controlar errores k te aparecen en el programa sin k te tiren la aplicacion abajo... x ejemplo:

Private sub Hola()
dim ...
On error goto No_Me_Jodas

[
aki pones tu codigo y tal
]

No_Me_Jodas:

If err.Number <> 0 Then

MsgBox err.Description
Exit Sub
Else
Resume Next
End If

end sub

cuando se produzca un error en ese procedimiento (x ejemplo) saltará a la "etiketa" No_Me_Jodas (xD) y el analizará el tipo de error... con ese codigo lo k le estoy diciendo es k si el error tiene un numero distinto de 0 (cuando hace todas las operaciones bien err.number es igual a 0) pues me sake un mensaje con la descripcion del error y k salga del procedimiento...

es facil de usar y si alguna vez no sabes en k te casca el programa puedes ir poniendo cosillas de estas en puntos claves y x lo menos te da una descripcion de k le esta pasando

Espero haberte ayudado... no se si soy muy ortodoxo explicando las cosas si kieres un ejemplo mas claro te paso un ejemplo real

Saludos !!

57

Visual Basic 6.0 e inferiores / Re: Nuevo Sp Para Visual Basic Disponible!!

« en: Domingo 9 de Enero de 2005, 22:26 »

Muxas gracias x tu opinion ArKaNtOs !! saludos !!!

58

Visual Basic 6.0 e inferiores / Re: Nuevo Sp Para Visual Basic Disponible!!

« en: Sábado 8 de Enero de 2005, 20:13 »

yo lo tengo descargado pero como ahora estoy liadillo no tengo tiempo para hacer experimentos... de todas formas siempre es bueno saber la opinion de otros...

muxas gracias juravi

Saludos

59

Visual Basic 6.0 e inferiores / Nuevo Sp Para Visual Basic Disponible!!

« en: Jueves 6 de Enero de 2005, 09:55 »

Hola!!, k tal ?!, me he dado una vueltecilla por la page de soporte tecnico para visual y he visto un nuevo service pack, van x el 6, para Visual Basic y me gustaría saber si lo habeis probado y tal... mas k nada xk no tengo ganas de hacer experimentos

ya k a mi con el SP 5 me va de #### madre... bueno aki os dejo la page de soporte tecnico... esta bien, tiene articulos con trucos, recomendaciones ect...

Saludos a todos!!

[ http://support.microsoft.com/default.aspx?...fh;es-es;vbbint ]

60

Visual Basic 6.0 e inferiores / Re: Procedimiento Demasiado Largo?

« en: Miércoles 29 de Diciembre de 2004, 23:25 »

Muchas gracias jhonilson siempre es bueno tener un plan B x si acaso no hubiera forma de reducir el codigo

De todas formas conseguí reducirlo y ahora me estoy dedicando a kitar chorizos de esos de codigo de la aplicacion...

Muchas gracias de nuevo !!

61

Visual Basic 6.0 e inferiores / Re: Saber El Tamaño De Pantalla

« en: Miércoles 29 de Diciembre de 2004, 09:57 »

Hola!!, yo creo k tengo una rutina creada con la k cambio resoluciones de pantalla dependiendo del ordenata en el k me encuentre... si te interesa te la busco y te la posteo, la estudias y la adaptas... si te interesa avisa

Saludos

62

Visual Basic 6.0 e inferiores / Re: Error Al Cargar Una Imagen Un Control Image

« en: Miércoles 29 de Diciembre de 2004, 09:46 »

Muxisimas gracias!!!, el caso es k le estuve dando vueltas y como tenia las fotos en una unidad de red me daba problemas xk en mi ordenata la unidad de red no conectaba bien

de todas formas me apunto tu respuesta y voy a cambiar el codigo siguiendo tus indicaciones k x lo k veo sabes "algo"

mas k yo en esto

salu2 y muxas gracias de nuevo

63

Visual Basic 6.0 e inferiores / Error Al Cargar Una Imagen Un Control Image

« en: Domingo 26 de Diciembre de 2004, 21:39 »

hola!!, aki estoy de nuevo a ver si me pueden ayudar...

Tengo un formulario donde estoy cargando imagenes dinamicamente cuando el usuario cambia de cliente... el tema es k me he creado un procedimiento pero me da un error diciendo k no encuentra la imagen sin embargo hasta la linea donde le digo Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) no me da ningun error... a ver si me podeis orientar un poco

Aki os pongo el codigo para k veais como lo hago... muchisimas gracias x vuestro tiempo !!

Citar

'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""
'con InStrRev busco una cadena dentro de otra cadena pero desde el final
Posicion_Path = InStrRev(Direccion_Cliente, "\")
Posicion_Path = Posicion_Path - 1
'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Direccion_Cliente = Mid(Direccion_Cliente, 1, Posicion_Path)

Path = Direccion_Cliente
'se posiciona en la dirección que le he indicado en el Path
ChDir Path
'-----------------------------------------------------------------------------------------

If Direccion_Cliente = "" Then

lblNoDisponible1.Visible = True
Else

'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""

'con InStrRev busco una cadena dentro de otra cadena pero desde el final
posicion_nombre = InStrRev(Direccion_Cliente, "\")

'sumo 1 xk la posicion que quiero tener es de solo el nombre sin incluir \
posicion_nombre = posicion_nombre + 1

'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Nombre_Imagen = Mid(Direccion_Cliente, posicion_nombre)

'IMAGEN 1
'------------------------------------------------------------------------
If Nombre_Imagen = "" Then

imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True

Screen.MousePointer = vbDefault

Else

Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) aki es donde se le va la olla...
If lblNoDisponible1.Visible = True Then
imgFoto1.Picture = Nothing
Else

imgFoto1.Picture = Imagen
lblNoDisponible1.Visible = False

End If

If imgFoto1.Picture <> 0 Then

Else

imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True

Screen.MousePointer = vbDefault
End If

Screen.MousePointer = vbDefault

End If
End If

Screen.MousePointer = vbDefault

64

Visual Basic 6.0 e inferiores / Re: Procedimiento Demasiado Largo?

« en: Jueves 23 de Diciembre de 2004, 23:53 »

Muxisimas gracias Desarrollo... voy a ver si me kito esas salvajadas de codigo xD

Muchas gracias a todos

65

Visual Basic 6.0 e inferiores / Re: Procedimiento Demasiado Largo?

« en: Jueves 23 de Diciembre de 2004, 21:12 »

Muxas gracias DiabloRojo... tomo buena nota

66

Visual Basic 6.0 e inferiores / Re: Procedimiento Demasiado Largo?

« en: Jueves 23 de Diciembre de 2004, 18:51 »

Con el adc.recordset.fields ("nombre del campo") haces referencia a un campo de una base de datos... x ejemplo en el codigo ese k he puesto lo k estoy haciendo es meter en el campo unidades1 el valor de una caja de texto... yo suelo usarlo muxo xk no me gusta enlazar las cajas de texto (x ejemplo) a la base de datos... no se, pa gustos colores... soy un poco raro programando y mis profesores dicen k a veces me rallo demasiado xD

Saludos y gracias !!

67

Visual Basic 6.0 e inferiores / Re: Procedimiento Demasiado Largo?

« en: Jueves 23 de Diciembre de 2004, 13:36 »

Es k es una cosa un poco rara xk no me da el error en una linea de código concreta sino k se pone a ejecutar un procedimiento y de repente me saca un msgbox diciendome k el procedimiento es demasiado largo... de todas formas te pongo el "chorizo" de codigo x si soy yo desde mi inmensa garrulidad xD

(te agradeceria tb k si existe otra forma de hacerlo k sea menos "garrula", como verás actualizo el contenido del almacen con el contenido de las cajas de texto en donde el usuario ha escrito... ufff, un poco liosillo...)

Muchas gracias de antemano

ahi va eso:
[CODE]
'-------------------------------------------------------------------------------------------
If fraArticulo(0).Visible = True Then

If Text13(0).Text = adcArticulos.Recordset.Fields("Talla1") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades1") = adcArticulos.Recordset.Fields("Unidades1") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If

If Text13(0).Text = adcArticulos.Recordset.Fields("Talla2") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades2") = adcArticulos.Recordset.Fields("Unidades2") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla3") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades3") = adcArticulos.Recordset.Fields("Unidades3") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla4") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades4") = adcArticulos.Recordset.Fields("Unidades4") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla5") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades5") = adcArticulos.Recordset.Fields("Unidades5") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla6") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades6") = adcArticulos.Recordset.Fields("Unidades6") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla7") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades7") = adcArticulos.Recordset.Fields("Unidades7") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla8") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades8") = adcArticulos.Recordset.Fields("Unidades8") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla9") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades9") = adcArticulos.Recordset.Fields("Unidades9") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla10") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades10") = adcArticulos.Recordset.Fields("Unidades10") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla11") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades11") = adcArticulos.Recordset.Fields("Unidades11") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla12") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades12") = adcArticulos.Recordset.Fields("Unidades12") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla13") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades13") = adcArticulos.Recordset.Fields("Unidades13") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla14") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades14") = adcArticulos.Recordset.Fields("Unidades14") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla15") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades15") = adcArticulos.Recordset.Fields("Unidades15") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla16") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades16") = adcArticulos.Recordset.Fields("Unidades16") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If

If Text13(0).Text = adcArticulos.Recordset.Fields("Talla17") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades17") = adcArticulos.Recordset.Fields("Unidades17") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If
If Text13(0).Text = adcArticulos.Recordset.Fields("Talla18") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades18") = adcArticulos.Recordset.Fields("Unidades18") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If

If Text13(0).Text = adcArticulos.Recordset.Fields("Talla19") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades19") = adcArticulos.Recordset.Fields("Unidades19") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If

If Text13(0).Text = adcArticulos.Recordset.Fields("Talla20") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades20") = adcArticulos.Recordset.Fields("Unidades20") - Val(Text14(0).Text)
adcArticulos.Recordset.Update

End If

End If

If fraArticulo(1).Visible = True Then

If Text13(1).Text = adcArticulos.Recordset.Fields("Talla1") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades1") = adcArticulos.Recordset.Fields("Unidades1") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If

If Text13(1).Text = adcArticulos.Recordset.Fields("Talla2") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades2") = adcArticulos.Recordset.Fields("Unidades2") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla3") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades3") = adcArticulos.Recordset.Fields("Unidades3") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla4") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades4") = adcArticulos.Recordset.Fields("Unidades4") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla5") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades5") = adcArticulos.Recordset.Fields("Unidades5") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla6") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades6") = adcArticulos.Recordset.Fields("Unidades6") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla7") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades7") = adcArticulos.Recordset.Fields("Unidades7") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla8") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades8") = adcArticulos.Recordset.Fields("Unidades8") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla9") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades9") = adcArticulos.Recordset.Fields("Unidades9") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla10") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades10") = adcArticulos.Recordset.Fields("Unidades10") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla11") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades11") = adcArticulos.Recordset.Fields("Unidades11") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla12") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades12") = adcArticulos.Recordset.Fields("Unidades12") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla13") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades13") = adcArticulos.Recordset.Fields("Unidades13") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla14") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades14") = adcArticulos.Recordset.Fields("Unidades14") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla15") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades15") = adcArticulos.Recordset.Fields("Unidades15") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla16") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades16") = adcArticulos.Recordset.Fields("Unidades16") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If

If Text13(1).Text = adcArticulos.Recordset.Fields("Talla17") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades17") = adcArticulos.Recordset.Fields("Unidades17") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If
If Text13(1).Text = adcArticulos.Recordset.Fields("Talla18") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades18") = adcArticulos.Recordset.Fields("Unidades18") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If

If Text13(1).Text = adcArticulos.Recordset.Fields("Talla19") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades19") = adcArticulos.Recordset.Fields("Unidades19") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If

If Text13(1).Text = adcArticulos.Recordset.Fields("Talla20") Then
adcArticulos.Recordset.Edit
adcArticulos.Recordset.Fields("Unidades20") = adcArticulos.Recordset.Fields("Unidades20") - Val(Text14(1).Text)
adcArticulos.Recordset.Update

End If

End If
'----------------------------------------------------------------------------------------------

68

Visual Basic 6.0 e inferiores / Re: Enviar Fax Desde Visual

« en: Jueves 23 de Diciembre de 2004, 10:09 »

okis...

Saludos !!

69

Visual Basic 6.0 e inferiores / Procedimiento Demasiado Largo?

« en: Jueves 23 de Diciembre de 2004, 10:08 »

mmmmmmmm pues eso... estoy probando un procedimiento de introduccion de datos en una bd y me dice eso, k el procedimiento es demasiado largo

... hay alguna forma de saltarse ese error?...

muxas asias !!!

70

Visual Basic 6.0 e inferiores / Re: Enviar Fax Desde Visual

« en: Miércoles 22 de Diciembre de 2004, 22:11 »

Sabia k tenia algo de eso x algún lado... el caso es k yo no lo he usado, es fuente k tengo x si alguna vez necesito una referencia

( un plan B

)... te lo pongo y x lo menos ya tienes una referencia

-----------------------------------------------------------------------------------------------
Enviar Faxes Utilizando los controles de VB

Utilizaremos para ello los controles MAPI Messages y MAPI Session para crear un mensaje de Exchange.
Si en el campo de la dirección e-mail empiezas por "Fax: " y continuas con el nº de fax, conseguirás enviar el mensaje a través del servicio MS Fax.
Ten cuidado de utilizar un perfil de Exchange que solo incluya el servicio Fax, no el Internet Mail, porque si no intentará enviarlo por los dos sistemas.
MAPISession1.LogonUI = False
wPerfil = "Configuraciones de MS Exchange"
MAPISession1.UserName = wPerfil
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
Sesion = True
lblEstado = "Creando mensaje..."
MAPIMessages1.ComposeMAPIMessages1.MsgSubject = ""
' No utilizar el campo de texto. Lo intenta imprimir con el Word como
' segunda hoja y falla dando error WordBasic nº 124 (teniendo instalado el Parche)
MAPIMessages1.MsgNoteText = "Este es el texto de la prueba....."
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipIndex = NumDestino
MAPIMessages1.RecipType = mapToList
MAPIMessages1.RecipDisplayName = Data1.Recordset.Fields(1)
MAPIMessages1.RecipAddress = "Fax:" & Data1.Recordset.Fields(0)
MAPIMessages1.AttachmentIndex = I
MAPIMessages1.AttachmentPosition = I
MAPIMessages1.AttachmentPathName = wPath
MAPIMessages1.AttachmentName = wName
lblEstado = "Enviando mensaje..."
MAPIMessages1.Send
MAPISession1.SignOff
-----------------------------------------------------------------------------------------------

Espero haberte ayudado

Saludos

71

Visual Basic 6.0 e inferiores / Re: Para Todos

« en: Miércoles 22 de Diciembre de 2004, 22:02 »

Hola!!!, yo hace pokito k me inicié en este foro y ya es de las pages de visita fija

aki me han ayudado desde el primer momento y es algo k agradezco

Bueno, no me enrollo mas k tengo k seguir programando

asik ya sabeis, a pasarlo lo mejor posibles estas fiestas !! FeLiCeS FiEsTaS a to la peña !!

Saludos

72

Visual Basic 6.0 e inferiores / Re: Enviar Fax Desde Visual

« en: Miércoles 22 de Diciembre de 2004, 13:42 »

Creo k tengo algo x ahi pero ahora no puedo decirte nada concreto xk estoy en el curro... te lo busco y te lo posteo...

Saludos

73

Visual Basic 6.0 e inferiores / Re: Combo Box

« en: Domingo 19 de Diciembre de 2004, 20:08 »

Hola!!, imagino k kieres algo de referencia en general... en el MSDN puedes encontrar todo lo referido a los combo box... yo te copio la introducción

Un control ComboBox combina las características de un control TextBox y un control ListBox; los usuarios pueden introducir información en la parte del cuadro de texto o seleccionar un elemento en la parte de cuadro de lista del control.

Sintaxis

ComboBox

Comentarios

Para agregar o eliminar elementos en un control ComboBox, use el método AddItem o RemoveItem. Establezca las propiedades List, ListCount y ListIndex para permitir a un usuario tener acceso a los elementos de un control ComboBox. Como alternativa, puede agregar elementos a la lista mediante la propiedad List en tiempo de diseño.

Nota Un evento Scroll ocurrirá en un control ComboBox sólo cuando se desplace el contenido de la parte desplegable del ComboBox, no cada vez que cambie el contenido del ComboBox. Por ejemplo, si la parte desplegable de un ComboBox contiene cinco elementos y el elemento superior está resaltado, no ocurrirá un evento Scroll hasta que presione seis veces la flecha hacia abajo (o una vez la tecla AV PÁG). Después de eso, ocurrirá un evento Scroll por cada pulsación de la tecla de flecha hacia abajo. Sin embargo, si después presiona la tecla de flecha hacia arriba, no ocurrirá un evento Scroll hasta que presione seis veces la tecla de flecha hacia arriba (o una vez la tecla RE PÁG). Después de eso, cada vez que presione la tecla de flecha hacia arriba se producirá un evento Scroll.

-----------------------------------------------------------------------------------------------

Menuda tela eh?, pues de todas formas si lo k kieres es rellenar un combo con los datos de una base de datos tampoco es tan dificil... te pongo el codigo de cabeza si probarlo pero creo k no andará muy lejos

Form activate ( ) (por ejemplo)

adcData.recordset.movefirst

while adcData.recordset.eof <> true

combo.additem adcData.recordset.fields("Campo1")
combo.additem adcData.recordset.fields("Campo2")
....
wend

end sub

'con esto rellenas el combo con el contenido de la tabla k hayas asignado en el adcData

Puedes pasar por parametro a una consulta la seleccion que haga el usuario en el combo -> SeleccionUsuario= combo.text (creo k con eso te pasa el contenido de lo seleccionado pero no estoy seguro xk te hablo de cabeza...)

espero haberte ayudado aunk seguro k tengo algo mal xDD soy un pokillo garrulo en esto del visual

Saludos

74

Visual Basic 6.0 e inferiores / Re: Como Envio Datos Por El Puerto Paralelo

« en: Domingo 19 de Diciembre de 2004, 19:58 »

Hola!!!, muxisimas gracias xk estoy aki mas liado k la vida xD mi correo es vgt43@hotmail.com!!

De verdad muchas gracias !!!

Saludos

75

Visual Basic 6.0 e inferiores / Re: Obtener Serial Del Disco Duro

« en: Domingo 19 de Diciembre de 2004, 18:55 »

Hola!!!, yo lo k hago en controlar el numero de serie del disco duro cuando ejecuto la aplicacion, es decir, en el form principal... lógicamente antes he tenido k extraer el numero de serie... mmmmm te dejo aki el codigo... solo tienes k copiar y pegar...

Private Sub Form_Activate()

Dim a&

'Llamada a la función para cambiar la resolución
a = CambiaResolucion(16 - 65#, 800, 600)

Dim fso, d, s, unidadRuta, CalcularRegistro

'asigno el objeto a un script de VB de tipo FileSystem
Set fso = CreateObject("Scripting.FileSystemObject")
'indico el volumen del que deseo obtener la información
Set d = fso.GetDrive(fso.GetDriveName("c:\"))
s = "Unidad " & UCase(unidadRuta) & " - "
s = s & d.VolumeName & " "
s = d.SerialNumber
CalcularRegistro = s

If s = 640227056 Then 'xp

Else

MsgBox "Los parámetros de registro son erróneos o están corruptos"

Command1.Enabled = False
Command3.Enabled = False
End If

End Sub

Espero haberte ayudado, saludos

SoloCodigo