none
Cadastro no VB RRS feed

Todas as Respostas

  • 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

    • Sugerido como Resposta Tersi quinta-feira, 23 de outubro de 2014 02:19
    sábado, 6 de setembro de 2014 22:15
  • Não entendi direito esse codigo
    domingo, 7 de setembro de 2014 17:24
  • 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

    domingo, 7 de setembro de 2014 18:14
  • Mas os valores não pode ser escrito manualmente?
    domingo, 7 de setembro de 2014 18:21
  • Esta dando esse erro
    domingo, 7 de setembro de 2014 20:47
  • 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

    terça-feira, 9 de setembro de 2014 00:59