problema al llamar a una capa
Publicado por djnilo (24 intervenciones) el 19/10/2016 23:52:21
buenas tardes
amigos del foro esoy realizando una aplicacion de estacionamiento de vehiculos la cual la estoy haciendo en capas para el orden pero resulta que me hecho dificil llama una funcion desde la capa negocios
tengo una funcion llamada
capa negocios
con esta funcion pretendo mostrar los datos en un formulario segun la consulta sql
deberia mostrar los datos
en la capa negocio
el problema es retorno de la funcion no se como hacerlo en la capa negociacion
capa entidad
VregistroEntrada
en el formulario deberia
mostrarme los datos
pero no muestra nada
aplicacion en vb.net sql server
si alguien me orienta por la caja de texto txtbusqueda es la que busca el codigo
amigos del foro esoy realizando una aplicacion de estacionamiento de vehiculos la cual la estoy haciendo en capas para el orden pero resulta que me hecho dificil llama una funcion desde la capa negocios
tengo una funcion llamada
capa negocios
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
30
31
Public Function GetCodigo(ByVal Codigo As Integer) As VregistroEntrada
Dim Conn As New SqlConnection(conexion.Connectionstring)
Dim eEntradavehiculo As VregistroEntrada = NothingDim Cmd As New SqlCommand
Try
Conn.Open()
Cmd.CommandText = "Select IdEntraVehiculo,Placa,FechaHoraEntrada,Codigo From EntradaVehiculo Where Codigo = @Codigo"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Conn
Cmd.Parameters.Add("@Codigo", SqlDbType.Int).Value = Codigo
Dim dataReader As SqlDataReader = Cmd.ExecuteReader
If dataReader.Read Then eEntradavehiculo = New VregistroEntradaeEntradavehiculo.Placa = Convert.ToString(dataReader("Placa"))
eEntradavehiculo.FechaHoraEntrada = Convert.ToDateTime(dataReader("FechaHoraEntrada"))
eEntradavehiculo.Codigo = Convert.ToInt32(dataReader("Codigo"))
End If
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
If Conn.State = ConnectionState.Open Then
Conn.Close()
Conn.Dispose()
End If
End Try
Return eEntradavehiculo
End Function
deberia mostrar los datos
en la capa negocio
1
2
3
4
5
6
7
8
Public Function GetCodigo(Codigo As Integer) As VregistroEntrada
Dim objCodigo As New DaoInsertTicker
Try
Return objCodigo.GetCodigo(Codigo)
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
capa entidad
VregistroEntrada
1
2
3
4
5
6
7
Public Class VregistroEntrada
Public Property IdTicker As Integer
Public Property Placa As String
Public Property FechaHoraEntrada As DateTime
Public Property Codigo As Integer
End Class
en el formulario deberia
mostrarme los datos
pero no muestra nada
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objregistrormostrar As New BLLRegistroTicker
Dim evergistromostrar As New VregistroEntrada
Dim Result As Integer = 0evergistromostrar.Codigo = TxtBusquedaCodigo.Text
Result = Convert.ToInt32(objregistrormostrar.GetCodigo(evergistromostrar.Codigo))
If Result > 0 ThenTxtPlaca.Text = evergistromostrar.Placa
TxtCodigo.Text = evergistromostrar.Codigo
TxtFechaHoraSalida.Text = evergistromostrar.FechaHoraEntrada
End If
end sub
aplicacion en vb.net sql server
si alguien me orienta por la caja de texto txtbusqueda es la que busca el codigo
Valora esta pregunta
0
