ERRO NA PROCURA
Galera, bom dia.
Mais uma vez necessito da ajude de voces. Na minha rotina de procura faz certinho, mostra o associado que desejo mas para por ai, ou seja, parece que o banco de dados trava no código digitado e não faz mais nada. A rotinha que fiz para é esta:
Public Sub Proc_Assoc()
Txt_CodAss.Text = FormataZerosEsq(Txt_CodAss.Text, 6) & [Ô]-00A[Ô]
xCondicao = [Ô]CODMAT_ASS Like [ô]%[Ô] & Txt_CodAss.Text & [Ô]%[ô][Ô]
xSQL = [Ô]Select * FROM AQ_ASS01[Ô]
xSQL = xSQL & [Ô] Where [Ô] & xCondicao & [Ô][Ô]
Set MdAsso01 = Conexao01.Execute(xSQL)
If Not MdAsso01.EOF Then
Preenche_Campos
Else
ret = MessageBox(0, [Ô]Associado não encontrado[Ô], [Ô]Atenção...[Ô], MB_OKCANCEL2)
Frm_Sec001.StatusBar1.Panels(5) = [Ô]...Aguarde!!![Ô]
Frm_Sec001.StatusBar1.Panels(5) = [Ô] [Ô]
MdAsso01.MovePrevious
Preenche_Campos
Exit Sub
End If
End Sub
Após a verificação do código digitado, como já digitei, parece que trava o banco de dados e não tenho acesso ao próxima código.
O que estou fazendo de errado??
Obrigado.
Mais uma vez necessito da ajude de voces. Na minha rotina de procura faz certinho, mostra o associado que desejo mas para por ai, ou seja, parece que o banco de dados trava no código digitado e não faz mais nada. A rotinha que fiz para é esta:
Public Sub Proc_Assoc()
Txt_CodAss.Text = FormataZerosEsq(Txt_CodAss.Text, 6) & [Ô]-00A[Ô]
xCondicao = [Ô]CODMAT_ASS Like [ô]%[Ô] & Txt_CodAss.Text & [Ô]%[ô][Ô]
xSQL = [Ô]Select * FROM AQ_ASS01[Ô]
xSQL = xSQL & [Ô] Where [Ô] & xCondicao & [Ô][Ô]
Set MdAsso01 = Conexao01.Execute(xSQL)
If Not MdAsso01.EOF Then
Preenche_Campos
Else
ret = MessageBox(0, [Ô]Associado não encontrado[Ô], [Ô]Atenção...[Ô], MB_OKCANCEL2)
Frm_Sec001.StatusBar1.Panels(5) = [Ô]...Aguarde!!![Ô]
Frm_Sec001.StatusBar1.Panels(5) = [Ô] [Ô]
MdAsso01.MovePrevious
Preenche_Campos
Exit Sub
End If
End Sub
Após a verificação do código digitado, como já digitei, parece que trava o banco de dados e não tenho acesso ao próxima código.
O que estou fazendo de errado??
Obrigado.
Estou utilizando os bancos de Dados do MySql Server 6 e minha rotina de abertura dos bancos de dados é esta:
[ô]
[ô]Abrindo Arquivo dos Associados - Ativos
[ô]
Public Sub Abre_Ass01()
Set Conexao01 = New ADODB.Connection
Conexao01.ConnectionTimeout = 60
Conexao01.CommandTimeout = 400
Conexao01.CursorLocation = adUseClient
Conexao01.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user=[Ô] & USUARI _
& [Ô];password=[Ô] & SENHOS _
& [Ô];database=[Ô] & ARQBAS _
& [Ô];server=[Ô] & HOSTMA _
& [Ô];option=[Ô] & 3
MdAsso01.CursorLocation = adUseClient
MdAsso01.Open [Ô]SELECT * FROM AQ_ASS01[Ô], Conexao01, adOpenDynamic, adLockOptimistic
End Sub
Obrigado
[ô]
[ô]Abrindo Arquivo dos Associados - Ativos
[ô]
Public Sub Abre_Ass01()
Set Conexao01 = New ADODB.Connection
Conexao01.ConnectionTimeout = 60
Conexao01.CommandTimeout = 400
Conexao01.CursorLocation = adUseClient
Conexao01.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user=[Ô] & USUARI _
& [Ô];password=[Ô] & SENHOS _
& [Ô];database=[Ô] & ARQBAS _
& [Ô];server=[Ô] & HOSTMA _
& [Ô];option=[Ô] & 3
MdAsso01.CursorLocation = adUseClient
MdAsso01.Open [Ô]SELECT * FROM AQ_ASS01[Ô], Conexao01, adOpenDynamic, adLockOptimistic
End Sub
Obrigado
Tópico encerrado , respostas não são mais permitidas