Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 31/03/2011 11:12 hs
vc mudaria a forma como faz a pesquisa, ou seja
vc diz que é ADO, poste como vc está fazendo a conexão.
|
|
|
|
|
|
|
|
Postada em 31/03/2011 11:27 hs
Olá Marcelo, abaixo está a conexão.
Inserir em um modulo.
Public vari As Boolean
Global conexao As New ADODB.Connection
-----------------------------------------------------------------------------
Public Function Conecta(ByVal Valor As Boolean)
If conexao.State = 1 Then
conexao.Close
Set conexao = Nothing
Valor = True
End If
If Valor = True Then
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Criminalidade.mdb;Jet OLEDB:Database Password=info;"
Else
conexao.Close
Set conexao = Nothing
End If
End Function
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 31/03/2011 15:08 hs
Assim Conecta True Dim RS As Recordset Dim sSQL As String sSQL = "Select * From tabela WHERE nome Like'%" & localiza & "%'" Set RS = conexao.Execute(sSQL) Do While Not RS.EOF List1.AddItem RS!nome RS.MoveNex_t Loop Conecta False |
|
|
|
|
|
Postada em 31/03/2011 16:08 hs
Treze, mas como fazer para ir aparecendo no formulario, conforme localizar do word??? tem como vc me explicar com detalhes? da forma que vc me ensinou a criar tabelas, lembra??
Henrique
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 31/03/2011 17:27 hs
so me explique esse negocio de localizar do word, que não entendi.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 31/03/2011 17:27 hs
so me explique esse negocio de localizar do word, que não entendi.
|
|
|
|
