Error con un CREATE TABLE
Publicado por Miguel (281 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.
Error de sintaxis en la instrucción CREATE TABLE
Haber si alguien me puede aclarar dicho error.
Gracias y un saludo
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
0
