|
|
Postada em 18/02/2009 23:05 hs
ola, to com uma duvida, pra localizar dados demora, sera que é o tipo de caminho EX: Caminho = ReadINI("Caminho", "BD", App.Path & "Config.ini")
On Error GoTo Finalizar
CnSql.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ";Jet OLEDB:database Password=MasterDB" Obrigado |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/02/2009 23:24 hs
naò tem nada a ver com o tipo de caminho, mas sim como você está fazendo a busca mostra sua query de pesquisa |
|
|
|
|
|
Postada em 19/02/2009 12:57 hs
estou ususando assim.. SQL = "SELECT CodCliente, Telefone, Nome FROM CadCliente WHERE CadCliente.Nome Like " & Criterio & " ORDER BY Nome"
|
|
|
|
|
|
Postada em 19/02/2009 13:00 hs
Funciona normal so que o tempo de resposta e lento.. Obs.: Maquina. Muito Boa... t+ Nilton |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/02/2009 19:27 hs
Bom Não estou vendo problema com sua conexão nem com sua query, tem como você postar o código completo de pesquisa, ou seja todo código dentro do botão de pesquisa. |
|
|
|
|
|
Postada em 19/02/2009 20:27 hs
Ok. Criterio = Chr$(39) & txtDadosPesquisa1 & "%" & Chr(39)
SQL = "SELECT PacienteID, Nome, CodigoPaciente FROM CadPaciente WHERE CadPaciente.Nome Like " & Criterio & " ORDER BY Nome" On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly If .EOF Then
MsgBox "Registro não encontrado", vbExclamation, " Sisnews Informções"
Limpa
grdPesquisa.TextMatrix(1, 0) = ""
grdPesquisa.TextMatrix(1, 1) = ""
grdPesquisa.TextMatrix(1, 2) = ""
Else
Limpa
Do Until .EOF
grdPesquisa.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2)
.MoveNext
Loop
grdPesquisa.RemoveItem 1
End If
.Close |
|
|
|
