elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  chequear si existe la base de datos?		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: chequear si existe la base de datos?  (Leído 4,899 veces)
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
chequear si existe la base de datos?
« en: 28 Agosto 2007, 04:33 am »
Hola bueno les cuento que es lo que quiero hacer.
tengo una aplicacion con la cual creo una base de datos de acces y agrego tablas o campos a las tablas, todo esto va bien. pero ahora lo que quiero es lograr que esta pueda detectar al inicio si la base ya esta creada y de ser asi cargar su nombre en una variable. esto seria como para poder optar al inicio por mostrar el formulario de creacion de la base o ir directamente a la aplicacion principal.
se entiende no?

solo quiero chuequear el directorio de trabajo de la aplicacion Ej: "/nueva carpta"
y si en este existe un archivo con extensión .mdb que envie a una variable el nombre del archivo ej: db1.mdb.

aclaro por las dudas el nombre de la base es opcional para el usuario por eso no puedo buscarla por nombre deve ser por extensión. ya que el nombre puede ser cualquiera.

espero puedan ayudarme.
salu2
En línea
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
Re: chequear si existe la base de datos?
« Respuesta #1 en: 28 Agosto 2007, 05:50 am »
Bueno voy a cambiar la pregunta ya que ya vi como se busca un archivo.
y para el que no lo sepa aca les dejo como hacelo.

Archivoabuscar = Dir("C:\Nueva carpeta\*.mdb")
Text4.Text = Archivoabuscar

esto carga en el text4 el nombre del archivo.

ahora lo que quiero es poder buscar en el directorio donde se ejecuta el programa que y quiero no tener que poner la ruta completa asi puedo cambiarlo de dir y funciona =

pense que poniendo Archivoabuscar = Dir("\*mdb") funcionaria pero no.
espero me ayuden salu2
En línea
HaDeS, -
WarZone Master

Desconectado Desconectado

Mensajes: 284



Ver Perfil WWW
Re: chequear si existe la base de datos?
« Respuesta #2 en: 28 Agosto 2007, 05:54 am »
Citar
Archivoabuscar = Dir("C:\Nueva carpeta\*.mdb")
Text4.Text = Archivoabuscar
Si eso te funciona, entonces prueba a hacer esto :P
Código
  1. archivoabuscar = Dir(Replace(App.Path & "\", "\\", "\") & "*.mdb")
  2. Text4.Text = Archivoabuscar
  3.  
saludos :P
En línea

http://www.yashira.org/index.php?showuser=3982
Seguridad Informática Colombiana
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
Re: chequear si existe la base de datos?
« Respuesta #3 en: 28 Agosto 2007, 06:02 am »
Funciona perfecto Muchas gracias!!!

por mas de que no entiendo muy bien ese codigo, pero funciona.
si es que no te molesta y podes darme alguna exlicacion de lo que hace el
(replace(app.path & "\" , "\\" , "\" ) & "*.mdb")
te estaria agradecido porque me gustaria entender que lo que estoy haciendo con eso
= muchas gracias.
salu2
En línea
HaDeS, -
WarZone Master

Desconectado Desconectado

Mensajes: 284



Ver Perfil WWW
Re: chequear si existe la base de datos?
« Respuesta #4 en: 28 Agosto 2007, 06:14 am »
Claro, mira.
App.Path = Indica la ruta actual en la que se esta ejecutando el programa
pero...

Si el programa se esta ejecutando desde la unidad C:, osea desde la raiz de la unidad
Si pones Dir(App.Path & "\*.mdb")
lo que hace es que App.path = "c:\"
a lo que quedaria Dir("C:\\*.mdb")
Te largaria error...

Utilizo el replace
(replace(app.path & "\" , "\\" , "\" ) & "*.mdb")
Para reemplazar el "\\" por un "\", si es que se esta ejecutando desde la raiz de la unidad.

Otra forma de reemplazar el "C:\\" es el siguiente codigo:
Código
  1. Ruta = App.Path
  2. if Right(Ruta,1)<>"\" then Ruta = Ruta & "\"
  3.  

Saludos ;)
En línea

http://www.yashira.org/index.php?showuser=3982
Seguridad Informática Colombiana
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
Re: chequear si existe la base de datos?
« Respuesta #5 en: 28 Agosto 2007, 06:19 am »
entendido, es bueno entender lo que uno hace  mil gracias
salu2
En línea
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
Re: chequear si existe la base de datos?
« Respuesta #6 en: 29 Agosto 2007, 05:08 am »
HaDeS
como estas una pregunta mas. ya puedo encontrar el archivo ahora no se como hacer para que me asigne al txt solo el nombre sin la extensión.
se que se pueden borrar caracteres pero no se como.
gracias. salu2
En línea
HaDeS, -
WarZone Master

Desconectado Desconectado

Mensajes: 284



Ver Perfil WWW
Re: chequear si existe la base de datos?
« Respuesta #7 en: 29 Agosto 2007, 05:25 am »
Hola scrngs, estoy muy bien gracias, como estas vos? xD.
Mira, ya tenemos el nombre en el archivo Text4.Text
Lo que podemos hacer es quitarle las ultimas 4 letras que son las que señalan el punto "." y la extension "mdb"
Se puede hacer de varias formas, te muestro las mas sencillas.
Código
  1. Text4.Text = Left(Archivoabuscar, Len(Archivoabuscar)-4)
  2. 'La funcion Left sirve para extraer de una cadena empezando desde la izquierda N caracteres
  3. 'por ejemplo Archivoabuscar = basedatos.mdb
  4. 'Lo que hace la funcion es desde la posicion 1 de la cadena, coje hasta las posicion de la longitud del archivo -4
  5. 'Longitud archivo = 13
  6. 'Left("basedatos.mdb",9)
  7. 'A lo que quedaria basedatos
  8.  

Y como hay algunos archivos que la extension es mas de tres caracteres, entonces podes utilizar este codigo.
Código
  1. Nombre = Split(Archivoabuscar, ".") 'Dividimos la cadena partiendola por el "."
  2. if ubound(Nombre)=1 then 'Si el archivo solo tiene un punto, se divide en dos cadenas, entonces..
  3.   SinExtension = Nombre(0) 'El nombre sin extension es la cadena 1, la extension es la cadena 2 = array("basedatos","mdb")
  4. end if
  5. Text4.text = SinExtension
  6.  
« Última modificación: 29 Agosto 2007, 05:27 am por HaDeS, - » En línea

http://www.yashira.org/index.php?showuser=3982
Seguridad Informática Colombiana
Cuasar

Desconectado Desconectado

Mensajes: 221



Ver Perfil
Re: chequear si existe la base de datos?
« Respuesta #8 en: 29 Agosto 2007, 05:39 am »
Buenisimo muchisimas gracias.
y cuando termine la aplicacion vere si publico el cod
ya que yo sauqe muchas partes del mismo de este foro. y capaz le venga bien a alguno.
salu2
En línea
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: chequear si existe la base de datos?
« Respuesta #9 en: 29 Agosto 2007, 08:06 am »
nada
« Última modificación: 29 Agosto 2007, 08:08 am por cobein » En línea
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
cuantos plugins existe en ida pro con datos tecnicos?
Ingeniería Inversa 		Weeken 1 2,136 Último mensaje 6 Septiembre 2012, 14:37 pm
por apuromafo CLS
Chequear si un archivo .PNG es realmente un .PNG
PHP 		extreme69 8 3,345 Último mensaje 10 Julio 2013, 17:24 pm
por extreme69
Alguien conoce si existe alguna base de datos de cadenas de fingerprinting?
Hacking 		opportunity 0 2,731 Último mensaje 29 Septiembre 2014, 19:45 pm
por opportunity
¿Existe la posibilidad de ver/extraer la base de datos de una página web que utiliza Bootstrap?
Hacking 		viprin 2 4,872 Último mensaje 20 Agosto 2021, 21:46 pm
por viprin
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines