beto_22
07 de Abril del 2005

hola amigos:
bueno estoy haciendo un proyecto en 3capas en la cual quiero mostrar unos campos en text y los otros en una grilla (datgrid) bueno los campos de los text me muestra sin problemas pero tengo problemas con la grilla nose por que no me muestra nada........ en el codigo le asigno un codigo el cula me parece que deberia funcionar pero no me muestra nada ni me manda ningun herror espero que me puedan ayudar y decirme que esta mal para poder seguir con mi proyecto

Prjusuarios en la interface
++++++++++++++++++++++++++
Option Explicit
Dim pNeg As New prjNegocio.clsMantenimiento

Private Sub btnBuscar_Click()
Dim vVentas As prjNegocio.dtVentas
聭 muestre en text
vVentas = pNeg.BuscaCabecera(Val(txtIdVenCab.Text))
txtSerVenCab.Text = vVentas.SerVenCab
txtNumVenCab.Text = vVentas.NumVenCab
txtFecVen.Text = vVentas.FecVen

聭 muestre en grilla
Set dgDetalle.DataSource = pNeg.BuscaDetalle(Val(txtIdVenCab.Text))

End Sub

Prjnegocios
++++++++++++++++++++++++++++++++

Dim cn As New ADODB.Connection
Dim pBas As New prjConectar.clsConectar
Public Property Get BuscaDetalle(ByVal IdVen As Long) As ADODB.Recordset
Dim rsDet As New ADODB.Recordset
Conectar
rsDet.Open "SELECT * FROM VentasDetalle WHERE IdVenCab = " & IdVen, cn, adOpenKeyset, adLockOptimistic, adCmdText
Set BuscaDetalle = rsDet
'Set .DataSource = rs
End Property

Alejandro Tello
07 de Abril del 2005

Hola, estoy revisando tu c贸digo y el 煤nico detalle que pienso es el que pueda afectar es el lado en el que se queda el cursor, imagino que pNeg es un objeto creado desde una dll, si este es el caso el cursor se queda ah铆, el problema con DataGrid es que solo ejecuta del lado del cliente, no en la 2a capa. Espero esta informaci贸n te sirva, te invito a mi foro www.kognos.com.mx/foro