Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Eliminar de BD con doble condición

  • Autor del tema Autor del tema Ico22
  • Fecha de inicio Fecha de inicio

Ico22

Active member
Registrado
11 Ene 2016
Mensajes
213
Código:
Public Sub EliminarRegistroCombo(xTabla As String, xCampo As String, xDato As String, xCampo1 As String, xDato1 As String)

ConsultaSql = "DELETE FROM " & xTabla & " WHERE " & xCampo & " = "...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Solución
Te falta separar el operador AND

Código:
ConsultaSql = "select * FROM " & xTabla & " WHERE " & xCampo & " = " & xDato & " And " & xCampo1 & " = " & xDato1


En la llamada que haces:
EliminarRegistroCombo "ProductosCombo", "Id", "'" & Me.txtCod.Text & "'", "IdProducto", "'" & Cod & "'"

Ya estás poniendo la comilla, así que ya no es necesaria en la cadena ConsultaSql


***
Saludos Dante Amor
Visita: Cursos de Excel y Macros
***
Hola

No me queda tan claro tu dilema, pero parece ser justamente un problema de falta de apóstrofos y and. Corrige así:

Código:
ConsultaSql = "DELETE FROM " & xTabla & " WHERE " & xCampo & " ='"...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Te falta separar el operador AND

Código:
ConsultaSql = "select * FROM " & xTabla & " WHERE " & xCampo & " = " & xDato & " And " & xCampo1 & " = " & xDato1


En la llamada que haces...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba