Visual Basic.NET - Error con un CREATE TABLE

 
Vista:
sin imagen de perfil
Val: 344
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error con un CREATE TABLE

Publicado por Miguel (231 intervenciones) el 04/07/2017 18:46:43
Tengo este código creado y me da un error que después de varios días de estudiar soy incapaz de saber lo que falla.

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
Public Sub CrearInicio()
    Try
        Open("MP.accdb")
        If ExisteTabla(cn, "Integer") = False Then
            Dim cmd As New OleDb.OleDbCommand("Create Table Inicio ' _
            (IdClien integer PRIMARY KEY,' _
            Nombre varchar(70),' _
            Dni varchar(10),' _
            Provincia varchar(22),' _
            Cp char(5),' _
            Municipio varchar(40),' _
            Calle varchar(40),' _
            NumPiso varchar(15),' _
            Fijo char(11),' _
            Movil Char(11),'_
            Correo varchar(40),' _
            Venta varchar(70),' _
            Combustible char(7),' _
            Unidades Integer,' _
            Importe_v Decimal,' _
            Iva_v Integer,' _
            ImporteIva_v Decimal,' _
            Total_v Decimal,' _
            Instalacion Datetime,' _
            Garantia Integer,' _
            Vto DateTime,' _
            Provincia_v varchar(22),' _
            Cp_v char(5),' _
            Municipio_v Char(40),' _
            Calle_v varchar(40),' _
            NumPiso_v varchar(15),' _
            Limpieza Decimal,' _
            Piezas Decimal,' _
            Mano Decimal,' _
            Salidas Decimal,' _
            Fecha DateTime,' _
            Importe Decimal,' _
            Iva_v Integer,' _
            IvaAviso Decimal,' _
            Total Decimal,' _
            Aviso varchar(70))", cn)
            cmd.ExecuteNonQuery()
        Else
            Dim dbSchema As DataTable = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, "Inicio", "TABLE"})
            If dbSchema.Rows.Count > 0 Then
                borraTabla("Inicio")
            End If
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

Error de sintaxis en la instrucción CREATE TABLE

Haber si alguien me puede aclarar dicho error.

Gracias y un saludo
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 melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error con un CREATE TABLE

Publicado por melqui (201 intervenciones) el 05/07/2017 18:46:27
amigo, tu estas creando una tabla o tu tu quieres salvar un registro
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 1.239
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error con un CREATE TABLE

Publicado por Wilfredo Patricio Castillo (718 intervenciones) el 05/07/2017 21:09:40
Y no solo tienes errores de sintaxis, sino que tienes un campo repetido (Iva_v), te lo hago fácil, solo copia y pega, pero asegúrate del campo repetido, ya que lo he quitado, si te equivocaste de nombre verifica que sea el nombre correcto, en todo caso lo ignoras.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Cmd As New OleDbCommand
    Try
        Conn.Open()
        Cmd.CommandText = "CREATE TABLE INICIO (IdClien integer PRIMARY KEY, Nombre varchar(70), Dni varchar(10), Provincia varchar(22), Cp char(5),Municipio varchar(40),Calle varchar(40)," _
         & "NumPiso varchar(15), Fijo char(11),  Movil Char(11), Correo varchar(40),Venta varchar(70), Combustible char(7),Unidades Integer,Importe_v Decimal (12,2), ImporteIva_v Decimal (12,2)," _
        & "Total_v Decimal (12,2),Instalacion Datetime,Garantia Integer, Vto DateTime, Provincia_v varchar(22), Cp_v char(5), Municipio_v Char(40), Calle_v varchar(40), NumPiso_v varchar(15)," _
        & "Limpieza Decimal (12,2),Piezas Decimal (12,2), Mano Decimal (12,2),Salidas Decimal (12,2), Fecha DateTime,Importe Decimal (12,2),Iva_v Integer,IvaAviso Decimal (12,2),Total Decimal (12,2),Aviso varchar(70))"
        Cmd.CommandType = CommandType.Text
        Cmd.Connection = Conn
        Cmd.ExecuteNonQuery()
        MessageBox.Show("Tabla creada sdatisfactoriamente")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        Conn.Close()
        Conn.Dispose()
    End Try
End Sub

Espero te sirva y a los que lo puedan necesitar.

Saludos cordiales,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error con un CREATE TABLE

Publicado por melqui (201 intervenciones) el 06/07/2017 06:23:53
Bueno aun no entendi y no me respondiste mi pregunta tu quieres salvar un registro o crear una tabla con ese codigo
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
sin imagen de perfil
Val: 344
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error con un CREATE TABLE

Publicado por Miguel (231 intervenciones) el 06/07/2017 13:59:41
Era para Crear una tabla auxiliar. Gracias por tu ayuda, nunca había utilizado el CREATE TABLE pues recurría hacerlo con Access.

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar