TYPE MISMATCH

ANDRE.ADMVB 10/05/2010 17:09:09
#341440
Tente compactar no formato .ZIP, nas opções do Winrar tem como fazer isso.

Em paralelo, veja se este artigo do Macoratti lhe ajuda em algo:
http://www.macoratti.net/record.htm
SACOFRITO 10/05/2010 17:24:08
#341442
vo da uma olhada no site
e naoc onsigo posta o bd aki entao vo postar apenas o projeto, pois o bd é mt grande pois peguei ele de outro sistema aqui da empresa só pra teste meu
EDERMIR 10/05/2010 17:36:42
#341444
Esta function está no mesmo projeto ou em outro módulo?
SACOFRITO 10/05/2010 17:39:57
#341445
no msm projeto...o código por enquanto é só esse..
SACOFRITO 11/05/2010 15:30:31
#341505
ngm pode ajudar?
achei q poderia ser problema na minha máquina.. mas nao é.. troquei de pc e o msm erro aconteceu
ROBIU 11/05/2010 17:03:40
#341516
Mude a referência para [txt-color=#e80000]Microsoft DAO 3.6 Object Library [/txt-color]. Isso permite usar o access com versão superior ao Acess97

Coloque a referência completa das variáveis DAO.
Dim Db As DAO.Database
Dim DsProduto As DAO.Recordset


Eu não entendi a lógica do seu projeto, mas fiz uma adaptação.
SACOFRITO 11/05/2010 22:56:59
#341533
Robiu... nao entendi o pq do Dao.tal
se ja está selecionada a conexao DAO nas componentes ou references =\

ms amanha vo testa p ver se da certo


ah a logica do projetinho é só pra eu aprender a usar a list view
text1 é o codigo do produto
text2 é a combo do produto
e text3 será o preco venda do produto... ai vo criar otra text pra qtd... ao apertar enter irá encher a list
só isso
XXXANGELSXXX 14/05/2010 13:28:13
#341772
Faz assim cumpadre 


Sub PreencheDadosOcorrencia()
    Dim RS As Recordset
    On Error GoTo ErrorHandler
    caminho = ReadINI([Ô]Geral[Ô], [Ô]Caminho[Ô], App.Path & [Ô]\Config.ini[Ô])
    Set DB = DBEngine.OpenDatabase(caminho)
    sql = [Ô]Select * from CadOcorrencias order by OcorrDescricao [Ô]

    Set RS = DB.OpenRecordset(sql)


    With Me.ListView1
        .View = lvwReport
        .GridLines = True
        .FullRowSelect = True
        .ListItems.Clear
        .ColumnHeaders.Clear
    End With

    With Me.ListView1.ColumnHeaders
        .Add , , [Ô]Código :[Ô], 1000, lvwColumnLeft
        .Add , , [Ô]Descrição :[Ô], 6300, lvwColumnLeft
    End With

    RS.MoveFirst
    Do Until RS.EOF
        Set lstItem = Me.ListView1.ListItems.Add(, , [Ô][Ô], 1, 1)
        lstItem.Text = RS!OcorrCodigo
        lstItem.SubItems(1) = RS!OcorrDescricao

        RS.MoveNext

    Loop
    RS.Close
    DB.Close




ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    If Err = 3021 Then
        MsgBox [Ô]Não existe resultados a serem apresentados com esse critério![Ô] & _
               Chr(13) & [Ô]Tente pesquisar com menos campos selecionados![Ô], vbInformation, [Ô]Mensagem[Ô]

    ElseIf Err = 94 Then
        Resume Next
    ElseIf Err = 3420 Then
        Resume Next

    Else
        MsgBox [Ô]Um erro inesperado Ocorreu![Ô] & _
               Chr(13) & [Ô]Código do Erro : [Ô] & Err.Number & _
               Chr(13) & [Ô]Descrição : [Ô] & Err.Description & _
               Chr(13) & [Ô]Rotina : [Ô] & [Ô]FiltrarPeriodo[Ô], vbCritical, [Ô]Erro do Sistema[Ô]
        Resume ErrorHandlerExit
    End If



consideraçoes : conecto atraves de um arquivo INI, portanto modifique para ficar igual a sua necessidade.. da certinho.
ROBIU 27/05/2010 11:20:00
#342941
Citação:

Robiu... nao entendi o pq do Dao.tal
se ja está selecionada a conexao DAO nas componentes ou references =\



Se seu projeto estiver referências DAO e ADO, o projeto adota o ADO como padrão. Como os dois tem o Recordset está dando tipo incopatível. Para na ocorrer o erro, é recomendado informar completo.

Dim Db As DAO.Database
Dim DsProduto As DAO.Recordset


Neste projeto eu retirei a referênca ado. veja que ele funciona da forma que você fez (Mas não é o correto)
Dim RS As Recordset
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar