• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vaurdan

VB6 - Prob Agenda

14 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu tou a seguir um tutorial dum site... por isso é k nao sabia essa maneira XD

eu falo contigo por pms

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É melhor falares aqui, assim outro utilizador com a mesma duvida ja fica esclarecido.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Yah... :D lol eu agr ando bueh ocupado senao ja tinha marrado ene nisso :P lol Cumps...

PS: Vaurdan continua assim :thumbsup:

0

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