LISTVIEW

GUTO 11/03/2005 11:39:03
#72310
nessa aki o
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False
USUARIO.EXCLUIDOS 11/03/2005 11:50:26
#72312
Olha só guto acabei de testar e funcionou em ACCESS 2000 com DAO.... e fiz referencia ao [txt-color=#ff0000]Microsoft DAO 3.6 OBject Library[/txt-color]

Código:

Dim bdi As Database
Dim rsA As Recordset
Dim ConsultaSQL As String
    
    ConsultaSQL = "SELECT * FROM ALUNOS" 'consulta teste
    
     Set bdi = OpenDatabase(App.Path, False, False)
    Set rsA = bdi.OpenRecordset(ConsultaSQL, dbOpenSnapshot)


E funcionou BLZ...........
veja no seu..
GUTO 11/03/2005 12:05:22
#72316
OPa eia nesse codigo naun tem nome do banco? Set bdi = OpenDatabase(App.Path, False, False) pq esta dano um erro que o motor do banco de dados jet naun pode abrir o arquivo ele esta aberto por outro usuario em modo exclusivo, mas ais e eu ponho assim o Set bdi = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False) da erro de type mismatch

tentei assim tamen
Dim dado(4) As String, ConsultaSQL As String, MontaString As Boolean
Dim mPrimeiro As Boolean
Dim i As Integer

ConsultaSQL = ""
ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE "
MontaString = True
mPrimeiro = True
dado(1) = ""
dado(2) = ""
dado(3) = ""
dado(4) = ""

If Len(txtcod.Text) <> 0 Then
dado(1) = "[CODIGO] LIKE '" & TxtPesquisar.Text & "*'"
End If

If Len(txtdescricao.Text) <> 0 Then
dado(2) = "[Descricao] LIKE '" & TxtPesquisar.Text & "*'"
End If

If Len(txtname.Text) <> 0 Then
dado(3) = "[nome] LIKE '" & TxtPesquisar.Text & "*'"
End If

If Len(txtcidade.Text) <> 0 Then
dado(4) = "[Cidade] LIKE '" & TxtPesquisar.Text & "*'"
End If

For i = 1 To 4
If Len(dado(i)) <> 0 Then
If mPrimeiro Then
ConsultaSQL = ConsultaSQL & dado(i)
mPrimeiro = False
Else
ConsultaSQL = ConsultaSQL & " And " & dado(i)
End If
End If
Next

Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamentos = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaApartamento
GUTO 11/03/2005 12:08:35
#72318
e desse ultimo jeito deu erro de type mysmatch Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
USUARIO.EXCLUIDOS 11/03/2005 12:15:36
#72322
[txt-color=#ff0000]'é verdade... na pressa esqueci do NOME DO BANCO...mas
'tem certeza que vc declarou as variáveis como aqui. (bdi e rsa)
Dim bdi As Database
Dim rsA As Recordset [/txt-color]

Dim ConsultaSQL As String

ConsultaSQL = "SELECT * FROM ALUNOS" 'consulta teste

Set bdi = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsA = bdi.OpenRecordset(ConsultaSQL, dbOpenSnapshot)
[txt-color=#0000ff]
Outra... o bd é em ACCESS 2000 (DAO 3.6) e vc fez a REFERENCIA?? pq senão tem q fazer referência ao Microsoft DAO 3.5!!![/txt-color]
??
GUTO 11/03/2005 12:23:12
#72326
podde cre germanir esta la na reference eu vi agora tudo certo eu declarei essa fita ae tamen , so que agora mudou de eero de erro de type mismatch aki o
Set rsA = bdi.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

so pra confirmar o CarregaApartamento continua ne?
GUTO 11/03/2005 12:25:36
#72328
so um pergunta oq faria isso? dbOpenSnapshot
USUARIO.EXCLUIDOS 11/03/2005 12:29:50
#72330
Um [txt-color=#ff0000]snapshot[/txt-color] é uma cópia dos dados de um recordset em um dado instante. Ele é muito semelhante a um dynaset pois pode ser criado a partir das tabelas básicas com as mesmas instruções.(SQL, QueryDef,...). A diferença principal é que um snapshot não é pode ser atualizado.

[txt-color=#0000ff]Poste exatamente TODO o CÓ“DIGO da ROTINA ou SUBROTINA...:[/txt-color]
USUARIO.EXCLUIDOS 11/03/2005 12:32:38
#72332
Porque cara está é a estrurua LÓ“GICA do acesso DAO...

[txt-color=#0000ff]Dim meubd as Database  
    Dim meusnap as Recordset[/txt-color]
    Set meubd  = DBEngine.Workspaces(0).OpenDatabase("C:\meudir\dados.mdb")
    Set meusnap = meubd.OpenRecordset("SELECT * FROM Clientes" , [txt-color=#ff0000]DbOpenSnapshot[/txt-color])

Seu problema deve ser falta de atenção em algum detalhe...
mas posta o codigo ae..
GUTO 11/03/2005 12:43:04
#72335
Seria assim
Private Sub FazPesquisa()
Dim Bdimobiliaria As Database
Dim rsApartamento As Recordset
Dim ConsultaSQL As String

ConsultaSQL = "SELECT * FROM Tbl_Apartamentos" 'consulta teste
Set Bdimobiliaria = OpenDatabase(App.Path & "\Bdimobiliaria.mdb", False, False)
Set rsApartamento = Bdimobiliaria.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaApartamento
Página 2 de 6 [51 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar