Visual Basic.NET - Urgente Boton de Comando

   
Vista:

Urgente Boton de Comando

Publicado por Edgar (4 intervenciones) el 13/12/2007 02:12:03
Amigos del foro Necesito su ayuda urgente, de ante mano muchas gracias, miren estoy desarrollando una aplicación con visual estudio 2005, utilizando ASP.NET Web Aplication, bien tengo programado la clase que ustedes miran a continuación donde se realiza una coneccion y luego siertos procesos como el insertar, borrar, eliminar.

En Un formulario Web tengo los botones de BUSQUEDA, INSERCION, ELIMINADO, ETC

Me pueden ayudar con la o las instrucciones que debo poner en cada uno de los botones para realizar el llamado a la FUNCION RESPECTIVA?


Public Function GetStringConection() As SqlConnection
Return New SqlConnection(String.Concat(New String() {"Data Source = ", Me._Server, ";initial Catalog = ", Me._DataBase, ";user Id=", Me._UserId, ";Password = ", Me._Password}))
End Function

BÚSQUEDA Y SELECCIÓN (SELECT):

Public Function SelectFields() As DataTable
Dim strCon As String = Me.GetStringConection.ConnectionString
Dim ds As New DataSet
Dim oCon As New SqlConnection(strCon)
Dim da As New SqlDataAdapter(Me._SELECT_COMMAND.CommandText, oCon)
Try
oCon.Open()
da.Fill(ds)
Catch ex As Exception
Me.ERROR = ex.ToString
Finally
oCon.Close()
End Try
Return ds.Tables.Item(0)
End Function

INSERCIÓN (INSERT):

Public Function InsertFields() As Boolean
Dim success As Boolean
Dim oCon As New SqlConnection(Me.GetStringConection.ConnectionString)
Dim myCommand As New SqlCommand(Me.INSERT_COMMAND.CommandText, Me.GetStringConection)
Try
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
success = True
Catch ex As Exception
Me.ERROR = ex.ToString
success = False
Finally
oCon.Close()
End Try
return success
End Function

ELIMINACIÓN (DELETE):

Public Function DeleteFields() As Boolean
Dim success As Boolean
Dim oCon As New SqlConnection(Me.GetStringConection.ConnectionString)
Dim myCommand As New SqlCommand(Me.DELETE_COMMAND.CommandText, Me.GetStringConection)
Try
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
success = True
Catch ex As Exception
Me.ERROR = ex.ToString
success = False
Finally
oCon.Close()
End Try
Return success
End Function

ACTUALIZACION (UPDATE):

Public Function UpdateFields() As Boolean
Dim success As Boolean
Dim oCon As New SqlConnection(Me.GetStringConection.ConnectionString)
Dim myCommand As New SqlCommand(Me.UPDATE_COMMAND.CommandText, Me.GetStringConection)
Try
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
success = True
Catch ex As Exception
Me.ERROR = ex.ToString
success = False
Finally
oCon.Close()
End Try
Return success
End Function
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