Tema: Urgente VB
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/03/2003, 18:50
Avatar de Zeratul
Zeratul
 
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