Buenos dias/tardes/noche.

Os cuento. Estoy haciendo una aplicacion, en la que uso visual basic y mysql.

El tema, esta en que quiero que quiero que mi aplicacion sea totalmente distribuible, es decir, que donde lo quiero usar, no se tenga que instalar el conector.

Probé a buscar las dll's que instalaba y demas, meterlas en el path del .exe, pero sigue sin funcionar. Da un error.

Despues de esto, use la famosa libreria libmySQL.dll con la que estoy muy contento. Va a la perfección.

Ademas de querer hacer consultas, se me ha antojado poder subir archivos a la base de datos en campos BLOB. Con el conector me funcionó sin problemas, y de momento lo uso para las pruebas, pero me gustaria sacarselo.

Probé con la libreria. Mire como sería en php, y ví que se tenia que abrir en modo binario, y luego era un INSERT o un UPDATE, o lo que quisieras, con la variable donde lo habias guardado.

(lo siento, queria dar a preview post, y me equivoque de boton. No puedo editar ni borrar el post. Siento el doble posteo).



Hasta aqui, parecia todo perfecto, ya que yo creaba un objeto del tipo de la libreria, y tenia que hacer mysqlobject.query(consulta), y deberia funcionar. Ahora, el problema que tengo, es que la propia consulta, al tener los datos en binario, debe de encontrar caracteres raros de tipo ', €¬ y claro, al encontrar el ', seria un nuevo parametro en la consulta y me peta, ya que me dice, que no se ha encontrado la columna €¬ (por ejemplo) .

Seguí mirando, y en un foro vi que en php se usaba una funcion addslashes() y me gustaria saber, si en vb existe algo parecido, o exactamente que caracteres reemplaza por cuales... porque encontre donde se supone que estaba hecho, y hacia un replace de """ por """""" y un replace de " ' " por " ' ' ".


espero no haberme enrollaado demasiado. Gracias a todos!

Es asi como lo describes.

Haces un Relpace de ' por ' ' y te funciona.

Un abrazo desde España.

Iniciado por Knossos

Es asi como lo describes.

Haces un Relpace de ' por ' ' y te funciona.

Un abrazo desde España.

Creo que estaba haciendo algo mal. Lo estaba metiendo en un String. Eso estaría mal verdad? Se supone que son datos binarios, con lo cuál, tendria que meterlo en algo de tipo byte. Pero byte es un solo elemento, asi que tendria que ser en un array de byte's.

Mira, exactamente, tengo esto escrito:

Código:

Private Function readFile(strPath As String) As Byte()
 '(strPath=ruta del archivo que quiero leer en binario)
 Dim data() As Byte
 Dim fLen As Long
 
 Open strPath For Binary Lock Read As #1
 fLen = FileLen(strPath)
 ReDim data(fLen) As Byte
 Get #1, , data
 Close #1
 
 readFile = data()
 'Debug.Print data
End Function

Public Function updateToBlob(strFile As String) As Boolean
 '(strFile=ruta del archivo que quiero subir a mysql)
 If CLng(ObjPtr(mySQL)) <> 0 Then 'mySQL es un objeto de una clase que tiene las funciones de libmySQL.dll
 Dim file() As Byte
 file = readFile(strFile)
 'mySQL.query "INSERT INTO files (file) VALUES ('" & file & "')'"
 updateToBlob = True
 Else
 updateToBlob = False
 End If
End Function

Después de esto, no se como hacerlo, porque el problema, es que da error en compilación, en la linea comentada y en negrita. No se puede concatenar un array de bytes con un String (logicamente).

(Se supone que le falta el addSlashes, pero vamos que no termino de comprender como voy a hacer un addslashes a un array de bytes)

ni yo.. je je, pero...

files es el nombre de tu tabla ???????
(insert into files (files))
mmm, un poco liante no ?

siguiendo con el tema:

si el dato que espera recibir el campo es un byte... no entiendo de donde sacas esa comilla, pero tampoco puedes agregarle tu AddSlash (o replace o lo que sea), ya que un byte sólo te aceptara eso... solo un byte.

¿Puedes cambiar el tipo de campo?

Un abrazo desde España

Iniciado por mskn73

Código:

'mySQL.query "INSERT INTO files (file) VALUES ('" & file & "')'"

Después de esto, no se como hacerlo, porque el problema, es que da error en compilación, en la linea comentada y en negrita. No se puede concatenar un array de bytes con un String (logicamente).

(Se supone que le falta el addSlashes, pero vamos que no termino de comprender como voy a hacer un addslashes a un array de bytes)

A mí me pasa como a Knossos: no entiendo la parte files(file) y menos estando entre comillas.
En cuanto a la lista de valores ¿no valdría algo así como?:

Código:

strFile = ""
For i=1 TO UBound(file)
 strFile = strFile & "'" & CStr(file(i)) & "', "
Next

... Algo así, no eso claro, detalles aparte (quitar la coma del final, ver donde faltan o sobran las comillas...), también puedes hacer un Replace dentro del bucle de los caracteres extraños (o te escribes tu propia addslashes según lo que necesites).
A ver si algo así te funciona, aunque si superas la fase de compilación, parece que te va a fallar en ejecución la primera parte de la sentencia ¿no?...
Saludos.