estuve buscando mucho por foros y pag de programacion y arme lo que pude. pero necesitaria si alguien me da una mano con el buscar para que me devuela los datos que necesito.
la base de dato tiene 3 columnas: Articulo, precio, nro.lista
Sub bus_acce()
'dimensiones
Dim datConnection As New ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strSQL As String
'aca va a estar ingresado el numero del articulo a buscar
ID = Range("C5").Value
'validacion del casillero
If ID = "" Then MsgBox "dato no valido"
If ID = "" Then Exit Sub
'ubicacion de B.datos
strDB = "C:\Documents and Settings\ale\Escritorio\base de datos\GVA17.mdb"
'nombre de la tabla del archivo Access
strTabla = "GVA17"
'crear la conexión
Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & strDB & ";"
'consulta SQL
strSQL = "SELECT *" & vbCr
strSQL = strSQL & "FROM GVA17" & vbCr
strSQL = strSQL & "WHERE COD_ARTICU = " & ID & " " & vbCr
'Y HASTA ACA LLEGUE Y NO SE COMO SEGUIR!!!!
recSet.Open , datConnection
If recSet.BOF = recSet.EOF And recSet.EOF = False Then
Range("C6").Value = adoConsulta!PRECIO
End If
'desconectar
recSet.Close: Set recSet = Nothing
datConnection.Close: Set datConnection = Nothing
End Sub
Espero que se haya entendido algo de lo que puse... porque me estoy quemado ya con todo esto...
MUCHAS GRACIAS
