ok, si tienes razon,..perdon me di cuenta de que no habia quitado la rebundancia... pero el codigo que tengo en el formulario esta bien....
sigo sin poder hacer la consulta desde un combo o un textbox.. solo la consigo escribiendo directamente en el codigo la nota que quiero consultar..
aki mando otro codigo .. este esta bien..
Dim Ruta As String
Dim MiConexion As ADODB.Connection
Dim MiRecordSet As ADODB.Recordset
Private Sub buscar_click ()
MiConexion.CursorLocation = adUseClient
Set MiRecordSet = New ADODB.Recordset
Dim buscar As Integer
buscar = Val(Text1.Text)
MiRecordSet.Open "select piezas, producto2, total from notas_detalle where notanumero =
163 ", MiConexion, adOpenDynamic, adLockOptimistic
'si yo pongo la variable o directamente text1.text donde esta el 163 no puedo hacer la consulta Set DataGrid1.DataSource = MiRecordSet
End Sub
Private Sub Form_Load()
Ruta = App.Path & "\inventario.mdb"
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open
gracias por la observacion... ya tuve cuidado en copiar el codigo que esta bien...segun..
