Visual Basic Foro

Hola cobein. No puedes hacer varias lineas a la vez.

INSERT INTO tabla (id,nombre,apellido) VALUES (1,Ivo,Gata);
INSERT INTO tabla (id,nombre,apellido) VALUES (1,Ivito,Gatito);

es lo que deberías hacer.

Saludos

yo que tengo que ver aca puto

DETONADOOOOOOOOOOOO

Recien ahora estoy un toque mejor, apenas se fueron ustedes me tire a dormir un poco porque sino moria!!!

La proxima sale un asadito o alguna comidita gourmet

por cierto:

Capo esto no es base de datos. El tipo solo preguntó como carajo cargar las últimas 8 fotos. Hace un for o un loop y que cargue los ultimos 8 fegustros del usuario y listo vieja suerte

SEÑOR MODERADOR "ESTO ES BASE DE DATOS"

Hola la verdad muy lindo todo pero no se de que me hablan 
yo lo único que conozco es esta forma de insertar datos

Código: [Seleccionar]

sSQL = "INSERT INTO TitulosEnCola (Nombre, Interprete, Genero, Duracion, IdTerminal, IdCategoria, PathDeOrigen) VALUES " & _
    "('" & RW(sTitulo) & "','" & RW(sInterprete) & "','" & RW(sGenero) & "','" & nDuracion & "','" & CboTerminales.ItemData(CboTerminales.ListIndex) & "','" & CboCategorias.ItemData(CboCategorias.ListIndex) & "','" & RW(sFileName) & "')"

    cnnBD1.Execute sSQL, , adCmdText

donde

Código: [Seleccionar]

Public Function RW(Word As String) As String
    RW = Replace$(Word, Chr$(39), Chr$(1))
End Function

Public Function UW(Word As String) As String
    UW = Replace$(Word, Chr$(1), Chr$(39))
End Function

utlizo Access y Adob

Para que reemplazas??? no hace falta... los Textos van con comilla simple, los numeros sin nada y las fechas con HASH #.... yo no reemplazo nada, le mando fruta asi nomas exactamente de la misma manera que vos... sacale la funcion de RW a todos y vas a ver que funciona igual... a menos que el string ya contenta comillas desde antes.... igual no tendria sentido

Recomiendo no guardar imagenes dentro de una base de datos y menos que menos una DB Access, imaginate que por cada imagen que se le agrega, la base de dato pesa mas mas mas y mas y si queres hacer backup vas a tener 1 solo archivo que pesa 100 mb porque tenes todas las imagenes ahi guardadas.

Lo que yo te recomiendo y es lo mas profesional que vas a poder hacer es lo siguiente:

Guardar la URL de la imagen. no la imagen en si sino la direccion donde se encuentra almacenada. de esta manera la base de datos es mucho mas agil.

Si tiene un tabla con un ID del cliente tiene en cuenta lo siguiente:

Una persona se registra 1 sola vez osea 1 unico id por lo tanto si nosotros creamos 4 o 5 campos para las imagenes esa persona en TODA SU VIDA va a poder guardar solo 5 imagenes...

En cambio si creas otra tabla que sea IDCliente, Imagen, Fecha, vas poder cargar toooooooooooodas las que quieras.

Que quiero decir?

Una persona tiene mas de 8 huesos, osea que si la persona se quebro 9 ya no la vas a poder guardar a eso me refiero, lo mejor para mi en vez de mostrarlas con un ImageBox o un PictureBox, yo haria un Listbox o usaria un FileBox para seleccionar las imagenes ya guardadas por cada paciente y asi no vas a tener nunca complicaciones con la CANTIDAD de imagenes... lo unico que deberias guardar en la DB seria la URL de la carpeta y despues cuando las queres ver lo unico que tenes hacer es:


'Con esto seleccionamos la carpeta en la cual va a buscar las imagenes
File1.Path = RecordSet("DIRECCION")
file1.Pattern = "*.jpg" > Esto es solo para que filtre los JPG y no cargue otro tipo de archivo que ande suelto o temporales.


Luego en el Evento CLICK del File1

Image1 o Picture1 = LoadImage(File1.Path  & "\" & File.FileName)


LISTO ya esta funcionando y te quedaria mas o menos asi...

https://www.dropbox.com/s/x7670hzf7epz0xe/Captura%20de%20pantalla%202014-06-10%2021.40.37.png

Odio usar objets pero ya lo ternia armado y era lo que habia, el problema es que yo necesito descargar el codigo para parsear cada 5 minutos y esta porqueria me guarda en CACHE la informacion, alguie tiene idea como descargar el cache??? o como resetear las variables?

Private Function GetDownloadFile(strURL As String, Optional ByRef blnRet As Boolean) As String
    On Error Resume Next
    Err.Clear
   
    If objXML Is Nothing Then
        Set objXML = CreateObject("Microsoft.XMLHTTP")
    End If
   
    objXML.Open "GET", strURL, True
    objXML.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) SKL/" & App.Major & "." & App.Minor & "." & App.Revision
    objXML.SetRequestHeader "Accept-Language", "es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3"
    objXML.SetRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
    objXML.sEnd
   
    WaitTilDown 'wait til download
    objXML.getAllResponseHeaders
   
    GetDownloadFile = objXML.responseText

   
    blnRet = Not (Err)
End Function


Private Function GetSerialDisk() As String
    Dim svc As Object
    Dim objEnum As Object
    Dim s1 As String
    Dim obj As Object

    Set svc = GetObject("winmgmts:root\cimv2")
    Set objEnum = svc.execQuery("select SerialNumber from win32_physicalMedia ")
    s1 = ""
   
    For Each obj In objEnum
        s1 = s1 + obj.GetObjectText_ + vbCr
    Next
   
    s1 = Split(s1, vbLf)(3)
    s1 = Trim$(Split(s1, """")(1))
   
   
    GetSerialDisk = s1
   
End Function
Ese es el que yo utilizo, solo sirve para HD tengo otros dando vuelta lo tengo que buscar, creo que este tambien lo usa cobein en sus aplicaciones es mas creo que el me lo paso jaja