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

  • Pregunta

  • 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

    viernes, 19 de marzo de 2010 19:40

Todas las respuestas

  • Hola:

    Para consultas sobre Visual Basic 6.0, mejor será que las efectúes en el foro adecuado, si así lo crees oportuno, ¡claro está!

    http://social.msdn.microsoft.com/Forums/es-ES/vb56es/threads

    El foro donde nos encontramos, es para consultas de Visual Basic .NET, y en este lenguaje, poco se utiliza la biblioteca de ADO clásico y su control de datos. :-)

    Un saludo

     


    Enrique Martínez [MS MVP - VB]
    sábado, 20 de marzo de 2010 9:51
  • Buenas,

     

    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,

    domingo, 21 de marzo de 2010 21:49