CONEXAO.EXECUTE

RICKSOUSA 28/05/2012 19:31:40
#403019
boa noite

alguem pode tirar essa duvida, quando eu vou colocar [txt-color=#e80000]conexao.execute[/txt-color] assim que eu chego no [txt-color=#0000f0]conexao.[/txt-color] só da duas opção pra mim [txt-color=#007100]conecta e conexao[/txt-color], mais as outras opções não mostra só essas duas.

pq sera???

no modulo esta assim:


[txt-color=#e80000]Global Conexao As New ADODB.Connection [ô]declara o tipo de conexão

Public Function Conecta(valor As Boolean) [ô]função da conexão se é verdadeira ou falsa, caso seja true = conexao aberta, e false = fechada
If valor = True Then
If Conexao.State = 1 Then Conexao.Close
Conexao.CursorLocation = adUseClient
sConnString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Banco.mdb;Persist Security Info=False[Ô]
Conexao.Open sConnString [ô]abre conexao
Else
Conexao.Close [ô] fecha conexao
End If
End Function[/txt-color]

e eu escolhi a referencia Microsoft activex data object 2.7 library

alguem pode me dar uma luz???
ROBIU 28/05/2012 20:00:35
#403020
Resposta escolhida
é que as propriedades estão na Variável Conexão.

Conexao.execute ...

Como você citou, deve ter colocado o nome do módulo = nome da variável. é bom colocar outro nome para não confundir (Cn por exemplo).
No seu caso, fica assim:

Conexao.Conexao.Execute


RICKSOUSA 28/05/2012 20:06:45
#403021
olha como aparece o meu, segue na imagem,
observe que só tem essas duas opções...
ROBIU 28/05/2012 20:08:29
#403022
Citação:

Como você citou, deve ter colocado o nome do módulo = nome da variável. é bom colocar outro nome para não confundir (Cn por exemplo).
No seu caso, fica assim:

Conexao.Conexao.Execute

RICKSOUSA 28/05/2012 20:16:14
#403025
agora sim fiz como vc falou amigo, e deu certo.

eu coloquei Conexao.Conexao.Execute e deu certo, mais porém aparece outro erro e eu acho que estou indicando certo o caminho veja como segue o codigo:

[txt-color=#e80000] Conecta True

Dim letras
Dim sSQL As String
Dim RS As Recordset
sSQL = [Ô]select * from Plan1 where EAN13 like [ô][Ô] & CodBarras.Text & [Ô][ô][Ô]
letras = Len(Me.CodBarras.Text)
Set RS = Conexao.Conexao.Execute(sSQL)
[ô]interno, lista, produtos
interno.Text = RS([Ô]CODIGO[Ô])
lista.Text = RS([Ô]VENDA[Ô])
Produtos.Text = RS([Ô]DESCRICAO[Ô])

Conecta False[/txt-color]

e o erro que aparece é esse:
segue na imagem acima...
ROBIU 28/05/2012 20:21:28
#403026
A mensagem é clara: não há Tabela de nome Plan1 no Banco.mdb. Verifique o nome da tabela.
RICKSOUSA 28/05/2012 20:40:37
#403027
amigão, muito obrigado.

o modulo estava mesmo com o nome de conexao, e o banco tava com o nome diferente, bd1 e eu coloquei banco, por isso não achava a tabela Plan1.

valeu mesmo forte abraço!

ainda chego la!
Tópico encerrado , respostas não são mais permitidas