Cadastro no VB

Question

Como eu uso o update no VB, quando clicar no botão atualizar tem que atualizar os dados das textbox.

Answer 1

veja como adaptar ao teu codigo

 Dim connection As OleDb.OleDbConnection
            'connection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\download\App_Data\dados.accdb;Persist Security Info=False;")
            connection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\lelake.com\tv.lelake.com\dados_fitoteca.mdb;Persist Security Info=False;")
            connection.Open()
            Dim command As New OleDb.OleDbCommand("UPDATE cad_equipamento SET [Nome]=@1, [Patrimonio]=@A2, [Valor]=@3, [Num_Serie]=@4, [Localizacao]=@A5, [Observacao]=@A6 WHERE (Nome='" + TextBox_del.Text + "')", connection)
            command.CommandType = CommandType.Text
            command.Parameters.Add("@A1", OleDb.OleDbType.VarChar).Value = DropDownList_Fnome.Text
            command.Parameters.Add("@A2", OleDb.OleDbType.VarChar).Value = TextBox_Frg.Text
            command.Parameters.Add("@A2", OleDb.OleDbType.VarChar).Value = TextBox_Fsetor.Text
            command.Parameters.Add("@A2", OleDb.OleDbType.VarChar).Value = TextBox_Fcelular.Text

            command.Parameters.Add("@A3", OleDb.OleDbType.VarChar).Value = DropDownList_Enome.Text
            command.Parameters.Add("@A4", OleDb.OleDbType.VarChar).Value = TextBox_Epatri.Text
            command.Parameters.Add("@A5", OleDb.OleDbType.VarChar).Value = TextBox_Evalor.Text
            command.Parameters.Add("@A6", OleDb.OleDbType.VarChar).Value = TextBox_Enum_serie.Text

            command.Parameters.Add("@A4", OleDb.OleDbType.VarChar).Value = TextBox_data_empr.Text
            command.Parameters.Add("@A5", OleDb.OleDbType.VarChar).Value = TextBox_data_devo.Text
            command.Parameters.Add("@A6", OleDb.OleDbType.VarChar).Value = TextBox_observação.Text
            command.ExecuteNonQuery()
            connection.Close()
            connection.Dispose()

---

Laercio Tersi

Answer 2

Não entendi direito esse codigo

Answer 3

Dim connection As OleDb.OleDbConnection

            connection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\lelake.com\tv.lelake.com\dados_fitoteca.mdb;Persist Security Info=False;")

            connection.Open()

            Dim command As New OleDb.OleDbCommand("UPDATE cad_usuario SET [Programa]=@A1, [Numero]=@A2, [Veiculacao]=@A3, [Tema]=@A4, [Convidado]=@A5, [Editor]=@A6 WHERE (Nome='" + TextBox_num_programa.Text + "')", connection)

            command.CommandType = CommandType.Text

            command.Parameters.Add("@A1", OleDb.OleDbType.VarChar).Value = DropDownList_programa.Text

            command.Parameters.Add("@A2", OleDb.OleDbType.VarChar).Value = TextBox_num_programa.Text

            command.Parameters.Add("@A3", OleDb.OleDbType.VarChar).Value = TextBox_veiculacao.Text

            command.Parameters.Add("@A4", OleDb.OleDbType.VarChar).Value = TextBox_tema.Text

            command.Parameters.Add("@A5", OleDb.OleDbType.VarChar).Value = TextBox_convidado.Text

            command.Parameters.Add("@A6", OleDb.OleDbType.VarChar).Value = TextBox_editor.Text

            command.ExecuteNonQuery()

            connection.Close()

            connection.Dispose()

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

‘ coloque esse codigo acima dentro de um botão

'Bom esse está mais limpo

‘Igual ao teu

‘Veja o seguinte

‘CAD_usuario é o nome da tabela dentro do banco

‘Programa, numero, veiculação, tema, convidado, editor, são os campos dentro da tablea CAD_usuario

‘@A1, @A2 etc são os valores que serão colocados dentro da tabela

‘A6 WHERE (Nome='" + TextBox_num_programa.Text + "')", é a condição ou seja será atualizado a linha da tabela o NOME seja igual ao ‘textbox_num_programa.text

---

Laercio Tersi

Answer 4

Mas os valores não pode ser escrito manualmente?

Answer 5

Esta dando esse erro

Answer 6

confira o nome do banco de dados, o nome da tabela e os nomes dos campos, provavelmente o erro é em uma dessas linhas

connection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\lelake.com\tv.lelake.com\dados_fitoteca.mdb;Persist Security Info=False;")

            connection.Open()

            Dim command As New OleDb.OleDbCommand("UPDATE cad_usuario SET [Programa]=@A1, [Numero]=@A2, [Veiculacao]=@A3, [Tema]=@A4, [Convidado]=@A5, [Editor]=@A6 WHERE (Nome='" + TextBox_num_programa.Text + "')", connection)

veja que:

dados_fitoteca.mdb - é o meu banco de dados

C:\Inetpub\vhosts\lelake.com\tv.lelake.com\ - essa é a linha onde está o meu banco de dados

cad_usuario - e o nome da minha tabela

Programa, Numero, Veiculacao, Tema, Convidado, editor, sao os campos dentro da minha tabela

WHERE (Nome='" + TextBox_num_programa.Text + "')", connection) - isso é a condição para a atualização ou seja: o valor do campo textbox_num_programa.text tem que ser igual ao valor do campo Nome da minha tabela

---

Laercio Tersi