![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
04/03/2003, 18:50
|
![Avatar de Zeratul](http://static.forosdelweb.com/customavatars/avatar31458_1.gif) | | | Fecha de Ingreso: marzo-2003 Ubicación: Palencia, España
Mensajes: 64
Antigüedad: 21 años, 11 meses Puntos: 0 | |
si comparas dos cadenas de caracteres puedes usar like o = indistintamente.
Al formar la sentencia sql debes tener ciudado con las comillas: hay que poner las comillas sencillas de sql donde correspondan y las dobles de la cadena visual basic. Puedes revisar que la sentencia queda bien usando el depurador.
este ejemplo borra siempre del mismo campo de la base de datos el texto que se introduzca en la caja de texto text1
Private Sub Command1_Click()
Dim cadena As String
Dim db As Database
Set db = OpenDatabase("tu_bd.mdb")
cadena = "delete from libros where campo=' " & Text1.Text & "' "
db.Execute (cadena)
End Sub
este otro borra el campo de la base de datos que se teclee en la caja de texto text2 y el texto que se introduzca en la caja de texto text1
Private Sub Command1_Click()
Dim cadena As String
Dim campo As String
Dim db As Database
Set db = OpenDatabase("biblioteca.mdb")
campo = Text2.Text
cadena = "delete from editoriales where " & campo & "=' " & Text1.Text & "' "
db.Execute (cadena)
End Sub |