Gracias, arme algo mas o menos y funciono. solamente tengo que perfeccionarlo.
muchas gracias por tu tiempo y por la solucion
Saludos.-

la verdad es que no lo puedo lograr.
pregunto, con sql y de la forma que estoy haciendo, existe alguna posibilidad de hacerlo ?
saludos !!

Hola, tengo el siguiente problema con una tabla acces 97 que estoy levantando con sql. (Visual Basic)
el problema es que no puedo mostrar toda la base de datos.
solamente me muestra el primer registro de la tabla.
y la idea es mostrar toda la tabla !
este es el codigo que estoy utilizando:


Dim cargdia As Database
Dim buscara1 As Recordset
Set cargdia = OpenDatabase("c:\Sound Media\BDuser\" & DIA & ".mdb")
Set buscara1 = cargdia.OpenRecordset("SELECT * from Luna1")

If buscara1.RecordCount > 0 Then
MsgBox buscara1.RecordCount
Audio1play.MSFlexGrid1.Rows = buscara1.RecordCount + 1
For buscador = 1 To buscara1.RecordCount

Audio1play.MSFlexGrid1.TextMatrix(h, 0) = buscara1!icono & ""

h = h + 1

buscara1.MoveNext
Next buscador

saludos y gracias

hola, en esta oportunidad necesita la ayuda de ustedes para poder armar un msgbox en visual bacis con lo siguinete...

son tre botones:

SI A TODO           SI              CANCELAR


y logicamnete poder saber el resulata del usuario.
gracias y saludos
Sebastian

hola, tengo un error insolito (al menos para mi). estoy utilizando el siguiente codigo para poder guardar en una base de acces unos datos.

Sql = "Update tabla_base Set "
Sql = Sql & "nombre = '" & nombre & "'"
Sql = Sql & ",interprete = '" & interprete & "'"
Sql = Sql & ",Duracion = '" & Duracion & "'"
Sql = Sql & ",intro = '" & intro & "'"
Sql = Sql & ",categoria = '" & Categoria & "'"
Sql = Sql & ",tiemposali = '" & tiemposali & "'"
Sql = Sql & ",ubicacion = '" & ubicacion & "'"
Sql = Sql & ",fechagraba = '" & fechagraba & "'"
Sql = Sql & ",fechavence = '" & fechavence & "'"
Sql = Sql & ",outro = '" & outro & "'"
Sql = Sql & " Where codigo = '" & codigo & "'"

mibase3.Execute Sql, dbFailOnError

El problema es que si en cualqiera de los campos a grabar el dato tiene un " ' " (apostofe) me tira un error de sentencia.
es decir me toma el (apostrofe) que esta en la cadena a guardar como si fuera algo de la sintaxis.-

mas resumido:
si grabo esto: hola mi nombre es sebastian
(no mapa nada)
pero si intento de esta manera: hola mi nombre es sebastia'n
(tengo error)


desde ya muchas gracias


[/code]

hola, necesito saber por intermedio de visual Basic la hora y fecha de creacion de un archivo
desde ya muchas gracias
Saludos
Sebastian

Hola, tengo un problema....
Necesito remplazar en un proyecto Visual Basic unos Msflexgrid que tengo. este proyecto lo empese hace mucho tiempo y ahora me quedo un poco obsoleto. Es que con el actual MSFLEx no puedo sellecionar en filas distintas utilizando "Ctrl" y tampoco puedo utilizar la ruda del mouse para desplazarme con las barras.

Necesitaria un remplazo de similar codigo y que soporte la seleccion de filas en forma aleatoria y el control de las barras de dezplasaamiento por la rueda del mouse.
Desde ya, muchas gracias !!
Sebastian

Hola, tengo un problema....
estoy utilizando en mi aplicacion 3 msflexgri, los cuales hacen drag an drop entre si.
el problema es que uno contiene 5 columas menos que los otros. y yo necesti que este ultimo ( el de 5) se llene con los datos de alguno de los 2 restante.
Ejemplo:

msflex 1: A,B,C,D,E,F,G,H,I,J
msflex 2: A,B,C,D,E,F,G,H,I,J
msflex 3: A,B,C,D,E

si realizo D&D entre el 1 y 2 o esta todo ok.
Pero si ralizo D&D entre el 1 y el 3, hay 5 columnas que me sobran.

Este es mi codigo



Private Sub MSFlexGrid1_OLEStartDrag(index As Integer, Data As MSFlexGridLib.DataObject, AllowedEffects As Long)
MSFlexGrid1(index).RowSel = MSFlexGrid1(index).Row
MSFlexGrid1(index).Col = 0
MSFlexGrid1(index).ColSel = MSFlexGrid1(index).Cols - 1
AllowedEffects = vbDropEffectCopy
Data.SetData MSFlexGrid1(index).Clip, 1
End Sub

teroricamente dentro de data estoy guardando todo lo que contiene mi primer msflexgrid


Private Sub MSFlexGrid1_OLEDragDrop(index As Integer, Data As MSFlexGridLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1(index).AddItem Data.GetData(1)
Screen.MousePointer = 1
End Sub


y aqui devuelvo con data el contenido.
Ahora. como hago para acomodar el contenido que tengo en este data a mi gusto para poder utilizarlo en el msflexgrid 3 que tiene menos columnas.

Graicas.
Sebatian
[/code]

estoy utilizando lo siguiente para poder filtrar por categoria en una base de datos.

Set buscar = mibase.OpenRecordset("SELECT * from tabla_base where trim(tabla_base!categoria) LIKE trim(' " & categodestino.Text & " ')order by Tabla_base!nombre asc")

El problema es que en algunos registros tengo dos o mas categorias separada por un "#".
Ejemplo:

AMIGOS#FAMILIA#TRBAJO

Cuando tengo una sola categoria dentro del mismo campo SQL me lo filtra al pelo, pero cuando tengos mas de una categoria dentro del mismo campo  SQL no lo hace.
La idea es que SQL me separe las categorias que estan divididas por "#".
y pueda ver un registro que este con categoria AMIGO o
AMIGO#FAMILIA#

Gracias !


[/code]

creo que me explique mal.

Necesito realizar la comparacion entre la cadena y el dato.
Ejemplo:
Rodrigo # Juan Carlos # Luis # Pablo

SI existe "Luis" en la cadena, es OK

Gracias

Hola, necesito detectar una cadena que esta separada entre "#"

Ejemplo:
Rodrigo # Juan Carlos # Luis # Pablo

La idea es recorrer esta cadena y comparar si existe en ella " Luis "

Gracias por la ayuda.
Sebastian

hola, me encuentro con un problema.
Realize una aplicacion que utiliza un programa exe externo.
El problema es que no se porque dejo de funcionar todo lo referido a SHELL en la aplicacion o en alguna nueva que intente hacer.
el error es este:
Llamada a procedimiento o argumento no validos

esta es la llamada:
Shell "c:\Sound Media\sndvol32.exe"

Gracias a quien me pueda ayudar!
Sebastian

Hola, sigo trabajando con sql y me surgio el siguiente problema:

utilizo esta consulta para consultar en mi base de datos y filtrar todos los campos que tengan la categoria que esta en el combo ( categoriaselegir.Text ).
El combo lo pude pasar a Trim.
pero algo logico! , pasó el del combo y no el del campo que esta en la base de datos. Logicamente no filtra los que tenga espacios atras.

Quien me salve. Muchas Gracias !!

Código [Seleccionar] Expand


Set buscar = mibase.OpenRecordset("SELECT * from tabla_base where tabla_base!categoria LIKE trim(' " & categoriaselegir.Text & " ')order by Tabla_base!nombre asc")


Hola, sigo trabajando con sql y me surgio el siguiente problema:

utilizo esta consulta para consultar en mi base de datos y filtrar todos los campos que tengan la categoria que esta en el combo ( categoriaselegir.Text ).
El combo lo pude pasar a Trim.
pero algo logico! , pasó el del combo y no el del campo que esta en la base de datos. Logicamente no filtra los que tenga espacios atras.

Quien me salve. Muchas Gracias !!

Código [Seleccionar] Expand


Set buscar = mibase.OpenRecordset("SELECT * from tabla_base where tabla_base!categoria LIKE trim(' " & categoriaselegir.Text & " ')order by Tabla_base!nombre asc")


Hola, estoy trabajando con Visual Basic 6, necesito insertar un registro de la siguiente manera:

Dim mibase2 As Database
Dim insertar As Recordset
Set mibase2 = OpenDatabase(remotodestino & "\Sound Media\Ultima_97.mdb")

Dim Sql As String
Sql = "Insert into Tabla(campo1, campo2...)values(valor1,valor2...)"
mibase2.Execute Sql

Me da el siguiente error:

Syntax error in INSERT INTO Statement

Cual puede ser el problema?????
Espero que me puedan ayudar....
Sebastian