Mensajes

Me imagino que antes hacia un select de la base de datos por cada consulta, pero segun entendi por lo que dijo hizo un solo select de la base de datos, los almaceno en un array y de hay sacaba los datos que iba a usar

Debes tener en cuenta que el archivo debe estar en la misma ruta en el cliente y el servidor de lo contrario no se reproducira. Espero que te sirva Saludos!!!

Lo que seba123neo quiso decir fue que hicieras algo asi:

En el cliente envia algo asi: enviar "sounon" & "|" & Path_Del_Archivo y en el servidor en el Sub dataArrival haz un split de los datos recibidos para sacar digamos el comando que seria sounon y el parametro osea el path del archivo; por ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Comando As String
    Dim Parametro As String
   
    Winsock1.GetData datos
   
    Comando = Split(datos, "|")(0)
    Parametro = Split(datos, "|")(1)
   
    Select Case Comando
   
        Case Is = "sounon"
            Call Reproducir_WAV(Parametro, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    End Select
End Sub

men el problema debe estar en tu maquina o no se donde pero en mi pc el code corre de maravilla

Creo que algunos de estos es el que buscas:

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&B1=Quick+Search&txtCriteria=genetic&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&optSort=Alphabetical

Estoy deacuerdo con ssccaann43, es mejor usar MySql o SQL Server

Dudo que sea eso ps en una variable tipo string se puede almacenar mucho, que error te manda el vb y que tipo de datos son hoja1, hoja2 y hoja3?

Tal vez esto te sirva:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=57602&lngWId=1

Exactamente como lo coloco el amigo Dessa Saludos xD!!

En un formulario pon un  textbox con multiline en true y scrollbars en Both, y un command botton ambos con nombres por defecto. en el codigo:

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()

   Dim Imagen As String
   Dim Url As String
   Dim PathArchivo As String

   PathArchivo = "C:\Archivo.txt"

   Open PathArchivo For Input As #1
   While Not EOF(1)
   Input #1, Imagen, Url
   Text1.Text = Text1.Text & "<a href=""" & Url & """ target=""_blank""><img class=""alignnone"" src=""" & Imagen & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf
   Wend
   Close #1

End Sub


el archivo de texto debe estar asi:

Código [Seleccionar] Expandir



http://www.foto1.jpg, http://www.lamejorwebdelmundomundial.com
http://www.foto2.jpg, http://www.google.es
http://www.foto3.jpg, http://www.mediavida.com



La foto debe estar separada de la url con una coma y cuando pulses el command 1 el resultado apàrecera en el text 1. espero que te sirva Saludos XD!!!