
AYUDA URGENTE BOTON DE COMANDO
Publicado por Edgar (26 intervenciones) el 13/12/2007 02:11:54
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
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


0