estoy un poco oxidado pero a ver si te sirve ...

0 votos

ESCRITO POR: RayoVerde [11:16 5/abr/2008]

TEMA: estoy un poco oxidado pero a ver si te sirve ...

Esto es un código que escribí hace muchos años. La conexión con la base de datos se hacía con ADO. Las instrucciones para modificar o introducir nuevos registros son órdenes en SQL, que en principio las debe aceptar el Visual Basic incluso aunque no se use ADO sino otra tecnología de conexión a bases de datos.
------------------------------------------------------------------------
Private Sub CargarAviso()
Dim rs As New ADODB.Recordset
rs.Open "select * from avisos where IDaviso=" & pbIDaviso, pbConexion, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
txtDia = rs!dia
txtMes = rs!mes
txtAnyo = rs!anyo
txtAviso = rs!texto
cmbTipo.ListIndex = rs!Tipo
Else
MsgBox "Aviso no encontrado!", vbCritical, "Error"
End If
End Sub

Private Sub GuardarAviso()
Dim rs As New ADODB.Recordset
Dim OK As Boolean
rs.Open "select * from avisos where IDaviso=" & pbIDaviso, pbConexion, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
'SQL para modificar aviso
Call pbConexion.Execute("UPDATE avisos SET anyo=" & txtAnyo & ", mes=" & txtMes & _
", dia=" & txtDia & ", texto='" & EscapaComillas(txtAviso) & _
"' , tipo=" & cmbTipo.ListIndex & " " & _
"WHERE IDaviso=" & pbIDaviso)
Else
'SQL para crear aviso
Call pbConexion.Execute("INSERT INTO avisos " & _
"(anyo,mes,dia,texto,tipo) VALUES (" & txtAnyo & _
", " & txtMes & ", " & txtDia & _
", '" & EscapaComillas(txtAviso) & _
"', " & cmbTipo.ListIndex & ")")
End If
End Sub

Comunicación y utilidades	Comprar y vender	Información	Ocio
• Correo • Crear paginas web gratis • Foros • Chat • Logos y Melodías • Postales • Videos tu.tv • Agenda • Antivirus • Hispavista • Solidaridad y ONGs • Alojamiento web	• Comprar • Ofertas • Coches • Móviles • Clasificados • Desarrollo web a Empresas • Viajes • Fotografía • Dominios • Telefonía • Coleccionismo • ADSL • Inmobiliaria • Hosting	• La Bolsa • Ofertas de trabajo • Guía - Buscador • Noticias • El Tiempo • Horóscopo • Loterías • Formación • Blog • Páginas Amarillas • Callejero • Alarmas Hogar • Alquiler coches	• Fotos de chicas • Busco pareja • Cine • Música • Juegos • Software • Bingo • Casino • Poker • Amor y Pareja • Turismo • Apuestas • Alquiler DVD