la verdad que no tengo mucha idea de visual y me meti a hacer un pocedimiento para que desde una tabla de excel pueda armar una orden de fabricacion bucando las datos en una base de datos en access.
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