DB EM ACCESS
sou novato em VB e tal...por isso a duvida.
estou tentando fazer com que o programa leia um banco de dados em access e que ele faça uma procura em uma determinada coluna por uma data, e se ele encontrar uma data, ele coloca em outra coluna "VENCIDO".
qual o erro nesse codigo?:
Set DB = OpenDatabase(App.Path & "\clientes.mdb")
Set RC = DB.OpenRecordset("clientes", dbOpenTable)
RC.Index = "indVence"
RC.MoveFirst
Do While RC.EOF = False
RC.Seek "=", Data
RC.Edit
RC.Fields(8) = "" & "VENCIDO"
RC.Update
Loop
quando eu inicio o programa, ele trava. pq?
Ajuda ae galera
estou tentando fazer com que o programa leia um banco de dados em access e que ele faça uma procura em uma determinada coluna por uma data, e se ele encontrar uma data, ele coloca em outra coluna "VENCIDO".
qual o erro nesse codigo?:
Set DB = OpenDatabase(App.Path & "\clientes.mdb")
Set RC = DB.OpenRecordset("clientes", dbOpenTable)
RC.Index = "indVence"
RC.MoveFirst
Do While RC.EOF = False
RC.Seek "=", Data
RC.Edit
RC.Fields(8) = "" & "VENCIDO"
RC.Update
Loop
quando eu inicio o programa, ele trava. pq?
Ajuda ae galera
Eu faria apenas:
Set DB = OpenDatabase(App.Path & "\clientes.mdb")
DB.Execute "UPDATE CLIENTES SET (nome do campo 8) = ÂÂÂ'VENCIDOÂÂÂ' WHERE (nome do campo 6) = #" & Date & "#", dbSeeChanges
DB.Close
Set DB = OpenDatabase(App.Path & "\clientes.mdb")
DB.Execute "UPDATE CLIENTES SET (nome do campo 8) = ÂÂÂ'VENCIDOÂÂÂ' WHERE (nome do campo 6) = #" & Date & "#", dbSeeChanges
DB.Close
Tópico encerrado , respostas não são mais permitidas