Mensajes

Ya me lo han solucionado..
" & & "

Tengo esto en un módulo .bas que va todo bien:

Form1.Data1.RecordSource = "SELECT * FROM Tabla1 WHERE referencia LIKE '5*' ORDER BY referencia"

para que busque en el campo referencia todas las que empiecen con 5 y me las ordene.

Tengo esto otro en un formulario antes de hacer la llamada a la subrutina del módulo .bas:
valor = "referencia"
lo he definido como string.

y lo que quiero hacer es sustituir referencia de arriba por valor.. y no lo consigo, le he puesto de todo, comillas, paréntesis y nada...

muchas gracias

Intenta dar un poco más de ayuda...
¿Te ha funcionado bien alguna vez?
¿tienes problemas en el administrador de dispositivos?
¿Lo has instalado hace poco?
pon aquí copiado el log a ver qué dice..

Lo más seguro por el motivo que no te la reconoce es porque has cambiado o has puesto mal slave o master..
Tienes que ver cómo está conectado tu lector/grabador DVD. Es decir tienes que ver el cable (el cable más ancho de todos, que se denomina "interface connector") dónde va conectado.
Si por ej. ese cable va conectado primero a tu disco duro y el disco duro está en master, y luego el mismo cable continúa a tu DVD, pues tu DVD lo tienes que poner en slave.
Es decir, no pongas en la continuidad dl mismo cable dos slaves ni dos master, porque te dará error..
Lo de slave y master lo puedes cambiar por detrás de tu lector/grab DVD, que es una pieza pqueña que puedes sacar..

P.D. Si todo esto lo tienes ya bien y sigue sin reconocer el DVD ve a administrador de dispositivos y eliges donde ponga el error de tu lctor/grab DVD y en la ventana siguiente te saldrá un código de error. y lo pones aquí a ver.

No sé si me estoy equivocando, yo he utilizado mucho el clone CD..
pero el clonyXXL dejó de utilizarse hace ya bastante tiempo porque todas esas opciones que analizaba el clonyXXL ahora ya vienen incorporadas en el cloneCD actual y mucho más mejoradas, así que yo pienso que no es nada útil utilizar el clonyXXL porque creo que era para versiones ya bastante antiguas..

Respecto a lo de la grabación del DVD, con el cloneCD sí que puedes grabar como has hecho el DVD pero el problema casi seguro será que hay que descifrarlo y para esto hay un programa de la misma casa llamado AnyDVD.. con estos dos programas juntos no tendrás problema..

Echa un vistazo:
http://www.slysoft.com/es/anydvd.html

Lo conseguí por fin..

    Data1.DatabaseName = ""
    Data1.Refresh   

[Instr]

                Instr

Da como resultado la posición del primer carácter de una subcadena en una cadena. Su sintaxis es:

pos=Instr([n,] cadena, cadena_buscada)

donde n es una expresión numérica (su valor predeterminado es 1) y cadena y cadena_buscada son expresiones de caracteres.

Instr da como resultado la posición del primer carácter de cadena_buscada en cadena, si cadena_buscada está contenida en cadena; el argumento n especifica la posición en cadena donde debe empezar la búsqueda. Si cadena_buscada no se encuentra en cadena, se devuelve como resultado 0. Si cadena_buscada es una cadena de longitud cero, Instr retorna 1 o n si es que n fue especificado.
Por ej:

Cadena1 = "Programa ejemplo"
Cadena2 = "gram"
Print InStr(Cadena1, Cadena2), InStr(6, Cadena1, Cadena2)
'Dará como resultado: 4   0




                     Chr

Da como resultado el carácter ANSI correspondiente al código de carácter especificado. Su sintaxis es:

nombre_variable = Chr(código_carácter)

donde código_carácter es una expresión numérica de valor 0 a 255 y nombre_variable es una variable de caracteres.

Chr se utiliza normalmente para enviar caracteres especiales al terminal o a la impresora. Por ej:

For i = 65 To 90
Print Chr (i); 'escribe: ABC......Z
Next i




                         Asc

Da como resultado el código de carácter correspondiente al primer carácter de la cadena de caracteres especificada. Su sintaxis es:

código_carácter = Asc(expresión_de_cadena)

donde expresión_de_cadena puede ser cualquier expresión de caracteres.
Si la expresión_de_cadena es de longitud cero, se devuelve un error. Esta función es la inversa de Chr. Por ej:

Cadena1 = "Test"
Print Asc(Cadena1) 'escribe: 84

84 es el código ANSI del carácter T, que es el primero de la cadena1 "Test"




                Función Mid

Da como resultado una subcadena de un cadena de caracteres. Su sintaxis es:

nombre_variable = Mid(expresión_de_cadena, n [,m])

donde expresión_de_cadena es cualquier expresión de caracteres y n y m son expresiones enteras.

La función Mid obtiene una subcadena de m caracteres de longitud, empezando por el n-ésimo carácter, de la expresión_de_cadena. Si se omite m o si hay menos caracteres que m a la derecha del carácter n-ésimo de expresión_de_cadena, se obtiene la totalidad de caracteres que hay a la derecha de éste. Si m es igual a cero o si n es mayor que Len(expresión_de_cadena), Mid da como resultado una cadena de longitud cero. Por ej.:

Cadena1 = "Francisco 25/08/82/"
Cadena2 = Mid(Cadena1, 14, 2)
Print Cadena2                  'escribe:  08
Print Mid(Cadena1, 11)     'escribe: 25/08/82




                  Sentencia Mid

Sustituye una subcadena de una cadena de caracteres por otra subcadena de caracteres. Su sintaxis es:

Mid(nombre_variable, n [,m]) = cadena

donde nombre_variable es una variable de caracteres en la cual se va reemplazar un número de ellos, n y m son expresiones enteras y cadena es una expresión de caracteres que reemplaza parte de nombre_variable.

Los caracteres en nombre_variable que comienzan en la posición n son sustituidos por los caracteres en cadena; m, que es opcional, indica el número de caracteres de cadena que van a utilizarse en la sustitución. Si m se omite, se utilizan todos los caracteres de cadena. La longitud de nombre_variable, independientemente de si m es utilizado o no, no se modifica con el cambio. Por ejemplo:

CadenaA = "15/09/99"
CadenaB = "-"
Mid(CadenaA, 3) = CadenaB
Mid(CadenaA, 6) = CadenaB
Print CadenaA   'escribe: 15-09-99


CadenaA = "abcd"
CadenaB = "1234"
Mid(CadenaA, 3) = CadenaB
Print CadenaA    'escribe: ab12




                Right

Da como resultado los n caracteres de expresión_de_cadena situados más a la derecha. Su sintaxis es:

nombre_variable = Right(expresión_de_cadena, n)

donde expresión_de_cadena es cualquier expresión de caracteres y n es una expresión numérica.

Si n es mayor que Len(expresión_de_cadena), el resultado es la cadena de caracteres completa. Si n es igual a cero, el resultado es una cadena de longitud cero.

Ej.
Cadena1 = "Derecha"
Cadena2 = Right(Cadena1, 3)
Print Cadena2    'escribe:  cha


Extraído de un libro de VB6.

Abrí una base de datos con el control de datos data.

Para hacer las consultas pienso que es mejor abrir la base de datos: Set Baseddatos = OpenDatabase("base.mdb").

Lógicamente el VB no me deja abrir la base de datos, porque ya la he abierto con el control de datos data..
Por mucho que he buscado no encuentro la manera de cerrar la base de datos para poder hacer las consultas..
Gracias

Vi esa forma de abrir la tabla en un tutorial...
Muchas gracias Gangrel por tu ayuda, ha sido todo correcto como dijiste.

Soy bastante nuevo con VB. Agradezco muchísimo toda la ayuda que estoy recibiendo en este foro. Espero dentro de un tiempo poder ayudar yo.
Feliz año a todos..

Me ha dado error 91. Variable de tipo Object o la
variable de bloque With no está establecida, en una aplicación que estoy haciendo.
Estoy utilizando:
una base de datos: ejemplo.mdb
que contiene una tabla: tabla
y sólo le he puesto un campo: cantidad
con 5 registros: 1,2,3,4 y 5.
He hecho un ejemplo típico sencillo donde me sigue tirando este error:

Private Sub Form_Load()
    Dim BaseDatos As Database
    Dim Tabla As Recordset
    Set BaseDatos = OpenDatabase("ejemplo.mdb")
   
'Aquí es donde me marca el error:
    Tabla.OpenRecordset ("SELECT * FROM tabla WHERE cantidad = 2")
End Sub