Visual Basic.NET - modificar

   
Vista:

modificar

Publicado por hector (78 intervenciones) el 28/09/2007 00:20:18
hola a todos necesito ayuda para modificar unos datos, elcodigoque tengo paraguardar es el siguiente:

Dim conexion As New SqlClient.SqlConnection
Dim cmdpresentacion, inspresentacion As New SqlClient.SqlCommand
Dim adappresentacion As New SqlClient.SqlDataAdapter
Dim dpresentacion As New DataSet

conexion.ConnectionString = "workstation id=HECTOR;packet size=4096;integrated security=SSPI;data source=HECTOR;persist security info=False;initial catalog=Phuertos"
adappresentacion.AcceptChangesDuringFill = True

cmdpresentacion.CommandText = "select * from PRESENTACION"
cmdpresentacion.Connection = conexion
adappresentacion.SelectCommand = cmdpresentacion

Dim presentacion As DataRow

inspresentacion.CommandText = "insert into PRESENTACION(codpresentacion, tipo) values(@codpresentacion, @tipo)"
inspresentacion.Parameters.Add("@codpresentacion", SqlDbType.VarChar, 20, "codpresentacion")
inspresentacion.Parameters.Add("@tipo", SqlDbType.VarChar, 30, "tipo")
inspresentacion.Connection = conexion
adappresentacion.InsertCommand = inspresentacion

adappresentacion.Fill(dpresentacion, "tpresentacion")
presentacion = dpresentacion.Tables("tpresentacion").NewRow
presentacion("codpresentacion") = tcodigo.Text
presentacion("tipo") = ttipo.Text
dpresentacion.Tables("tpresentacion").Rows.Add(presentacion)
adappresentacion.Update(dpresentacion, "tpresentacion")

como lo puedo hacer para modificar?????
gracias de antemano
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

RE:modificar

Publicado por haver (196 intervenciones) el 28/09/2007 00:48:48
Pues yo lo hago de otro modo

try
dim cn as new sqlclient.sqlconnection("string de conexion")
dim cmd as new sqlclient.sqlcommand("update tabla set campo = nuevovalor where campo = condicionante",cn)
cn.open
cmd.executenonquery
cn.close
catch ex as exception
msgbox (ex.message)
if cn.state = connection.open then
cn.close
end if
end try
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:modificar

Publicado por hector (78 intervenciones) el 28/09/2007 20:20:53
Gracias haver acabo de acomodar lo keme diste y me sirvio, muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:modificar

Publicado por hector (78 intervenciones) el 28/09/2007 19:39:45
gracias haver pero me gustaria que fuera el codigo como yo tengo el grabar para no perder la forma de hacerlo, y no tener codigos distintos gracias de todos modos

mira asi lo empece hacer yo pero me arroja un error en la ultima linea y puede ser que algo me falte antespero no seque puede ser


updpresentacion.CommandText = "UPDATE PRESENTACION SET tipo = @tipo, codpresentacion = @codpresentacion WHERE (codpresentacion = @Original_codpresentacion) AND (tipo = @Original_tipo); SELECT tipo, codpresentacion FROM PRESENTACION WHERE (codpresentacion = @codpresentacion)"
updpresentacion.Connection = conexion
adappresentacion.UpdateCommand = updpresentacion

modifica_pres = dpresentacion.Tables("tpresentacion").Rows(comparador)
modifica_pres.BeginEdit()
modifica_pres("codpresentacion") = tcodigo.Text
modifica_pres("tipo") = ttipo.Text
modifica_pres.EndEdit()
adappresentacion.Update(dpresentacion, "tpresentacion")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:modificar

Publicado por haver (196 intervenciones) el 28/09/2007 22:16:37
Pues la verdad a mi se me presenta como codigo enredado (pues porque no lo uso)
me parece mas sencillo el que ya te eh dado.

en tal caso crea stored procedures y ya....
es que es igual para el update, el delete, el insert, y el select es casi la misma sintaxis
y de ver tu codigo me eh enredado...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar