Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite amigos, estou simplesmente ficando louco com este problema !
Vou explicar !
Uso o Microsoft Visual Studio 2010, e estou tentando inserir registro em um banco de dados Access, porém não consigo enxergar onde esta o erro.
O código é o seguinte :
Private Sub ButtonGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGravar.Click
Dim sql As String
Dim strMessage As String
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Dim Campo1 As String
Dim Campo2 As Date
Dim Campo3 As Date
Dim Campo4 As String
Dim Campo5 As String
Dim Campo6 As String
Dim Campo7 As String
If TrabalhandoSIM.Checked = True Then
Campo1 = TextBoxMatricula.Text
Campo2 = DateTimePickerData.Value.Date
Campo3 = TimeOfDay.ToShortTimeString
Campo4 = ComboBoxObra.Text
Campo5 = ComboBoxGrupo.Text
Campo6 = ComboBoxEtapa.Text
Campo7 = "Nada"
Else
Campo1 = TextBoxMatricula.Text
Campo2 = DateTimePickerData.Value.Date
Campo3 = TimeOfDay.ToShortTimeString
Campo4 = "Nada"
Campo5 = "Nada"
Campo6 = "Nada"
Campo7 = ComboBoxMotivo.Text
End If
sql = "INSERT INTO Apontamentos (Matricula, Data do Apontamento, Hora do Apontamento, Obra, Grupo da OS5, Etapa, Motivo)"
sql = sql & " values (" & Campo1 & ", " & Campo2 & ", " & Campo3 & ", " & Campo4 & ", " & Campo5 & ", " & Campo6 & ", " & Campo7 & ")"
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Rio Nave\bin\Debug\CONTROLE DE RECURSOS.accdb")
conn.Open()
cmd = New OleDbCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
MsgBox("Registro gravado com sucesso !")
Catch ex As Exception
strMessage = "Xiii ! Que m***** ! Não consegui gravar o registro !" _
& vbCrLf & ex.Message & ex.HelpLink & ex.Source _
& " A variável sql é: " _
& sql
MsgBox(strMessage)
Finally
conn.Close()
End Try
End Sub
Quando tento gravar o registro, aparece a mensagem acima (Xiii ! Que m***** ! ...) e só informa que estou com problema no INSERT INTO.
Alguém consegue me ajudar ?
Agradeço mesmo.
Carregando comentários...