Error de sintaxis en la siguiente función
Publicado por Miguel (281 intervenciones) el 12/11/2019 19:11:04
Sintaxis incorrecta cerca de GO
Sintaxis incorrecta cerca de Auto_Increment
Sintaxis incorrecta en IdProv
Por favor haber si alguien me puede indicar los errores pues no soy capaz de verlos.
Gracias
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 = FalseUsing 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 ThenThrow New Exception("Se produjo un error al Crear las Etiquetas o al Insertar los registros")
End If
Result = TrueEnd 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
0
