Visual Basic.NET - Error de sintaxis en la siguiente función

 
Vista:
Imágen de perfil de Miguel
Val: 300
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error de sintaxis en la siguiente función

Publicado por Miguel (183 intervenciones) el 12/11/2019 19:11:04
Sintaxis incorrecta cerca de GO
Sintaxis incorrecta cerca de Auto_Increment
Sintaxis incorrecta en IdProv

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
Public Function Crear() As Boolean
    Dim Result As Boolean = False
    Using Conn As New SqlConnection(Conexion.ConnectionString)
        Try
            Conn.Open()
            Using Cmd As New SqlCommand
                Cmd.CommandText = "USE Calderas IF EXISTS (Select * From Etiquetas) DROP TABLE Etiquetas
                                   GO USE Calderas
                                   GO
                                   CREATE TABLE dbo.Etiquetas
                                   (IdEtiqueta Int(4) not null AUTO_INCREMENT,
                                   Nombre varchar(50) not null,
                                   Calle varchar(50) not null,
                                   Cp nchar(5) not null,
                                   Municipio varchar(50) not null,
                                   Provincia varchar(22) not null,
                                   KEY(IdEtiqueta))
                                   AS
                                   Begin
                                   INSERT INTO Etiquetas(Nombre,Calle,Cp,Municipio,Provincia)" +
                                  "SELECT T.Nombre,C.Calle,M.Municipio,M.Cp,P.Provincia FROM Clientes T " +
                                  "JOIN Calles C ON T.IdCalle = C.IdCalle " +
                                  "JOIN Municipios M ON T.IdCp = M.IdCp JOIN Cp M ON T.IdCp = M.IdCp " +
                                  "JOIN Provincias P ON T.IdProv = P.IdProv"
                Cmd.CommandType = CommandType.Text
                Cmd.Connection = Conn
                Dim Ok As Integer = Cmd.ExecuteNonQuery
                If Ok = 0 Then
                    Throw New Exception("Se produjo un error al Crear las Etiquetas o al Insertar los registros")
                End If
                Result = True
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Using
    Return Result
End Function

Por favor haber si alguien me puede indicar los errores pues no soy capaz de verlos.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo Patricio Castillo
Val: 1.391
Plata
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error de sintaxis en la siguiente función

Publicado por Wilfredo Patricio Castillo (637 intervenciones) el 14/11/2019 06:29:20
Tienes esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Cmd.CommandText = "IF EXISTS (Select * From Etiquetas) DROP TABLE Etiquetas
                           CREATE TABLE dbo.Etiquetas
                       (IdEtiqueta Int(4) not null AUTO_INCREMENT,
                       Nombre varchar(50) not null,
                       Calle varchar(50) not null,
                       Cp nchar(5) not null,
                       Municipio varchar(50) not null,
                       Provincia varchar(22) not null,
                       KEY(IdEtiqueta))
                       AS
                       Begin
                       INSERT INTO Etiquetas(Nombre,Calle,Cp,Municipio,Provincia)" +
                      "SELECT T.Nombre,C.Calle,M.Municipio,M.Cp,P.Provincia FROM Clientes T " +
                      "JOIN Calles C ON T.IdCalle = C.IdCalle " +
                      "JOIN Municipios M ON T.IdCp = M.IdCp JOIN Cp M ON T.IdCp = M.IdCp " +
                      "JOIN Provincias P ON T.IdProv = P.IdProv"


Así te debería quedar la sentencia y debería funcionar.

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar