USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Run-time error 3021
cedu
RIO DE JANEIRO
RJ - BRASIL
Postada em 01/11/2007 15:11 hs         
  Prezados, boa tarde!

Tenho um sistema feito em vb 5 e não consigo resolver o seguinte problema. Quando executo uma query (uso ADO para conexão ao banco de dados Access 97) e tenho que mover os registros para a primeira posição, quando chamo o método "moveMin" do objeto adodb.recordset aparece uma mensagem avisando que ocorreu o erro run-time 3021 - method "moveMin" object failed, o que pode ocasionar esse erro? Desde já, valeu!!!
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 02/11/2007 11:42 hs            
como está feita a conexão ao seu bd?? e qual o código para abrir a tabela (recordset)?
   
cedu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 05/11/2007 09:55 hs         
Ghost, a conexão é feita através do AdoDb, conforme método inicializaconexão, para abrir a tabela uso os comando citados a partir do item 2. Desde já, valeu!!!

item 1 - acesso ao bd
Public Sub inicializaConexao()
  aConexao.Provider = "Microsoft.Jet.OLEDB.4.0"
  aConexao.ConnectionString = "Data Source = C:Arquivos de ProgramasgestagdDbGestag97.mdb"
  aConexao.Open
End Sub

item 2 - acesso E
item 2 - acesso às tabelas
  Dim regItensSetor As ADODB.Recordset
  Set regItensSetor = aSql.getDadosItensSetor(regSetoresAgencia!codSetor)
  regItensSetor.MoveMin

Public Function getDadosItensSetor(codSetor As Byte) As ADODB.Recordset
  On Error GoTo Err_getDadosItensSetor
  'É necessário colocar apelidos nos campos, pois o VB não aceita pontos em campos. Ex.:tsetor.item
  aBd.setRs ("SELECT TSetor.CodSetor as codsetor, TSetor.Nome as nomesetor, TItem.CodItem as coditem, TItem.Nome as nomeitem, TSetorItem.Quantidade as quantidade, TSetorItem.Critério as criterio " & _
             "FROM TSetor INNER JOIN (TItem INNER JOIN TSetorItem ON TItem.CodItem = TSetorItem.CodItem) ON TSetor.CodSetor = TSetorItem.CodSetor " & _
             "where tsetor.codsetor = " & codSetor)
  Set getDadosItensSetor = aBd.getRs
Exit_getDadosItensSetor:
  Exit Function
Err_getDadosItensSetor:
  Call aMensagem.erro(Err.Description, Err.Number)
End Function

Private aConexao As New ADODB.Connection

Public Sub setRs(comando As String)
  On Error GoTo Err_setRs
  Set aRs = aConexao.Execute(comando)
  aResultadoTransacao = True
Exit_setRs:
  Exit Sub
Err_setRs:
  aResultadoTransacao = False
  Call aMensagem.erro(Err.Description, Err.Number)
End Sub
0
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/11/2007 23:07 hs            

Há registros na tabela qdo vc abre o recordset?

   
cedu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 09/11/2007 10:46 hs         
valeu ghost, o problema era esse, não pensei nessa hipótese!!!

Bom final de semana!!!
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página