VB banco de dados

[ShIrYuDuCs 0]

Aews, galera tou com problema nas variaveis DATABASE e RECORDSET, simplesmente da problema na hora de executar o projeto, esta tudo certo, acho que deve ser algum plug q nao instalei, vcs sabem oq pode ser ?

 

flws http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[luiz humberto 0]

Qual erro?

[ShIrYuDuCs 0]

Bom, vou postar aqui o código só para entenderem, mas acredito nao ser erro de código, deve ser alguma coisa no VB q esta desabilitada, ai vai:As devidas variaveis:

Dim db As DatabaseDim rdclientes As Recordset

E aqui num form load, para qdo abrir associar o banco de dados com o projeto, para exibir um cadastro de clientes, iniciando desde o primeiro:

Private Sub Form_Load()Set db = OpenDatabase("C:\sistema\banco.mdb", False, False)Set rdclientes = db.OpenRecordset("tab_clientes", dbOpenDynaset)If rdclientes.RecordCount = 0 Then    MsgBox ("Não contém registros!")Else    rdclientes.MoveFirst    Call mostraEnd IfCall desabilitaEnd Sub

Acontece que ele não executa, da sempre erro no database e o recordset, não importa aonde esteja, aonde tiver isso esta acontecendo.Espero que possam me ajudar XDflws B)

[thim2005 0]

Ah!!!! vou verificar e te mando a resposta, depois...

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[luiz humberto 0]

Set db = OpenDatabase("C:\sistema\banco.mdb", False, False)Set rdclientes = db.OpenRecordset("tab_clientes", dbOpenDynaset)

Troque por isso:

Set db = DAO.Workspaces(0).OpenDatabase(C:\sistema\banco.mdb, False, False)Set rdclientes = db.OpenRecordset("tab_clientes", dbOpenTable)

Qualquer coisa poste novamente.

[ShIrYuDuCs 0]

Aews, kra não resolveu, mas vlw ae, tou continuar tentando aqui, se você puder tirar duas screens pra mim ira me ajudar pakz, pode tirar screen da tela components e references ? se puder posta ai pliZ =)

 

Quando boto para executar da a seguinte mensagem:

 

Compile Error: User-defined type not defined

 

Caso saiba o que é isso me avise XD

 

vlw kra

 

flws http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[luiz humberto 0]

É necessário que você faça referência a Microsoft DAO 3.51 library no menu menu Project|References.

[ShIrYuDuCs 0]

Opa vlw mano, agora deu certo ;) vlws

 

flws! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[luiz humberto 0]

Ok.Tópico Fechado