Se muestran 2 comentarios sin revisar

Jorge	06/11/07
Depende para que es la operación: Porque sí es una simple operación de base de datos; el usar dataset es exagerado!! yo recomiendo usar Comando parejo dataset esta pensado para escenario mas complejo Atte. Jpedraza Microsoft Certified Professional Coordinador MUG Profesional Http://groups.msn.com/guarosmsdn-net
Util | Inutil

xGs_Manco	06/11/07
Botón buscar: Public Function Buscar(ByVal ced As String) As Integer Dim conn As SqlConnection Dim ds As DataSet Dim da As SqlDataAdapter Dim SqlCadena As String Dim sqlComando As SqlCommand Try da = New SqlDataAdapter() ds = New DataSet() conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa") SqlCadena = "Select * from tblduenos where ced = @ced " sqlComando = New SqlCommand(SqlCadena, conn) sqlComando.Parameters.AddWithValue("@ced", ced) sqlComando.CommandType = CommandType.Text conn.Open() da.SelectCommand = sqlComando da.Fill(ds, "tblduenos") If ds.Tables("tblduenos").Rows.Count > 0 Then Return 1 Else Return 0 End If Catch ex As Exception MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error") Finally conn.Close() End Try End Function Boton Modificar Public Sub Modificar(ByVal des As String) Dim conn As SqlConnection Dim SqlCadena As String Dim sqlComando As SqlCommand Try conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa") SqlCadena = "update tblanimales set descripcion = @des where des = @des" sqlComando = New SqlCommand(SqlCadena, conn) sqlComando.CommandType = CommandType.Text sqlComando.Connection.Open() sqlComando.Parameters.Add("@des", SqlDbType.VarChar, 25) sqlComando.Parameters("@des").Value = des sqlComando.ExecuteNonQuery() Catch ex As Exception MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error") Finally conn.Close() End Try End Sub Boton Guardar Public Sub Guardar(ByVal des As String) Dim conn As SqlConnection Dim SqlCadena As String Dim sqlComando As SqlCommand Try conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa") SqlCadena = "insert into tblanimales ( descripcion) values ( @des)" sqlComando = New SqlCommand(SqlCadena, conn) sqlComando.CommandType = CommandType.Text sqlComando.Connection.Open() sqlComando.Parameters.Add("@des", SqlDbType.VarChar, 25) sqlComando.Parameters("@des").Value = des sqlComando.ExecuteNonQuery() MsgBox("Registro guardado correctamente", MsgBoxStyle.Information, "Guardado") Catch ex As Exception MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error") Finally conn.Close() End Try End Sub Boton Eliminar Sub Eliminar(ByVal des As String) Dim conn As SqlConnection Dim SqlCadena As String Dim sqlComando As SqlCommand Try conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa") SqlCadena = "Delete from tblanimales where des = @des" sqlComando = New SqlCommand(SqlCadena, conn) sqlComando.CommandType = CommandType.Text sqlComando.Connection.Open() sqlComando.Parameters.Add("@des", SqlDbType.Int, 4) sqlComando.Parameters("@des").Value = des sqlComando.ExecuteNonQuery() MsgBox("Registro eliminado correctamente", MsgBoxStyle.Information, "Eliminado") Catch ex As Exception MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error") Finally conn.Close() End Try End Sub
Util | Inutil

	Ver la FAQ y todos sus comentarios
	Añadir un comentario del artículo

  Ir arriba