Mostrar Mensajes

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


Mensajes - obethermy

Páginas: [1] 2 3 4 5 6 ... 8
1
Visual Basic 6 / ENVIAR MENSAJES A WEB WHATSAPP
« en: Febrero 08, 2019, 08:01:13 am »
Para enviar mensajes a Whatsapp mediante el url es de la siguiente forma

https://web.whatsapp.com/send?phone=CODIGODDEL PAIS+NUMERODETELEFONO&text=hola%20Mundo%0ABienvenidos

por pc el codigo del pais es sin el + ejem el codigo del area es +99 y el telefono es 123456789 quedaria asi

https://web.whatsapp.com/send?phone=99123456789&text=hola%20Mundo%0ABienvenidos

Donde %20 es un espacio en blanco y %0A es otra linea(estos son codificaciones url).

Como hago para no ta dandole al boton de envio al cargar la pagina sino directamente de la url. y Tambien como adjunto un archivo por medio de la url.

2
Visual Basic 6 / Re:SE PUEDE PONER EL INTERLINEADO EN PRINTER.PRINT DE VB6
« en: Mayo 22, 2018, 11:16:23 pm »
interlineado de espacio entre lineas de impresion

3
Visual Basic 6 / Saber la fecha y la hora de un archivo para actualizarlo
« en: Abril 13, 2018, 05:26:42 pm »
Mediante el protocolo de transferencia http sino por medio del ftp.

4
Visual Basic 6 / SE PUEDE PONER EL INTERLINEADO EN PRINTER.PRINT DE VB6
« en: Abril 12, 2018, 08:24:33 pm »
Como pongo un interlineado con printer.print a un listbox ,listview etc

5
Visual Basic 6 / Error al adicionar csv con microsoft text driver al poseer password access
« en: Abril 03, 2018, 11:07:47 am »
tengo este codigo para los csv que funciona bien hasta que le puse password a la base de datos access2000
he intentado ponerle la clave pero nada de nada dice clave errada

Código: (VB) [Seleccionar]
Set BD = New ADODB.Connection
BD.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};;DefaultDir=" & App.Path & ";DBQ=" & App.Path & _
";Extensions=asc,csv,tab,txt;Extended Properties=text;" & _
"Persist Security Info=False;HDR=YES;FMT=DELIMITED(;)"
BD.Execute "insert into inventario in '" & Origen & "' select * from [" & ArchivoCSV & "]"

6
Visual Basic 6 / Re:Solucion de error 5 en tiempo de ejecucion
« en: Abril 01, 2018, 05:24:14 pm »
eso sucede en windows 7

Y tambien que no acepta variables NULAS
Código: (VB) [Seleccionar]
DIM VARIABLE AS STRING
VARIABLE=""

VARIABLE="0"

7
Visual Basic 6 / Solucion de error 5 en tiempo de ejecucion
« en: Marzo 23, 2018, 05:04:07 pm »
En un command de aceptar teia puesto una variable tipo string que contenia "-" como los cdkeys y lo mostraba en un texbox la solucion que encontre fue poner la variable  en variant

8
Bases de Datos / Solucion de busqueda por fecha en Access
« en: Marzo 20, 2018, 09:20:25 am »
Aunque Access graba la fecha segun su formato configurado en windows en mi caso lo tengo configurado dia / mes / año

Hay que darle formato americano a la fecha para la busqueda año/mes-dia y agregarles el simbolo #

Recuerden en visual basic 6 (& _) significa continua en la siguiente linea

Código: (VB) [Seleccionar]
Dim Fecha1 As String, Fecha2 As String
 Fecha1 = Format(DTPicker1, "yyyy-MM-dd")
 Fecha2 = Format(DTPicker2, "yyyy-MM-dd")
  BD.Execute "delete from detalle where fecha between #" & _
  Fecha1 & "# and #" & Fecha2 & "#"

9
Bases de Datos / Re:No graba los decimales en la tabla access
« en: Marzo 20, 2018, 09:11:03 am »
En mysql guarda el decimal como punto no como coma aunque lo configure en configuracion regional y idiomas de windows xp,7,8,10,etc
Tu valor decimal esta en un texbox => tevalor

'replazo en el textbox la coma por punto
Sql = "INSERT INTO CABECERA_PEDIDOS(VALOR) VALUES(" & Replace(Tevalor, Chr(44), Chr(46)) & ")”
Base.Execute (Sql), adCmdText

Pero Access si lo guarda segun configuracion Windows y quedaria asi
Sql = "INSERT INTO CABECERA_PEDIDOS(VALOR) VALUES(" & Tevalor & ")”
Base.Execute (Sql), adCmdText

10
Bases de Datos / SOLUCION DE CVS CON ACENTOS AL CARGARLOS CON LOAD DATA
« en: Enero 19, 2018, 11:57:39 pm »
AGREGAR EN LOAD DATA  EL CHARACTER SET latin1 QUEDARIA ASI
LOAD DATA LOCAL INFILE  '/ARCHIVO.csv' INTO TABLE TABLA CHARACTER SET latin1 FIELDS TERMINATED BY ','  ENCLOSED BY '""' LINES TERMINATED BY '\r\n';

11
Códigos - Aportes - Recursos / Re:CODIGO fuente para cantar bingo de 90 bolitas
« en: Noviembre 30, 2017, 10:16:20 am »
No hay problema. tienes que aportar el codigo tambien a ver si tambien alguien lo mejor mas al igual

12
Bases de Datos / Re:Recuperar datos de Procedimiento Almacenado con parametros
« en: Agosto 15, 2017, 11:42:08 pm »
este es el archivo del procedimiento almacenado  mCedulas.sql
si te fija mi usuario mysql es bethermy y mi servidor es localhost y abierto por internet(%)
Código: (SQL) [Seleccionar]
DELIMITER $$
DROP PROCEDURE IF EXISTS `mCedulas`$$
CREATE DEFINER='bethermy'@'localhost,%' PROCEDURE `mCedulas`(IN prm INTEGER)
BEGIN
SELECT cedula FROM clientes WHERE cedula=prm;
END $$
DELIMITER ;

y en visual basic sustituye en la linea comentada

Código: (VB) [Seleccionar]
'strSQL = "SELECT cedula FROM clientes WHERE cedula='3230148'"
'rsADO.Open strSQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText
valor_ci="3230148"
Set rsADO = cnADO.Execute("call mCedulas('" & valor_ci & "')")

13
Visual Basic 6 / Re:Seleccionar Items de Listivew y Mostrar Imagen
« en: Agosto 09, 2017, 11:51:14 am »
Si usa la conexion dns de windows almacenalo en la misma base de datos seria asi
https://support.microsoft.com/es-ve/help/550588

14
Visual Basic 6 / Re:Seleccionar Items de Listivew y Mostrar Imagen
« en: Agosto 09, 2017, 11:46:06 am »
Me imagino que tienes la carpeta de la base de datos compartida en red  si el programa esta en red.
preguntas si no existe la carpeta imagen crear dicha carpeta
entonces en la tabla de registro tendrias un id_imagen y creas una tabla imagen con id(autonumerico), archivo_imagen(nombre del archivo . jpg)


15
Bases de Datos / Re:Usuarios en MySQL
« en: Agosto 09, 2017, 11:35:23 am »
Si no te funciona y queda igual.
Es que estas usando un insert directo a mysql. En vez de addnew el cual si captura el ultimo insert realizado. Ya que estas haciendo un insert es poca la diferencia.
A menos que uses disco duros ssd lo cual te garantiza solo 2.5x de velicidad en escrituras o sea un insert que tarde 8.47sec tardara 3.27sec en una prueva que hice en discos ssd de 500mb/s de transferencia.

Páginas: [1] 2 3 4 5 6 ... 8