Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

vaurdan

VB6 - Prob Agenda

Mensagens Recomendadas

vaurdan    0
vaurdan

Oi tou com um prob neste code:

Option Explicit

Global DBenc As Database

Global etiqueta As String

Global tblpes As Recordset

Global tblami As Recordset

Sub abrirBD()

Set DBenc = OpenDatabase("c:\projectos\tutoriais\amigos.mdb")

Set tblpes = DBenc.OpenRecordset("pessoal")

Set tblami = DBenc.OpenRecordset("amigos")

End Sub

Sub fecharBD()

tblpes.Close

tblami.Close

DBenc.Close

End Sub

os a bold é o ke dá probs

aparece: ' Compile Error: User-Defined type not defined'

Tou a fazer uma agenda i isto é um Module.

Obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Porque não usas o ADODC ?? É só adicionares o componente Microsoft ADO Data Control e depois fazes:

Private Sub DB()

Dim strPath As String
strPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CAMINHO_DA_BASE_DE_DADOS;Persist Security Info=False"
Adodc1.ConnectionString = strPath

End Sub

Private Sub Command1_Click()
Adodc1.RecordSource = "Select count(*) from login"
Adodc1.Refresh

Se quiseres optar por este método e tiveres alguma duvida avisa que tento esclarecer-te ...tens outras maneiras mas esta parece-me ser a mais simples

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
deathseeker25    6
deathseeker25

Boas,

Só um pequeno reparo vaurdan. No título do tópico tenta ser mais explícito sobre o que é a dúvida. Assim quando outros utilizadores pesquisarem por uma determinada palavra chave, o teu tópico aparece em primeiro se contiver essa palavra no título...

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade