UPDATE DOS DADOS

WEBMASTER 05/06/2005 20:20:29
#87166 Resposta escolhida

Rubgomes,

Set conexao = New Connection
conexao.CursorLocation = adUseClient
conexao.Open dados
Dim v As New ADODB.Recordset
v.Open "tb_tabela",conexao,3,3 ' ---------------Acrescentei esta linha
v.AddNew
With v
.Fields("nome") = nome.Text
.Update
End With
MsgBox "Dados Modificados !!!", vbInformation, "Confirmação"
Set conexao = Nothing
Set v = Nothing

USUARIO.EXCLUIDOS 05/06/2005 20:30:41
#87167

Viva LEOPOLDOARJ !!!

tentei a sua dica, mas mesmo assim esta a dar erro na linha que voce acrescentou...

ERROR 3001 - "Os argumentos sao do tipo incorrecto, estao fora do intervalo aceitavel ou estao em conflito uns com os outros."

Set conexao = New Connection
conexao.CursorLocation = adUseClient
conexao.Open dados
Dim v As New ADODB.Recordset
v.Open "Nomes",conexao,3,3 ' --------------- Acrescentei a tabela que pretendia q era a tabela Nomes -------------
v.AddNew
With v
.Fields("nome") = nome.Text
.Update
End With
MsgBox "Dados Modificados !!!", vbInformation, "Confirmação"
Set conexao = Nothing
Set v = Nothing

1 abraço

WEBMASTER 05/06/2005 20:39:00
#87168

Aí, vê se você adicionou a referência :


Projects - References - Microsoft Activex Data Objects

USUARIO.EXCLUIDOS 05/06/2005 20:44:27
#87172

yah era isso !!!

ja avançou uma linha o erro, mas agora tou com outro problema...

eu quero so fazer o update para alguns campos da bd, mas tenho campos na bd q n permitem NULL

Da agora o seguinte erro:

"Cannot Insert the value NULL into column 'id', table 'dados.dbo.Nomes'; column does not allow nulls.
Insert fails.

Como posso fazer o update para so aqueles q desejo ??

obrigado

WEBMASTER 05/06/2005 20:46:49
#87173

Se for no access, entre lá na tabela e tire a obnrigatoriedade do campo .

USUARIO.EXCLUIDOS 05/06/2005 21:03:12
#87176

funcionou

obrigado pela sua ajuda

cumprimentos