Jump to content
Fórum Script Brasil
  • 0

Ajuda com banco de dados VB6


Question

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

Link to post
Share on other sites

8 answers to this question

Recommended Posts

  • 0

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.

Edited by kuroi
Adicionar tag CODE
Link to post
Share on other sites
  • 0

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

Edited by kuroi
Adicionar tag CODE
Link to post
Share on other sites
  • 0

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.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149296
    • Total Posts
      645693
×
×
  • Create New...