Visual Basic - ayuda amigos!! boton buscar con ado y bd access 2003

Life is soft - evento anual de software empresarial
   
Vista:

ayuda amigos!! boton buscar con ado y bd access 2003

Publicado por rene (2 intervenciones) el 10/12/2013 00:07:42
hola, quiero buscar en mi base de datos llamada SMEYSF.mdb en la tabla expedientes mediante visual basic 6.0 y no logro codificar el boton buscar.

la codificacion que tengo es la siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub nrodoc_Click()
Dim No_producto As String
 
Adodc1.Recordset.MoveFirst
 
No_producto = InputBox("Escriba el nro de producto a buscar!!")
 
If No_producto <> "" Then
 
Adodc1.Recordset.Find "grado =" & No_producto
 
If Adodc1.Recordset.EOF Then
 
MsgBox "No se encontró el pedido"
 
Adodc1.Recordset.MoveFirst
 
End If
 
End If
 
End Sub

nota: grado es un item de la tabla expedientes.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda amigos!! boton buscar con ado y bd access 2003

Publicado por El viejo charles (261 intervenciones) el 11/12/2013 23:29:22
Hola Rene, prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset, sSql As String
Private Sub Form_Load()
    Dim RutaBaseDatos As String
    Combo1.Text = ""
    Text1.Text = ""
 
    RutaBaseDatos ="C:\SMEYSFmdb" 'AQUI COLOCAS LA RUTA DE LA BASE DE DATOS
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaBaseDatos & ";"
    Rs.ActiveConnection = cn
    Rs.CursorLocation = adUseClient
End Sub
 
Private Sub Button_Click()
dim  No_producto as String
    if  len(trim(No_producto)) = 0 then
           No_producto = InputBox("Escriba el nro de producto a buscar!!")
    end if
    sSql = "select expedientes.[grado]"
    sSql = sSql & " from expedientes"
    sSql = sSql & " where expedientes.[grado] ='" & No_producto & "'"
    Rs.Open sSql
    If Not Rs.EOF Then
       msgbox rs(0)
    else
       msgbox "No se encontraron datos"
    End If
    Rs.Close
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda amigos!! boton buscar con ado y bd access 2003

Publicado por rene cabaafull@hotmail.com (2 intervenciones) el 20/12/2013 02:02:50


gracias me sirvio el codigo!!

te hago una consulta mas si no es molestia. tengo un form donde yo ingreso varios datos en textbox, luego tengo un boton guardar.

como hago para que al guardar esos datos (se guarda en una tabla), me salga un mensaje con un numero de guardado (seria un autonumerico o algo asi)

desde ya muchas gracias

rene
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda amigos!! boton buscar con ado y bd access 2003

Publicado por EL Viejo Charles (261 intervenciones) el 20/12/2013 15:33:37
Buen día amigo, pues.... esos ya son temas básicos para insertar y actualizar datos en la base de datos, esta vez no puedo darte una solución muy puntual ya que en si tu pregunta implica codificar prácticamente la lógica del negocio de tu programa y pues tendría que asumir muchas cosas (TEMA QUE ES PECADO EN PROGRAMACION).

Te propongo que me envíes por correo el diseño del formulario y con los campos contenidos en este y su botón de guardado, si puedes incluir la base de datos seria mejor aun.
Saludos amigo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar