Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/07/2007, 10:11
Avatar de sniper_lcd
sniper_lcd
 
Fecha de Ingreso: marzo-2007
Mensajes: 53
Antigüedad: 17 años, 10 meses
Puntos: 2
Re: ayuda con base de datos

que onda amigo, yo no pretendo que cambies tu forma de programar, pero aqui te pongo este codigo que te puede servir, lo que pasa es que veo un RS, y supongo que es un Recordset, y eso creo que es de VB6, la verdad no lo conozco muy bien solo de vista, pero te dejo este codigo que esta en .Net espero que puedas adaptarlo a tu necesidad

Dim Conexion As New OledbConnection()
Dim Consulta As New OledbCommand()

Conexion.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\bdProductora.mdb"

Conexion.Open()

Consulta.Connection = Conexion
Consulta.CommandType = Consulta.CommandType.Text
Consulta.CommandText = SELECT Nombre, Ap_Paterno, Ap_Materno FROM tbEmpleado WHERE CodEmpleado = '" & txtRutBuscar.Text & "'"
registro = Consulta.ExecuteReader()
If registro.Read Then
If registro("Prod_Existencia") > 0 Then
Me.txtNombre.Text = registro("Nombre")
Me.txtApePat.Text = registro("Ap_Paterno")
Me.txtApeMat.Text = registro("Ap_Materno")

Consulta.Cancel()
registro.Close()
Conexion.Close()

Última edición por sniper_lcd; 03/07/2007 a las 10:12 Razón: Me falto una linea de Codigo