Buenos días a todos. Solicito ayuda a ver si alguien me puede tender una mano. Tengo una aplicación en VB 2008 en la cual deseo ir creando diferentes tablas dentro de la base, (DB sql), pero en tiempo de ejecución. El nombre de la tabla lo tomo desde un Combobox y los campos de dichas tablas, los tomo desde un Listbox que se llena según lo que se haya elegido en el combobox que da nombre a la tabla. Buscando, he avanzado bastante en esto, ocurre que me produce error al momento de que cuando hago Click en un botón "Crear Tabla" que esta en el formulario. Dejo el error y los diferentes códigos para ver si alguien puede detectar que puede ser. Desde ya muchísimas gracias por anticipado. Saludos.
FUNCION PARA CREAR LA TABLA
Private Function crearTablaPrueba() As Boolean
Dim creada As Boolean = False
sCmd = "CREATE TABLE [dbo].[tbl_Control" & Me.cmbProducto.Text & "]( " & _
"[ID] [int] IDENTITY(1,1) NOT NULL, " & _
"[" & Arreglo(i) & "] COLLATE Modern_Spanish_CI_AS NULL," & _
"CONSTRAINT [PK_Prueba] PRIMARY KEY CLUSTERED (" & _
"[ID] ASC)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY])" & _
" ON [PRIMARY]"
Try
Conexion = New SqlConnection(Cs)
Conexion.Open()
Dim cmd As New SqlCommand(sCmd, Conexion)
cmd.ExecuteNonQuery()
creada = True
Catch ex As Exception
MessageBox.Show("Error al crear la tabla:" & vbCrLf & ex.Message)
Finally
If Not Conexion Is Nothing Then
If Conexion.State = ConnectionState.Open Then
Conexion.Close()
End If
End If
End Try
Return creada
End Function
PROCED. P/BOTON
Private Sub btnCrearTabla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrearTabla.Click
ReDim Arreglo(Me.ListBox2.Items.Count - 1)
For i = 0 To Me.ListBox2.Items.Count - 1
Arreglo(i) = Replace(Me.ListBox2.Items(i), " ", "")
MsgBox(Arreglo(i))
Next
Call crearTablaPrueba()
End Sub
ERROR QUE INFORMA
No se controló Index OutofRangeExeption
Índice fuera de los limites de la matriz.
La verdad no me doy cuenta donde falla el Array o la instrucción SQL.. No se
