Error de sintaxis en la clausula FROM" "Error ('-2147217900(80040e14)' en tiempo de ejecucion... Estoy q muero!! con mi tesis....

Question

hola, tengo un problema que no he podido solucionar en varios programitas que he hecho en visual y es q me da ""Error de sintaxis en la clausula FROM""  y al correrlo  me arroja este error " Error ('-2147217900(80040e14)' en tiempo de ejecucion".. Estoy haciendo mi tesis y casi que me dio un infarto cuando me salio....  estoy trabajando con el Adodc y el DateGrid para hacer las conexiones con mi base de datos en acces.... todo me funciona bien hasta que enlazo mi adodc con la base de datos pero cuando intento enlazar mi DateGrid con mi adodc por medio de la propiedad DataSource me da "Error de sintaxis en la clausula FROM" automáticamente.. Por favor le agradecería la vida a quien me pueda ayudar...  

Este es el tipo de codigos q utilizo, por si acaso... me han dicho q hay mejores formas para no tener tantos problemas con el enlace y consultas a la base de datos pero si pudiera solucionar este error me aliviaria muchos dolores de cabeza ademas q tengo q terminar la tesis lo mas pronto... A quien pueda ayudarme se lo agradecería un mundo....

'''BOTON BUSCAR

If Text1 <> "" Then

 

Adodc1.Recordset.Filter = "CEDULA_USUARIO ='" + Text1 + "'"

If Adodc1.Recordset.BOF = True Then

MsgBox "No Existe", , "Mensaje de busqueda"

Else

Text2 = Me.Adodc1.Recordset.Fields("USUARIO")

Text3 = Me.Adodc1.Recordset.Fields("CONTRASEÑA")

Combo1 = Me.Adodc1.Recordset.Fields("NIVEL")

Me.Command3.Enabled = True

Me.Command4.Enabled = True

Me.Command2.Enabled = True

End If

Else

MsgBox "Debe colocar el numero de cedula", , "Mensaje"

End If

 

'''BOTÓN INCLUIR

Me.Text2 = Format(Text2, ">") ' tranformar en Mayuscula

If (Text1 <> "") And (Me.Text2 <> "") And (Me.Text3 <> "") And (Me.Combo1 <> "") Then

Adodc1.Recordset.Filter = " CEDULA_USUARIO ='" + Text1 + "'"

If Adodc1.Recordset.BOF = False Then

MsgBox "Este registro ya existe", , "Mensaje de busqueda"

Else

Me.Adodc1.Recordset.AddNew

Me.Adodc1.Recordset.Fields("CEDULA_USUARIO") = Text1

Me.Adodc1.Recordset.Fields("USUARIO") = Text2

Me.Adodc1.Recordset.Fields("CONTRASEÑA") = Text3

Me.Adodc1.Recordset.Fields("NIVEL") = Combo1

pregunta = MsgBox("Seguro que desea guardar", vbYesNo, "pregunta")

If pregunta = vbYes Then

    Me.Adodc1.Recordset.Update

    Me.Adodc1.Refresh

    Me.Command6 = True

    Else

    Me.Command6 = True

    End If

 

    End If

Else

MsgBox " Debe llenar los campos de: cedula, usuario, contraseña y nivel", , "mensaje"

Me.Text1.SetFocus

End If

Answer 1

 

Saludo , Muestrame tu  select que tu hace porque parace que es problema de tu scritp

saludo 

Answer 2

No sé si te servirá de ayuda porque no se si está todo el código de tu programa pero donde le indicas la tabla de la que estas leyendo o incluyendo datos.

Cuando filtras los datos

Adodc1.Recordset.Filter = "CEDULA_USUARIO ='" + Text1 + "'"

 

 

No deberías indicarle  "Select * from tabla where CEDULA_USUARIO ='" + Text1 + "'"

 

Saludos,

Answer 3

hola amigos gracias por sus ayuda pero ya pude resolver el problema... el error q me estaba dando era por que estaba escribiendo el nombre de la tabla muy largo y le estaba dejando espacios no entiendo como yo y las personas que intentaron ayudarme en la uni no nos dimos cuenta,  de igual forma muchísimas gracias, ya se q para una próxima oportunidad cuento con ustedes...  Dejan muy bien parado a este foro... gracias nuevamente...