acceso a la base de datos ...????

[satan69]

hola muchachos es que estoy haciendo un soft de base de datos pero y me gustaria usarla en una lan...

entocnes como puedo hacer una consulta de un cliente a un servidor pero la base de datos es en access.... tambien me gustaria saber como editar desde el cliente la base de datos del servidor....

otra cosa como puedo cargr una foto que esta en el servidor osea en una carpeta para verla en un picture box pero en el cliente....

bueno nos vemos y muchas gracias de antemano....

[CeLaYa]

la forma mas sencilla de consultar una BD
es usando DAO


set bd as database
set tb as recordset


set bd = workspaces(0).opendatabase("\\Ruta\de\tu\bd", exclusivo, sololectura, password)

set tb = bd.openrecodset(tabla o consulta SQL)

te recomiendo que consultes la ayuda sobre los tipos de bloqueo

para lo de la foto usa la instruccion LoadPictutre

picture1.picture = loadPicture("\\Servidor\dir\foto.jpg")

[satan69]

esta bien....... pero para hacer el servidor \\Servidor\dir\foto.jpg pero el problema que les digo que es en access.. no es sql....


y gracias por responderme...  pero todavia sigo con la duda

[satan69]

de todos modos muchas gracias el brother que me contesto..... todavia sigo con la duda alguien que sepa por favor que postee algo

[CeLaYa]

pues si que andas algo desorientado, el codigo que te pase, lo puedes usar para abrir  bases de datos de access (.mdb)


mira para abrir una base de access primero tienes que crear una variable que te represente tu BD y otra variable que sea tu tabla, por ejemplo tienes una base de datos Escuela.mdb y esa BD contiene una tabla llamada Alumos para abrir, editar o cualquier cosa que quieras hacer sobre esa tabla puedes hacer lo siguiente:

'Declarar las variables
dim BD as database
dim Tb as recordset

'Para tener acceso a la tabla primero debes abrir la BD
set BD = workspaces(0).Opendatabase("c:\bases\Escuela.mdb")

'Ahora abres la tabla
set tb = BD.openrecordset("Alumnos")
' o puedes hacer una consulta SQL
set tb = bd.openrecodset("SELECT * FROM Alumnos WHERE...")

'para tener acceso a los campos

txtNombre.text = tb.Field(0)
ó txtNombre.text = tb!Nombre_Alumno

esto suponiendo que en tu tabla hay un campo llamado Nombre_Alumno

para cerrar 1o debes cerrar la tabla y luego la BD

tb.close
bd.close

y luego liberas la memoria

set tb = nothing
set bd = nothing


si escribes este código tal ves recibas un mensaje de error algo asi como que el VB no sabe que onda con los tipos de datos, si esto pasa solo agrega una referencia a: Microsoft DAO 3.6 Objet Library, mnu proyecto-> Referencias


para lo de cargar tu imagen si esta en un directorio lo puedes hacer como ya antes te habia dicho, o si la tienes en una base de datos, deberas tener instalado el SP4 del vb para poder trabajar con ella

[CeLaYa]

si esto no te ayuda, pon el codigo de tu programa y vemos donde esta el error

[satan69]

gracias celaya.... eso lo se tambien.. pero lo que quiero es hacer la consulta pero estando en una lan... teniendo el server con la base de datos...

[CeLaYa]

la verdad ya no entendi que es lo que quieres hacer, pero porque no pones el codigo que tienes y aqui lo depuramos,

[soplo]

esta bien....... pero para hacer el servidor \\Servidor\dir\foto.jpg pero el problema que les digo que es en access.. no es sql....

Aquí no estamos para hacerle el trabajo a nadie. Si quieres enseñar lo que has hecho y que te lo miren vale, que te lo hagan no. Solo que sospecho que no tienes nada que enseñar.

Ni siquiera sabes que acces usa sql o sea que no te has molestado en mirar ni un solo texto y ni una sola línea. Desde luego tampoco has mirado nada en vb porque eso que te ha puesto celaya viene en las primeras líneas de cualquier texto que hayas mirado, pero claro, para verlo hay que leerlo y para eso hay que haberse molestado en buscarlo primero.

No digo nada ya de molestarse en darle al botón de buscar aqui.

RTFM