SQLCOMMAND.COMMANDTEXT [Ô]UPDATE CADASTRO-SQ LI
Boa tarde galera estou tentando alterar um banco de dados em SQlite mas não sei como fazer, busquei informações na internet mas não obtive sucesso, conheço pouco de Sql.
# Fiz o seguinte
Private Sub AlteradadosPadrao()
[ô]Conecta o Banco de Dados
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
Dim sconnectionstring As String
[ô]Dim sCommand As String
[ô]Dim sqlCommand As SQLite.SQLiteCommand
sconnectionstring = [Ô]Data Source=C:\SCCV\Cadastros;Version=3;New=True;Compress=True;[Ô]
[ô]abre a conexão
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
[ô]Verfica se campo foi alterado
If TxtModeloPadrao.Enabled = True Then
SQLcommand.CommandText = [Ô]UPDATE Cadastros SET nome = [ô][Ô] & TxtModeloPadrao.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô])
End If
[ô] Fim da verificação
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro alterado com sucesso.[Ô])
Me.Close()
_______________________________________________________________________________________________
Encontrei este exemplo:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
[ô]define string de conexão com banco de dados SQLite - Macoratti.db criado na pasta c:\dados
[ô]usando a criptografia
SQLconnect.ConnectionString = [Ô]Data Source=c:\dados\Macoratti.db;Version=3;New=True;Compress=True;[Ô]
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
[ô]Verifica se a imagem foi alterada
If btnFoto.Text = [Ô]Foto Alterada[Ô] Then
SQLcommand.CommandText = [Ô]UPDATE Cadastro SET nome = [ô][Ô] & txtNome.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô], idade = [Ô] _
& txtIdade.Text & [Ô], foto = @image WHERE id = [Ô] & codigo
[ô]Define o parâmetro para imagem
SQLcommand.Parameters.Add(ImageToBlob([Ô]@image[Ô], d.FileName))
Else
SQLcommand.CommandText = [Ô]UPDATE Cadastro SET nome = [ô][Ô] & txtNome.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô], idade = [Ô] _
& txtIdade.Text & [Ô] WHERE id = [Ô] & codigo
End If
[ô]Executa a consulta para alterar
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro alterado com sucesso.[Ô])
Me.Close()
Catch ex As Exception
MsgBox([Ô]Erro ao acessar o SQLite: [Ô] & ex.Message)
End Try
End Sub
Fonte: http://www.macoratti.net/10/02/vbn_sqlt2.htm
______________________________________________________
Já consegui buscar o registro para o formulario mas nao consigo alterar, quando vou salvar as alterações da erros, selecionando o open para abrir o banco.
Obrigado
# Fiz o seguinte
Private Sub AlteradadosPadrao()
[ô]Conecta o Banco de Dados
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
Dim sconnectionstring As String
[ô]Dim sCommand As String
[ô]Dim sqlCommand As SQLite.SQLiteCommand
sconnectionstring = [Ô]Data Source=C:\SCCV\Cadastros;Version=3;New=True;Compress=True;[Ô]
[ô]abre a conexão
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
[ô]Verfica se campo foi alterado
If TxtModeloPadrao.Enabled = True Then
SQLcommand.CommandText = [Ô]UPDATE Cadastros SET nome = [ô][Ô] & TxtModeloPadrao.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô])
End If
[ô] Fim da verificação
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro alterado com sucesso.[Ô])
Me.Close()
_______________________________________________________________________________________________
Encontrei este exemplo:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
[ô]define string de conexão com banco de dados SQLite - Macoratti.db criado na pasta c:\dados
[ô]usando a criptografia
SQLconnect.ConnectionString = [Ô]Data Source=c:\dados\Macoratti.db;Version=3;New=True;Compress=True;[Ô]
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
[ô]Verifica se a imagem foi alterada
If btnFoto.Text = [Ô]Foto Alterada[Ô] Then
SQLcommand.CommandText = [Ô]UPDATE Cadastro SET nome = [ô][Ô] & txtNome.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô], idade = [Ô] _
& txtIdade.Text & [Ô], foto = @image WHERE id = [Ô] & codigo
[ô]Define o parâmetro para imagem
SQLcommand.Parameters.Add(ImageToBlob([Ô]@image[Ô], d.FileName))
Else
SQLcommand.CommandText = [Ô]UPDATE Cadastro SET nome = [ô][Ô] & txtNome.Text.Replace([Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô], idade = [Ô] _
& txtIdade.Text & [Ô] WHERE id = [Ô] & codigo
End If
[ô]Executa a consulta para alterar
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro alterado com sucesso.[Ô])
Me.Close()
Catch ex As Exception
MsgBox([Ô]Erro ao acessar o SQLite: [Ô] & ex.Message)
End Try
End Sub
Fonte: http://www.macoratti.net/10/02/vbn_sqlt2.htm
______________________________________________________
Já consegui buscar o registro para o formulario mas nao consigo alterar, quando vou salvar as alterações da erros, selecionando o open para abrir o banco.
Obrigado
[Ô]da erros[Ô] é meio genérico demais pra poder ajudar, que erros especificamente?
Tópico encerrado , respostas não são mais permitidas