ADODB
GOSTARIA DE ATUALIZAR UM BANCO DE DADOS USANDO ADODB
ATé AGORA DEU CERTO ELE ATUALIZA A IMAGEM, SÓ“ QUE ELE ATUALIZA O PRIMEIRO REGISTRO GOSTARIA QUE ELE PROCURASSE O REGISTRO QUE EU INFORMAR E ATUALIZASSE AQUELE REGISTRO. COMO FAÇO
ATé AGORA DEU CERTO ELE ATUALIZA A IMAGEM, SÓ“ QUE ELE ATUALIZA O PRIMEIRO REGISTRO GOSTARIA QUE ELE PROCURASSE O REGISTRO QUE EU INFORMAR E ATUALIZASSE AQUELE REGISTRO. COMO FAÇO
EU USAVA ANTES O SEEK
WITH TABELA
.INDEX = "IDXREGISTRO"
.SEEK "=", TXTCAMPO
IF .NOMATCH = TRUE THEN
MSGBOX "ARQUIVO NAO ENCONTRADO"
ELSE
TABELA.EDIT
CAMPO1 = TXTCAMPO
ENDIF
WITH TABELA
.INDEX = "IDXREGISTRO"
.SEEK "=", TXTCAMPO
IF .NOMATCH = TRUE THEN
MSGBOX "ARQUIVO NAO ENCONTRADO"
ELSE
TABELA.EDIT
CAMPO1 = TXTCAMPO
ENDIF
qual o banco de dados que vc utiliza??
comovc faz a conexão com o mesmo?? código? objeto??
poste seu código para que possamos ajudar.
comovc faz a conexão com o mesmo?? código? objeto??
poste seu código para que possamos ajudar.
Dim Cn As ADODB.Connection
Dim WithEvents TABREG As ADODB.Recordset
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\BDADOS\REGAGE.mdb;Jet OLEDB:Database Password=123456;"
Cn.CursorLocation = adUseClient
Cn.Mode = adModeReadWrite
Cn.Open
Set TABREG = New ADODB.Recordset
TABREG.Open "SELECT * FROM TBREGAGENTE", Cn, adOpenDynamic, adLockOptimistic
NÃO SEI SE ISSO AJUDA, ESPERO QUE SIM
Dim WithEvents TABREG As ADODB.Recordset
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\BDADOS\REGAGE.mdb;Jet OLEDB:Database Password=123456;"
Cn.CursorLocation = adUseClient
Cn.Mode = adModeReadWrite
Cn.Open
Set TABREG = New ADODB.Recordset
TABREG.Open "SELECT * FROM TBREGAGENTE", Cn, adOpenDynamic, adLockOptimistic
NÃO SEI SE ISSO AJUDA, ESPERO QUE SIM
TABREG.Open "SELECT * FROM TBREGAGENTE Where IDXRegistro = " & txtCampo.Text, Cn, adOpenDynamic, adLockOptimistic
Ai vc da o Edit e salva da mesma forma que fazia antes com o SEEK
FIZ DA SEGUINTE MANEIRA MAS NAO DEU CERTO
TABREG.Open "SELECT * FROM TBREGAGENTE Where IDXReg1 = " & TxtReg, Cn, adOpenDynamic, adLockOptimistic
With TABREG
.Index = "IDXREG1"
.Seek "=", TxtReg
If .NoMatch = True Then
MsgBox "NAO ENCONTRADO"
Else
TABREG.Edit
TABREG.Open "SELECT * FROM TBREGAGENTE Where IDXReg1 = " & TxtReg, Cn, adOpenDynamic, adLockOptimistic
With TABREG
.Index = "IDXREG1"
.Seek "=", TxtReg
If .NoMatch = True Then
MsgBox "NAO ENCONTRADO"
Else
TABREG.Edit
Tenta assim:
TABREG.Open "SELECT * FROM TBREGAGENTE Where IDXReg1 = " & TxtReg, Cn, adOpenDynamic, adLockOptimistic
With TABREG
If .EOF Then
MsgBox "NAO ENCONTRADO"
Else
TABREG.Edit
deu o seguinte erro:
compile error:
method or data member not found
compile error:
method or data member not found
em que linha??
vc tem msn?? se tiver me add... ai te ajudo melhor...
tcheloskt@hotmail.com
vc tem msn?? se tiver me add... ai te ajudo melhor...
tcheloskt@hotmail.com
Tópico encerrado , respostas não são mais permitidas