Visual Basic - Error de sintaxis (falta operador) en la expresión de consulta

Val: 8

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Matias (4 intervenciones) el 10/12/2017 20:36:17

Estimados, buenas tardes. Quería consultarles acerca del siguiente error: Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en System.Data.dll - Información adicional: Error de sintaxis (falta operador) en la expresión de consulta '23232323', '41752233', [email protected])'
Adjunto imagen del error y copio el código del programa.
Muchas gracias.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

Imports System.Data.OleDb 'permite el manejo de BBDD access

Public Class Frm_AgregarNuevo

    Private Sub Frm_AgregarNuevo_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Interface_Entrada()

        Text_Matricula.Select()

    End Sub

    Private Sub Interface_Entrada()

        'se ejecuta cuando se carga el formulario

        'habilitados

        Lab_Matricula.Enabled = True

        Text_Matricula.Enabled = True

        CMB_Buscar.Enabled = True

        'deshabilitados

        Lab_Nombre.Enabled = False

        Text_Nombre.Enabled = False

        Lab_Direccion.Enabled = False

        Text_Direccion.Enabled = False

        Lab_Edad.Enabled = False

        Text_Edad.Enabled = False

        Lab_DNI.Enabled = False

        Text_DNI.Enabled = False

        Lab_Telefono.Enabled = False

        Text_Telefono.Enabled = False

        Lab_Mail.Enabled = False

        Text_Mail.Enabled = False

        CMB_Guardar.Enabled = False

    End Sub

    Private Sub Interface_Datos()

        'se ejecuta cuando se ingresan nuevos datos

        'deshabilitados

        Lab_Matricula.Enabled = False

        Text_Matricula.Enabled = False

        CMB_Buscar.Enabled = False

        'habilitados

        Lab_Nombre.Enabled = True

        Text_Nombre.Enabled = True

        Lab_Direccion.Enabled = True

        Text_Direccion.Enabled = True

        Lab_Edad.Enabled = True

        Text_Edad.Enabled = True

        Lab_DNI.Enabled = True

        Text_DNI.Enabled = True

        Lab_Telefono.Enabled = True

        Text_Telefono.Enabled = True

        Lab_Mail.Enabled = True

        Text_Mail.Enabled = True

        CMB_Guardar.Enabled = True

    End Sub

    Private Sub CMB_Buscar_Click(sender As Object, e As EventArgs) Handles CMB_Buscar.Click

        If Buscar_Registro(Text_Matricula.Text) = True Then

            'mostrar mensaje que el registro existe

            MessageBox.Show("El registro ya existe")

            Text_Matricula.Focus()

        Else

            Interface_Datos()

            Text_Nombre.Focus()

        End If

    End Sub

    Function Buscar_Registro(ByVal xMatricula As String) As Boolean

        'convertir cadena en númerico

        Dim Matricula As Double

        Matricula = Convert.ToInt32(xMatricula)

        'conexión

        Dim Conexion As New OleDb.OleDbConnection

        Conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = E:\\Projects\\Visual Basic\\Proyecto Empresa BBDD\\BBDDmaestra.accdb; Persist Security Info = False"

        'cadena SQL

        Dim CadenaSql As String

        CadenaSql = "SELECT * FROM personal WHERE matricula = " & Matricula

        'adaptador

        Dim Adaptador As New OleDb.OleDbDataAdapter(CadenaSql, Conexion)

        'data set

        Dim Dset As New DataSet

        'llenar el data set

        Conexion.Open() 'abre conexión

        Adaptador.Fill(Dset) 'adaptador llena con datos al data set

        Conexion.Close()

        'contar registro

        If (Dset.Tables(0).Rows.Count = 0) Then

            'no encontró el registro

            Return False

        Else

            'si encontró el registro, carga los texbox del form con info del reg encontrado

            Text_Nombre.Text = Dset.Tables(0).Rows(0)("Nombre").ToString()

            Text_Direccion.Text = Dset.Tables(0).Rows(0)("Direccion").ToString()

            Text_Edad.Text = Dset.Tables(0).Rows(0)("Edad").ToString()

            Text_DNI.Text = Dset.Tables(0).Rows(0)("DNI").ToString()

            Text_Telefono.Text = Dset.Tables(0).Rows(0)("Telefono").ToString()

            Text_Mail.Text = Dset.Tables(0).Rows(0)("Mail").ToString()

            Dset.Dispose()

            Return True

        End If

    End Function

    Function Agregar_Registro(ByVal Matricula As String, ByVal Nombre As String, ByVal Direccion As String, ByVal Edad As String, ByVal DNI As String, ByVal Telefono As String, ByVal Mail As String) As Boolean

        'convertir

        Dim Cod As Integer = Convert.ToInt32(Matricula)

        Dim Eda As Integer = Convert.ToInt32(Edad)

        Dim Doc As Integer = Convert.ToInt32(DNI)

        Dim Tel As Integer = Convert.ToInt64(Telefono)

        'conexión

        Dim Conexion As New OleDb.OleDbConnection

        Conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = E:\\Projects\\Visual Basic\\Proyecto Empresa BBDD\\BBDDmaestra.accdb; Persist Security Info = False"

        'instrucción SQL

        Dim CadenaSQL As String = "INSERT INTO personal (matricula, nombre, direccion, edad, dni, telefono, mail)"

        CadenaSQL = CadenaSQL + "  VALUES ( " & Cod & ","

        CadenaSQL = CadenaSQL + "          '" & Nombre & "',"

        CadenaSQL = CadenaSQL + "          '" & Direccion & "',"

        CadenaSQL = CadenaSQL + "          '" & Eda & "',"

        CadenaSQL = CadenaSQL + "           " & Doc & "',"

        CadenaSQL = CadenaSQL + "          '" & Tel & "',"

        CadenaSQL = CadenaSQL + "          " & Mail & ")"

        'crear un comando

        Dim Comando As OleDbCommand = Conexion.CreateCommand()

        Comando.CommandText = CadenaSQL

        'ejecutar la consulta de acción

        Conexion.Open()

        Comando.ExecuteNonQuery()

        Conexion.Close()

        Return True

    End Function

    Private Sub CMB_Guardar_Click(sender As Object, e As EventArgs) Handles CMB_Guardar.Click

        Agregar_Registro(Text_Matricula.Text, Text_Nombre.Text, Text_Direccion.Text, Text_Edad.Text, Text_DNI.Text, Text_Telefono.Text, Text_Mail.Text) 'guarda los datos en la BBDD

        Interface_Entrada() 'prepara el formulario para ingresar un nuevo registro

        Text_Matricula.Focus() 'envía el foco al text_matrícula

        Limpiar_Formulario() 'limpia el formulario

    End Sub

    Private Sub Limpiar_Formulario()

        'limpia los texbox del formulario

        Text_Nombre.Clear()

        Text_Direccion.Clear()

        Text_Edad.Clear()

        Text_DNI.Clear()

        Text_Telefono.Clear()

        Text_Mail.Clear()

    End Sub

    Private Sub CMB_Cancelar_Click(sender As Object, e As EventArgs) Handles CMB_Cancelar.Click

        Me.Close()

    End Sub

    Private Sub Text_Nombre_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Nombre.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            Text_Direccion.Focus()

        End If

    End Sub

    Private Sub Text_Direccion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Direccion.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            Text_Edad.Focus()

        End If

    End Sub

    Private Sub Text_Edad_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Edad.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            Text_DNI.Focus()

        End If

    End Sub

    Private Sub Text_DNI_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_DNI.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            Text_Telefono.Focus()

        End If

    End Sub

    Private Sub Text_Telefono_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Telefono.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            Text_Mail.Focus()

        End If

    End Sub

    Private Sub Text_Mail_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text_Mail.KeyPress

        'este método se ejecuta cada vez que el usuario presiona tecla enter, pasando al textbox siguiente

        If Asc(e.KeyChar) = 13 Then

            CMB_Guardar.PerformClick()

        End If

    End Sub

End Class

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

0

Responder

Pos: 1

Val: 3.117

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Andres Leonardo (1798 intervenciones) el 11/12/2017 14:53:04

Coge el valor de CADENA SQL despues de todo esa concatenacion, luego de esos pegala en el SQL analyzer de sql o comandos sql de acceess ... eso te permitira ver correctametne el comando SQL concatenado y si su formato es correcto

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

1

Comentar

Pos: 16

Val: 109

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Yamil Bracho (226 intervenciones) el 11/12/2017 15:24:41

Los campos texto o char llevan comillas delantes, y en este caso te esta diciendo que le faltan al email.
En vez de usar un string dinamico para especificar tu sentecnia SQL usa Parameters. Por ejemplo
INSERT INTO Personal(Id, Nombre) VALUES(@Id, @Nombre)
...
Comando.Paramters.AddWithValue("@Id", Cod);
Comando.Paramters.AddWithValue("@Nombre", NombreCliente);
....

Valora esta respuesta

1

Comentar

Pos: 193

Val: 8

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Matias (4 intervenciones) el 12/12/2017 11:53:35

Hola Yamil, gracias por la pronta respuesta.
Yo hice esto pero me dice Paramenters no es miembro de String. El carácter no es válido.
Seguramente lo estoy haciendo mal, soy muy principiante en la programación.
Copio el código.
Gracias.

1

2

3

4

5

6

7

8

Dim CadenaSQL As String = "INSERT INTO personal (matricula, nombre, direccion, edad, dni, telefono, mail) VALUES (@Cod, @Nombre, @Direccion, @Eda, @Doc, @Tel, @Mail)"

Comando.Parameters.AddWithValue("@Cod", Matricula);

Comando.Parameters.AddWithValue("@Nombre", Nombre);

Comando.Parameters.AddWithValue("@Direccion", Direccion);

Comando.Parameters.AddWithValue("@Eda", Edad);

Comando.Parameters.AddWithValue("@Doc", DNI);

Comando.Parameters.AddWithValue("@Tel", Telefono);

Comando.Parameters.AddWithValue("@Mail", Mail)

Valora esta respuesta

0

Comentar

Pos: 193

Val: 8

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Matias (4 intervenciones) el 12/12/2017 12:02:03

Yamil, lo solucioné con las comillas. Muchísimas gracias. Me salvaste.
Igual decime como es el tema de Parameters así lo tengo como alternativa.
Adjunto el código de la solución.

1

2

3

4

5

6

7

8

Dim CadenaSQL As String = "INSERT INTO personal (matricula, nombre, direccion, edad, dni, telefono, mail) "

        CadenaSQL = CadenaSQL + "  VALUES ( " & Cod & ","

        CadenaSQL = CadenaSQL + "          '" & Nombre & "',"

        CadenaSQL = CadenaSQL + "          '" & Direccion & "',"

        CadenaSQL = CadenaSQL + "          '" & Eda & "',"

        CadenaSQL = CadenaSQL + "          '" & Doc & "',"

        CadenaSQL = CadenaSQL + "          '" & Tel & "',"

        CadenaSQL = CadenaSQL + "          '" & Mail & "')"    acá estaba el error

Valora esta respuesta

0

Comentar

Pos: 193

Val: 8

Error de sintaxis (falta operador) en la expresión de consulta

Publicado por Matias (4 intervenciones) el 12/12/2017 11:48:12

Hola Andrés, gracias por la respuesta. Exactamente donde tengo que copiarlo. Soy principiante en el tema de programación.

Valora esta respuesta

0

Comentar