Errorl formato de la cadena de inicialización no se ajusta a la especificación
Publicado por Francisco A. Garcia (1 intervención) el 29/03/2018 03:56:44
Hola tengo este pequeño problema, tengo dos combo box(combobox5 y combobox1), quiero que lo que este seleccionado, al presionar un botón, se guarde en la base de datos pru.accdb, pero me muestra el siguiente error al presionar el botón en el programa:
El formato de la cadena de inicialización no se ajusta a la especificación que comienza en el índice 71
Este es mi código, estaría muy agradecido si alguien me pudiese ayudar.
El formato de la cadena de inicialización no se ajusta a la especificación que comienza en el índice 71
Este es mi código, estaría muy agradecido si alguien me pudiese ayudar.
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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(ComboBox1.Text) = "" Or Trim(ComboBox5.Text) = "" Then
MessageBox.Show("Todos los campos tienen que estar llenos")
Else
validar(ComboBox1.Text, ComboBox5.Text)
End If
End Sub
Sub validar(ByVal IDPieza As String, ByVal IdCentroCosto As String)
Try
Dim cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\pru.accdb; Jet OLEDB:Database"
Dim conectar As New OleDbConnection(cadena)
Dim cadenacomando As String = "Insert Into MovInv(IDPieza,IdCentroCosto) Values(@IDPieza,@IdCentroCosto)"
Dim comando As New OleDbCommand(cadenacomando, conectar)
comando.Parameters.Add(New OleDbParameter("@IDPieza", OleDbType.VarWChar))
comando.Parameters("@IDPieza").Value = ComboBox1.Text
comando.Parameters.Add(New OleDbParameter("@IdCentroCosto", OleDbType.VarWChar))
comando.Parameters("@IdCentroCosto").Value = ComboBox5.Text
conectar.Open()
comando.ExecuteNonQuery()
conectar.Close()
Catch ex As Exception
MessageBox.Show("Error: " & vbNewLine & ex.Message)
End Try
End Sub
Valora esta pregunta
0
