Mensajes

Jaja.. Vaya... Brother, solo quise llamarlo asi MP3 Reproductor... Es el Nombre de mi aplicación...! Creo que la puedo llamar como más me guste...!

Bueno, estuve un poco fastidiado ayer, y quise desarrollar un Reproductor MP3. Quizás tenga algunos fallos. Si alguien tiene sugerencias o comentarios, son bienvenidos.

Saludos

Adjunto muestro la Imagen Principal


Acá luego de seleccionar un Directorio para Cargar los Archivos.


Acá mi creación en su andanza...!


Nota: Al minimizar, se coloca el icono en el Systray. Para llamarlo de nuevo, solo deben hacer dobleclick sobre el...!

Sin más, pues dejo el source para que lo descarguen y lo prueben....!

Espero les guste... Saludos...

PD: Vendré con una versión para ver Videos y Peliculas en DVD....! Comming Soon..!

Descarga 1
Descarga 2

como puedo sacar el item (54) si yo le envio el text:11 y esta por default en la consulta text:teoria.

bueno no se si me di a entender.... pero quiero saber como puedo consultar el item  de una consulta que involucre a los dos  valores de text 

Espero y me peudan ayudarr Gracias!!

Querrá algo así...

Código (sql) [Seleccionar] Expandir



SELECT item, text FROM TABLA WHERE item = 54 and (text='teoria' and text='11');



A ver, Algo así???

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub

Private Sub List1_Click()
If List1.Text = "Ejemplo 1" Then
Text1.Text = "Debo Aprender"
ElseIf List1.Text = "Ejemplo 2" Then
Text1.Text = "A usar GOOGLE"
ElseIf List1.Text = "Ejemplo 3" Then
Text1.Text = "O Leer Mas"
End If
End Sub



List1.Text, no es una variable... .Text es la propiedad que posee el OBJETO List1, el cual te permite leer su valor al posicionarte en alguno de los registros que este contenga... Pero hagamos algo, leete mejor un manual de vb...!

Esto te puede ayudar: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

Fijate acá...

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub

Private Sub List1_Click()
Text1.Text = "Este es: " & List1.Text
End Sub



Replace ("A","B")

si mal no recuerdo

eso lo que haria es remplazar a por b 

Bye !

Recuerdas MAL... POrque es como dijo BlackZerox

Sabemos que no es un campo de la segunda tabla Cioouw    es una variable (El parametro de hecho que le pasas al procedimiento), pero por sintaxis debes ponerlo como ssccaann43 te ha recomendado  y porque no estas pasandole un segundo campo o campo inexistente de la Tabla2 sino que estas pasandole 1 valor como segundo campo... es todo 

Te me adelantaste mi ovejita negra...! Jaja XD

Fijate en este ejemplo que se lo recomiendo a todo el mundo:

Ver Ejemplo 1

Ver Agenda con WidGets

Fijate....!

Si la ruta de la BD en el string de conex es algo como:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

Ahora bien... La tienes en un servidor... Pues podría ser algo como:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Server\MySoftware\mydatabase.mdb;User Id=admin;Password=;