Ajuda com banco de dados VB6

[Blatzkovitz]

Olá pessoal,

Eu estou fazendo um projeto de faculdade q tá me deixando maluco.

EU estou fazendo um programa de cadastro q utiliza a conexão ADO e um formulário em Access, só q ele não tá rodando de jeito nenhum. Eu acho q o problema não está no código, porque eu já o utilizei em um outro projeto e funcionou direitinho, mas agora quando eu clico no botão "Cadastrar" aparece a mensagem:

"Os argumentos são incorretos, estão fora do intervalo aceitável, ou estão em conflito"

Eu desconfio q seja problema no Access, mas já mexi em um monte de coisa e nada, alguém aí já teve um problema parecido?

Segue aí uns prints para vocês verem:

http://img221.imageshack.us/img221/1385/errobd.jpg

http://img574.imageshack.us/img574/8783/errocodigo.jpg

Se precisarem eu posto o código para vocês darem uma olhada.

Obrigado

[Blatzkovitz]

Ok, consegui corrigir o erro é q eu esqueeci de abrir a conexão com o banco de dados usando o método Open para abrir o Recordset :P

só q surgiu outro problema...

Agora quando eu coloco o programa para rodar aparece:

Run-time error '424'

Object required

daí aponta para essa linha de código:

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strcaminho & ";"

Esse é o código q eu estou usando para a função Open:

Dim strcaminho As String
  strcaminho = App.Path & "\prontuario.mdb"
  conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strcaminho & ";"

E o pior é q estou precisando terminar urgentemente esse programa.

Editado Novembro 29, 2010 por kuroi
Adicionar tag CODE

[raphael_suporte]

você declarou a variável de conexão?

[Blatzkovitz]

Putz, cara eu tinha declarado ela sim, e ela é uma variável global só q eu tinha declarado de forma errada.

De qualquer forma sua resposta me ajudou porque eu tava achando q era outra coisa e me esqueci desse detalhe.

Valeu! :)

[Blatzkovitz]

Putz surgiu mais um problema com esse maldito banco de dados...

Agora quando eu clico em "Busca" aparece o erro:

"O mecanismo de banco de dados Microsoft Jet não encontro a tabela de entrada ou de consulta pontuário (tabela q eu estou usando). Certifique-se que ela existe e de que o seu nome está digitado corretamente"

Depois aponta para esse linha:

rst.Open strSQL, conexao, adOpenStatic

E o pior é q o nome da tabela tá correto, tanto q a parte de cadastro tá funcionando perfeitamente.

Esse é o código eu estou usando para a busca:

busca = InputBox("Insira o Prontuário a ser consultado", "Busca")
 strSQL = "SELECT * FROM prontuario WHERE Pront='" & busca & "'"
 rst.Open strSQL, conexao, adOpenStatic

Esse programa já tá me deixando maluco

Editado Novembro 29, 2010 por kuroi
Adicionar tag CODE

[kuroi]

sera q no banco na esta prontuário com acento, ou coisa assim??

[Blatzkovitz]

Os nomes estão corretos...

Eu verifiquei centenas de vezes

[kuroi]

muito estranho. talvez você tenha mais de uma copia do banco no seu pc. ai talvez você esteja olhando uma copia diferente daquela a q a connection string está apontando.

se não for esse o caso, então, pra testar e ver quais tabelas ele ta conseguindo visualizar, faca o seguinte: adicione no seu projeto a referencia Microsoft ActiveX Data Objects Extensions for DDL and Security 2.x (x é o numero da sub-versao q aparecer pra vc, escolha a mais recente).

então, só pra testar, insira um ListBox e um Command Button qualquer no seu formulario e, no clique desse botao, use esse codigo (com a conexao já aberta):

Private Sub Command1_Click()

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

Set cat.ActiveConnection = conexao

For Each tbl In cat.Tables
   List1.AddItem tbl.Name & vbTab & tbl.Type
Next

End Sub[/code]
(adaptado do site do macoratti: http://www.macoratti.net/adox.htm)
no list box devem aparecer os nomes de todas as tabelas q a sua conexao está conseguindo encontrar.

[Blatzkovitz]

Bem, na verdade havia um erro sim...

Na busca eu tinha colocado o nome do arquivo mdb, quando na verdade era para ter posto o nome da tabela...

:blush:

obrigado a todos pela boa vontade.