Rotina Tirar Acento


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Rotina Tirar Acento

José Neves
não registrado

ENUNCIADA !

Postada em 08/08/2006 11:04 hs

Aí o jeito que tenho.......

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsusuarioDesktop esteanco.mdb" '
rs.CursorLocation = adUseClient

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/08/2006 11:17 hs

Não entendi o q vc quis dizer...

O q falei é só pra mudar a variável do loop de RS para RSTemp

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Set RSTemp = Cnn.Execute("SELECT cidades FROM tabela WHERE cidades like '" & Combo1.Text & "%' ORDER BY cidades")

Combo1.Clear

    Do While Not RSTemp.EOF
        Combo1.AddItem RS(0)
        RSTemp.MoveNext
    Loop

RSTemp.Close

Set RSTemp = Nothing
End If
End Sub

entendeu??

José Neves
não registrado

ENUNCIADA !

Postada em 08/08/2006 11:22 hs

entao até ai entendi, e onde declara ela, e como declara?!!?!?!?

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/08/2006 11:33 hs

Não declara...

Bom, se vc quiser declarar então faz assim:

Dim RSTemp

Dim RSTemp as Variant

Dim RSTemp as new ADODB.Recordset

Só isso manu...avete capito (entendeu)? :) :P

José Neves
não registrado

ENUNCIADA !

Postada em 08/08/2006 11:38 hs

Cara vc pode nao acreditar, mas ainda da o mesmo erro!!
Kidisgrama..........eu devo ser muito burro, nao é possivel!!

abraço

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/08/2006 11:47 hs

ok... então é a Cnn q tá com pau amigo... ela sim, neste escopo, tem q ser declarada como pública...

Faz assim, coloca um módulo em seu projeto, neste módulo vc coloca assim:

Global Cnn as ADODB.Connection

Public Sub Main()

Set Cnn = new ADODB.COnnection

Cnn.CursorLocation = AdUseClient

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:|meubanco.mdb"

Form1.Show
End Sub

Onde Form1 é form q abre o seu sistema.

Vá no menu "Project|NomeDoSeuProjeto_Properties..." geralmente é a última opção do menu.

Vc vai ver o nome do seu primeiro form pra inicializar o sistema, substitua-o por Sub Main.

Agora o seu sistema inicializará pela Procedure Sub Main já inicializando a variável Cnn e abrindo o Banco de dados. Isso para todo o seu sistema!

Agora o código acima funciona pq Cnn é exergada pelo escopo do seu sistema como um todo.

blz?

Página(s): 8/9 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR