Corporacion
Imports System.Data.SqlClient
Module Module1
Public Const RUTA_FOTO As String = "E:\2322\FOTOS"
Dim CAD_CN As String ="server=(local);database=bdestudios;integrated security=true"
Public Function LISTAR_ALUMNOS_NOMBRE(ByVal NOM As String) As DataTable
Dim ADAP As New SqlDataAdapter("LISTAR_ALUMNOS_NOMBRE", CAD_CN)ADAP.SelectCommand.CommandType = CommandType.StoredProcedure
'Parametros del Proc. Almacenado
ADAP.SelectCommand.Parameters.AddWithValue("@NOM", NOM)
'Creamos un DataTable que obtenga lasfilas del SqlDataAdapter
Dim Tabla1 As New DataTable
ADAP.Fill(Tabla1)
'Retornamos el DataTable
Return Tabla1
End Function'''''''''''''''''''''''''''-----------------------------------'''''''''''''''''''''''''''''''''''
Public Function NUEVO_CODIGO_ALUMNO() As String
Dim ADAP As New SqlDataAdapter("NUEVO_CODIGO_ALUMNO", CAD_CN)ADAP.SelectCommand.CommandType = CommandType.StoredProcedure
Dim Tabla1 As New DataTable
ADAP.Fill(Tabla1)
'Devolvemos la unica fila de la unica columnaReturn Tabla1.Rows(0)(0)
End Function
Public Function NUEVO_CODIGO_ALUMNO2() As Integer
Dim ADAP As New SqlDataAdapter("NUEVO_CODIGO_ALUMNO2", CAD_CN)ADAP.SelectCommand.CommandType = CommandType.StoredProcedure
Dim Tabla1 As New DataTable
ADAP.Fill(Tabla1)
'Devolvemos la unica fila de la unica columna
Return Tabla1.Rows(0)(0)End Function
Public Function LISTAR_CARRERAS() As DataTable
Dim ADAP As New SqlDataAdapter("LISTAR_CARRERAS", CAD_CN)
ADAP.SelectCommand.CommandType =CommandType.StoredProcedure
Dim Tabla1 As New DataTable
ADAP.Fill(Tabla1)
Return Tabla1
End Function
Public Sub GRABAR_ALUMNO(ByVal cod As String, ByVal nom As String, _...
Regístrate para leer el documento completo.