Visual Basic - Modificar y eliminar datos

Life is soft - evento anual de software empresarial
 
Vista:

Modificar y eliminar datos

Publicado por Neo (7 intervenciones) el 03/07/2002 21:43:27
tengo que crear una funcion para insertar y modificar datos de una tabla, y otra funcion para eliminar.
como las realizo.
alguien me podría decir como hacerlas?
la informacion se da en textbox y se envian a la tabla por insert o update
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 y eliminar datos

Publicado por Maria José (60 intervenciones) el 04/07/2002 08:04:47
Qué es lo que no conoces? Cómo realizar la conexión, la sentencia SQL? Además, que tipo de base de datos estás utilizando? Envíamelo a mi e-mail por si yo no leo el foro vale?
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 y eliminar datos

Publicado por Nelson Fredericksen (125 intervenciones) el 04/07/2002 15:24:43
Capte... Estamos hablando de Base de Datos Nativa de VB...
La Rutina .... Para Editar (Modificar) y AGregar (Insertar)
Primero completas tus controles edl Form y luego aplicas las siguientes rutinas; esto esta hecho con MSFlexGrid, pero puedes cambiarlo por cualquier control Standar
Private Sub Guardar_Click()
Dim registro As Integer
Dim linea As Integer
On Error Resume Next
Set GenIsap = base.OpenRecordset("select * from GenIsapre")
For linea = 1 To fg2.Rows - 1
registro = Val(fg2.TextMatrix(linea, 1))
strbusca = "idisap =" & registro
GenIsap.FindFirst strbusca
If GenIsap.NoMatch Then ' Si no existe lo Agrega
GenIsap.AddNew
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
If fg2.TextMatrix(linea, 2) = "" Then GoTo siguiente
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
Else: ' De lo contrario
GenIsap.Edit ' Lo Modificamos
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
End If
siguiente:
Next linea
MsgBox "Proceso terminado exitosamente", vbInformation, "Grabado"
GenIsap.Close
End Sub
Ahora Eliminamos un Registro...
Private Sub command1_Click()
'borra un determinado registro
Dim d As Integer
Set GenIsap = base.OpenRecordset("select * from Genisapre")
d = Val(fg2.TextMatrix(fg2.Row, 1))
strbusca = "idisap =
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