Autor Tema: Re: Conexión Con Base De Datos (Leído 1206 veces)

Jeremy · « **en:** Jueves 10 de Junio de 2004, 21:14 »

Hola amig@s, necesito vuestra ayuda:

Estoy empezando a manejarme con las BBDD. Bueno voy al grano... Conecto mi aplicación VB con una Tabla de Access. Al introducir un valor en el form y al pulsar la tecla ENTER, necesito comprobar si ese dato existe o no en la tabla.

He implementado el siguiente código para dicha comprobación, no sé en dónde puedo estar equivocado:

Código: Text

 
Private Sub cbotienda_KeyPress(KeyAscii As Integer)
Dim cmd As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
If KeyAscii = 13 Then 'Si la tecla es INTRO entonces...
    cmd = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:&#092;&#34;Ruta de la BBDD&#34;.mdb;Persist Security Info=false&#34;
    Set cn = New ADODB.Connection
    With cn
        .ConnectionString = cmd
        .Open
    End With
    
        sql = &#34;SELECT * FROM DATOS WHERE TIENDA LIKE &#34; & Me.cbotienda.Text  'Ejecuto una consulta SQL en la que comparo el valor introducido en un combo
    Set rs = New ADODB.Recordset
        With rs
            .Open sql, cn, adOpenForwardOnly, adLockReadOnly
            If sql = cbotienda.Text Then 'si el resultado devuelto de la consulta SQL es = al valor introducir entonces que me muestre los datos correspondientes
            
                cbotienda.Text = rs.Fields(&#34;tienda&#34;)
                txtnombre.Text = rs.Fields(&#34;nombre&#34;)
                txtrouter.Text = rs.Fields(&#34;router&#34;)
                txtservidor.Text = rs.Fields(&#34;servidor&#34;)
                txttipo.Text = rs.Fields(&#34;tipo&#34;)
                .Close
            ElseIf sql &#60;&#62; cbotienda.Text Then 
                MsgBox &#34;Esta tienda no existe&#34;
                Exit Sub
            End If
        End With
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
ElseIf KeyAscii &#60;&#62; 13 Then
    Exit Sub
End If
End Sub
 
 
 

Gracias a todos por vuestra ayuda.

º¿º

Shiquilla

If sql = cbotienda.Text Then 'si el resultado devuelto de la consulta SQL es = al valor introducir entonces que me muestre los datos correspondientes

El problema está en que tienes que tienes que comprobar esto:

Código: Text

If Not rs.EOF then  'Mirar si el recordset no está vacio
     cbotienda.Text = rs![tienda]
     txtnombre.Text = rs![nombre]
     txtrouter.Text = rs![router]
     txtservidor.Text = rs![servidor]
     txttipo.Text = rs![tipo]
end if
 

Es decir, tu código quedaría así:

Código: Text

Private Sub cbotienda_KeyPress(KeyAscii As Integer)
Dim cmd As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
If KeyAscii = 13 Then 'Si la tecla es INTRO entonces...
   cmd = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:&#092;&#34;Ruta de la BBDD&#34;.mdb;Persist Security Info=false&#34;
   Set cn = New ADODB.Connection
   With cn
       .ConnectionString = cmd
       .Open
   End With
   
       sql = &#34;SELECT * FROM DATOS WHERE TIENDA LIKE &#34; & Me.cbotienda.Text  & &#34;%&#34; 'Esto es para que busque la primera tienda que empieze por esos caracteres     
       Set rs = New ADODB.Recordset
       With rs
           .Open sql, cn, adOpenForwardOnly, adLockReadOnly
       End With
       
       If Not rs.EOF then            
          cbotienda.Text = rs![tienda]
          txtnombre.Text = rs![nombre]
          txtrouter.Text = rs![router]
          txtservidor.Text = rs![servidor]
          txttipo.Text = rs![tipo]
          rs.Close
       Else
          cbotienda.Text = &#34;&#34;
          txtnombre.Text = &#34;&#34;
          txtrouter.Text = &#34;&#34;
          txtservidor.Text = &#34;&#34;
          txttipo.Text = &#34;&#34;
          MsgBox &#34;Esta tienda no existe&#34;
       End If
       Set rs = Nothing
       cn.Close
       Set cn = Nothing
End If
End Sub
 

Saludos.

Jeremy

Muchas gracias, me he dado cuenta de mi fallo y con tu ayuda he aprendido algo más

SoloCodigo

Autor Tema: Re: Conexión Con Base De Datos (Leído 1206 veces)

Jeremy

Re: Conexión Con Base De Datos

Shiquilla

Re: Conexión Con Base De Datos

Jeremy

Re: Conexión Con Base De Datos