Buscar datos en un BDD - VB-MUNDO

leosantafesino · #1 (**permalink**) 15-08-2007, 17:25:09

Hola de nuevo, esta consulta no se si la habran hecho pero quiero creer e imaginarme que si porque es algo relativamente conocido. Como se hace para realizar busquedas dentro de una BDD (de access) con instrucciones SQL. Osea la forma de buscar o por codigo, o por DNI o por nombre... ¿se entiende, no?

acalanto · #2 (**permalink**) 15-08-2007, 18:46:41

Depende en gran medida del medio por el que te conectes a la base de datos Access. Si deseas utilizar SQL tendrás que realizar una conexión mediante un objeto ODBC. Para ello tienes que crear referencias a este objeto en el proyecto con Microsoft OLE DB ActiveX Data Objects 1.0 Library e instanciarla en tu aplicación. Te recomiendo realizarla en un módulo de declaraciones y la instancias como pública; de esta manera realizas la conexión al iniciar la aplicación y la destrutes al terminar (No olvides ésto último).

Código:

'Declaramos el objeto de conexión a la base de datos (En un módulo público)
Public hostCNN                      As New ADODB.Connection

En el primer formulario o en un método main() realizas la conexión con Access con una de las siguientes cadenas

Código:

hostCNN.Open "DSN=MS Access Database;DBQ=<nombre de la base de datos>;DefaultDir=<Carpeta por defecto>;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"

Código:

hostCNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<nombre de la base de datos>"

Ahora para consultar una tabla tienes que instanciar un objeto de la clase recordset y escribir la consulta.

Código:

dim rst as new ADODB.Recordset
rst.open "SELECT campo1, campo2, campo3, ..... , campon FROM <nombre tabla>"
do until rst.eof
    mivar_01 = rst.fields("campo1")
    mivar_02 = rst.fields("campo2")
    'Leemos el siguiente registro (hasta el final)
    rest.MoveNext 
loop

Tu pregunta no es concreta, resulta muy extenso explicar en un post todas las particularidades de SQL (Tiene mucha posibilidades) y para ello te recomiendo que accedas a los tutoriales de www.vb-mundo.com en los que encontrarás abundante información y tutoriales sobre acceso a bases de datos.

Cuando ya te lo hayas estudiado y estés familiarizado con el tema, estaremos encantados de proporcionarte la ayuda necesaria para resolver problemas puntuales que se te presenten.

Espero que este extenso rollo te resulte de gran utilidad.

leosantafesino · #3 (**permalink**) 15-08-2007, 18:56:14

mmm creo que la pregunta es sencilla...

Como hacer para buscar datos en una BDD de access con una instruccion SQL.

Lei tutoriales y no me quedo claro y hace tiempo que vengo con VB pero en esto me trabe un poco... nada mas.

J.M.Movilla · #4 (**permalink**) 15-08-2007, 19:49:56

Vamos a ver si es esto lo que soluciona tu problema:

Imagino que tienes hecha una conexión con ADO, tal que

Código:

Dim MiBase As New Connection
Dim MiReg As New Recordset

Private Sub Form_Load()
    Dim SQL As String

    MiBase.CursorLocation = adUseClient
    MiBase.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=Ruta_Nombre_Base.mdb;Persist Security Info=False"

    SQL = "Select Codigo, DNI, Nombre... FROM Tu_Tabla [Where Criterio] [ORDER by CampoN]"
    MiReg.Open SQL, MiBase, adOpenStatic, adLockOptimistic
End Sub

Bien. Ahora suponemos que el campo codigo es numérico y el resto son de carácter.

Código:

Private Sub Buscar()
    MiReg.MoveFirst
    ' Para buscar el Codigo pondrías
    MiReg.Find("Codigo = " & Text1.Text)
    ' Y para los campos de tipo char
    MiReg.Find("DNI like '" & Text2.Text & "'")
    ' o bien
    MiReg.Find("Nombre like '" & Text3.Text & "'")
    If MiReg.EOF Then
        MsgBox("No se ha encontrado el dato que se busca...")
        Exit Sub
    End If
    '  Ya tienes localizado el dato...
End Sub

POR SUPUESTO, usarás SÓLO la línea del campo por el que vayas a buscar, NO LOS TRES CAMPOS...