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]

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

Hola, estoy intentando insertar un registro en una base de datos access con SQL en visual basic 6.0, lo hago de la siguiente manera:

Dim mibase2 As Database
Dim insertar As Recordset
Set mibase2 = OpenDatabase("ruta de la base")
set insertar = ("Insert into tabla(campo1,campo2...) values('valor1','valor2'...)

De esta manera me esta dando error, alguien me puede decir en que estoy fallando??? o como puedo hacerlo???
Desde ya muchas gracias....
Sebastian!

estoy usando Visual Basic 6, estoy haciendo una consulta con SQL de un campo tipo fecha de la siguiente manera:

Dim mibase As Database
Dim buscar As Recordset
Set mibase = OpenDatabase("C:\Sound Media\Ultima_97.mdb")
Set buscar = mibase.OpenRecordset("Select * from Tabla_base where Tabla_base!Fechagraba<=#" & Text8.Text & "# order by Tabla_base!Fechagraba asc")

Ese codigo funciona bien, pero para buscar en un campo de tipo texto me da error, que tengo que modificarle???

Desde ya muchas gracias....

Hola. hoy tengo este problema
Estoy levantando una base de datos DBF con ADOC y utilizo la siguiente para filtral los campos y mostrarlo en un msflexgrid.

Código [Seleccionar] Expand



Adodc1.Recordset.Filter = "Categoria like '" + Trim(categoorigen.Text) + "%'"




El problema es que me mustra tambien los registros que fueron marcados para luego ser eliminar en la base de DBF. (creo que me explico. me refiero a la marca "negria" que realiza fox cuando eliminas un registro)
Exite alguna posibilidad de hacer la cosulta y filtrar estos registros ?
Gracias.

Hola,
necesito conectar una base dbf con ADO por medio de codigo. (Visual Basic)
gracias !!!
Sebastian

Hola, necesito ayuda con esto.
Existe la posibilidad que randomize no me vuelva a elegir el musmo numero aleatorio ?
Utilizo esto para crea un numero a la zar

Randomize Timer
au2 = Int(Rnd * MSFlexGrid3.Rows)

la idea es que "au2" no sea repita.

Gracias
Sebastian

 Hola, nesecito un ejemplo de como puedo enviar un mail con visual basic.
encontre muchos pero ninguno con autentificacion.
Gracias por los datos que me puedan aportar !
Sebastian.-

 Hola, gracias por responder..
Estoy utilizando Visual Basic, y utilizo el que viene en la instalacion ...
Espero que te sirvan estos datos.
Gracias.
Sebastian

 Hola, estoy tratando de agregar unos items en un menu emergente. la idea es esta.

yo tengo un menu dinde solamente tengo un solo items

Ejemplo:

            Mi Menu
Yo quiero que despues de "Mi Menu" como agregado se despliegue una lista de items tomando los mismo de un combobox
Ejemplo:

Comobo= 1 - primero
               2 - segundo
               3 - tercero
el menu tiene que quedar:

MI MENU > 1 - primero
                 2 - segundo
                 3 - tercero

Gracias
Sebastian !