BANCO ACCESS NAO ATUALIZA
CarÃssimos se puderem ajude por favor. Meu código abaixo não faz a atualização no banco de dados access e em nenhuma ocasião me apresenta algum indicativo de erro. Será que a lógica tá errada ?
On Error Resume Next
Dim intTamanho As Integer
Dim strOriginal As Integer
cnnOLEDB.Open()
If strOndegravar = [Ô]12[Ô] Then
intTamanho = Len(Label6.Text)
If intTamanho < 60 Then intTamanho = 60
If Len(TextBox25.Text) <= intTamanho Then
Label6.Text = TextBox25.Text
cmdUpdate.CommandText = [Ô]UPDATE objetos SET texttusuario =[ô][Ô] & Label6.Text & [Ô][ô], texttusuariopararecuperar=[ô][Ô] & Label6.Text & [Ô][ô] WHERE objeto = [ô]form2groupbox1.text[ô];[Ô]
Form2.GroupBox1.Text = TextBox25.Text
Else
MsgBox([Ô]Sua nova frase não pode conter mais de [Ô] & intTamanho & [Ô] caracteres.[Ô])
cnnOLEDB.Close()
GoTo 1
End If
ElseIf strOndegravar = [Ô]11[Ô] Then
intTamanho = Len(Label5.Text)
If intTamanho < 23 Then intTamanho = 23
If Len(TextBox25.Text) <= intTamanho Then
Label5.Text = TextBox25.Text
cmdUpdate.CommandText = [Ô]UPDATE objetos SET texttusuario =[ô][Ô] & Label5.Text & [Ô][ô], texttusuariopararecuperar=[ô][Ô] & Label5.Text & [Ô][ô] WHERE objeto = [ô]form2groupbox2.text[ô];[Ô]
Form2.GroupBox2.Text = TextBox25.Text
Else
MsgBox([Ô]Sua nova frase não pode conter mais de [Ô] & intTamanho & [Ô] caracteres.[Ô])
cnnOLEDB.Close()
GoTo 1
End If
End if
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()
Label25.Text = [Ô][Ô]
TextBox25.Text = [Ô][Ô]
1:
O que será que tá pegando ?
On Error Resume Next
Dim intTamanho As Integer
Dim strOriginal As Integer
cnnOLEDB.Open()
If strOndegravar = [Ô]12[Ô] Then
intTamanho = Len(Label6.Text)
If intTamanho < 60 Then intTamanho = 60
If Len(TextBox25.Text) <= intTamanho Then
Label6.Text = TextBox25.Text
cmdUpdate.CommandText = [Ô]UPDATE objetos SET texttusuario =[ô][Ô] & Label6.Text & [Ô][ô], texttusuariopararecuperar=[ô][Ô] & Label6.Text & [Ô][ô] WHERE objeto = [ô]form2groupbox1.text[ô];[Ô]
Form2.GroupBox1.Text = TextBox25.Text
Else
MsgBox([Ô]Sua nova frase não pode conter mais de [Ô] & intTamanho & [Ô] caracteres.[Ô])
cnnOLEDB.Close()
GoTo 1
End If
ElseIf strOndegravar = [Ô]11[Ô] Then
intTamanho = Len(Label5.Text)
If intTamanho < 23 Then intTamanho = 23
If Len(TextBox25.Text) <= intTamanho Then
Label5.Text = TextBox25.Text
cmdUpdate.CommandText = [Ô]UPDATE objetos SET texttusuario =[ô][Ô] & Label5.Text & [Ô][ô], texttusuariopararecuperar=[ô][Ô] & Label5.Text & [Ô][ô] WHERE objeto = [ô]form2groupbox2.text[ô];[Ô]
Form2.GroupBox2.Text = TextBox25.Text
Else
MsgBox([Ô]Sua nova frase não pode conter mais de [Ô] & intTamanho & [Ô] caracteres.[Ô])
cnnOLEDB.Close()
GoTo 1
End If
End if
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()
Label25.Text = [Ô][Ô]
TextBox25.Text = [Ô][Ô]
1:
O que será que tá pegando ?
1 - Evite o uso de [Ô]On Error Resume Next[Ô], isso camufla muito erro...
2 - Verifique o conteúdo da variável [Ô]strOndegravar[Ô]
3 - Depure o código(retirando o [Ô]On Error Resume Next[Ô]) e veja se alguma mensagem de erro é apresentada.
2 - Verifique o conteúdo da variável [Ô]strOndegravar[Ô]
3 - Depure o código(retirando o [Ô]On Error Resume Next[Ô]) e veja se alguma mensagem de erro é apresentada.
Ok jovem agradeço pela atenção. Vou tentar sim
Agradeço;
Agradeço;
Tópico encerrado , respostas não são mais permitidas