COMO É O MÉTODO UPDATE NO VB.NET
No VB6 data1.recordset.edit
data1.recordset.update
E salva as modificações, no VBNet como seria?
Obrigado, é o meu primeiro dia em VBNet
data1.recordset.update
E salva as modificações, no VBNet como seria?
Obrigado, é o meu primeiro dia em VBNet
Pesquise no site/web por ADO.NET.
À grosso modo:
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As[/txt-color] ADODB.Connection
[txt-color=#0000f0]Dim[/txt-color] RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recordset
[txt-color=#0000f0]Dim[/txt-color] Codigo [txt-color=#0000f0]As Integer[/txt-color] = Val(txtCodigo.Text)
C.Open(Conexao)
[txt-color=#007100][ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo[/txt-color]
RecSet = C.Execute([txt-color=#e80000][Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô][/txt-color] & Codigo)
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As[/txt-color] ADODB.Connection
[txt-color=#0000f0]Dim[/txt-color] RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recordset
[txt-color=#0000f0]Dim[/txt-color] Codigo [txt-color=#0000f0]As Integer[/txt-color] = Val(txtCodigo.Text)
C.Open(Conexao)
[txt-color=#007100][ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo[/txt-color]
RecSet = C.Execute([txt-color=#e80000][Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô][/txt-color] & Codigo)
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
Desculpe, mas faltou a CONEXAO
Amigo faz uma pesquisa, aqui mesmo no site tem varios exemplo sobre isso.
Abraços !
Abraços !
Veja esse exemplo que o Webmaster disponibilizou no VBMania:
VB.NET :: Codigo Fonte :: Bancos de dados
OPERACOES DE CRUD COM MYSQL
OPERACOES DE CRUD COM MYSQL
Cara, CONEXAO refere-se a sua string de conexão com o banco de dados.
Por exemplo, no Módulo do programa você coloca:
Dim C As New ADODB.Connection
___________________________________
Public Sub Conexao()
With C
If .State = 0 Then
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
.ConnectionString = Local_Do_Banco_De_Dados
.Open()
End If
End With
End Sub
Agora no editor de códigos:
Dim RecSet As ADODB.Recordset
Dim Codigo As Integer = Val(txtCodigo.Text)
C.Open(Conexao)
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
RecSet = Nothing
C.Close()
Por exemplo, no Módulo do programa você coloca:
Dim C As New ADODB.Connection
___________________________________
Public Sub Conexao()
With C
If .State = 0 Then
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
.ConnectionString = Local_Do_Banco_De_Dados
.Open()
End If
End With
End Sub
Agora no editor de códigos:
Dim RecSet As ADODB.Recordset
Dim Codigo As Integer = Val(txtCodigo.Text)
C.Open(Conexao)
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
RecSet = Nothing
C.Close()
só consertando o codigo do nossso amigo , a sintaxe do update esta incorreta.
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
para
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome set [ô][Ô] & txtnome.text & [Ô][ô] FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
para
[ô]Atualiza o nome do funcionário da tabela tblfuncionarios onde o nº do código da coluna codigo seja iqual ao valor da variável Codigo
RecSet = C.Execute([Ô]UPDATE nome set [ô][Ô] & txtnome.text & [Ô][ô] FROM tblfuncionarios WHERE codigo =[Ô] & Codigo)
Tópico encerrado, já que foram postadas soluções que resolvem o problema, e o colega ALMIRSAFADI não deu continuidade / não voltou para encerrá-lo.
Tópico encerrado , respostas não são mais permitidas