Blatzkovitz
-
Total de itens
11 -
Registro em
-
Última visita
Posts postados por Blatzkovitz
-
-
Os nomes estão corretos...
Eu verifiquei centenas de vezes
-
Puxa, eu sei fazer variáveis globais, mas funções não...
-
Olá,
Eu criei uma toolbar com com um botão chamado "Buscar" com o seguinte código:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 1 Then Busca End If
Ou seja quando o botão Buscar for clicado era para acionar a função BUSCA, só q aparece o seguinte erro:
"Compile error:
Sub or Functionnot defined
Bem, creio q o erro ocorre porque a toolbar está em um MDI Form e a função está em outro Form (q é um MDI Child).
Então a pergunta é: Como eu vinculo o botão da Toolbar do MDI Form à função q está no outro Form?
-
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
-
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! :)
-
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.
-
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
-
Ok, amigo muito obrigado!
-
Pessoal, estou precisando muito de uma ajuda:
Eu estou criando um projeto de cadastro de cliente e preciso inserir o seguinte código:
Dim strSQL As String
Dim conexao As New ADODB.Connection
Dim rst As New ADODB.Recordset
Porém elas precisam estar como variáveis globais e eu não lembro com faz, porque já faz um bom tempo q não mexo com VB.
Dêem uma olhada nesse print para ficar mais claro:
http://img703.imageshack.us/f/globalo.jpg/
HEEEEELP!
-
Olá,
Eu estou fazendo um projeto q se baseia praticamente em uma SSTab, e é 1° vez q uso esse componete.
Eu criei uns campos de cadastro dentro de uma SSTab mas quando eu clico no botão cadastrar aparece a mensagem "Argument Not Optional" e as vezes "Object not found". Ou seja, parece q o programa não está vinculando a Text Box com o código de cadastro.
O erro seria no banco de dados? Ou tem alguma forma diferente de referenciar um TextBox a uma SSTab?
Eu já fiz um projeto muito parecido q não usava SStab e correu tudo bem.
PS: Se o post ficou meio confuso por favor vejam esses prints para um maior esclarecimento.
http://img4.imageshack.us/f/errointerface.jpg/
http://img517.imageshack.us/f/errocodigo.jpg/
Obrigado
Ajuda com banco de dados VB6
em Visual Basic
Postado
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.