POSICIONAMENTE E AMOSTRAGEM DE REGISTRO EM MY SQL

USUARIO.EXCLUIDOS 29/11/2006 17:32:40
#187021

Sinkertec,

Como vc conecta no banco??
Como está carregando seu datagrid??
Vc tentou com o .Filter no seu recordset??

ALEXANDREMORAIS 29/11/2006 17:35:20
#187023

[c]
'Este código que eu te mandei e para vc utilizar com o MYSQL mesmo para isso bastando so vc mudar a string de conexão:
'Para funcionar vc precisa ter o MYODBC 3.51 instalado
Dim rst As New ADODB.Recordset
Dim Servidor As String, Banco As String, senha As String, user As String
'Abre a conexão
Servidor = "localhost" 'para um máquina local pode ser o ip ou o nome
Banco = "Seu Banco de Dados"
user = "Root"
senha = ""

cnn.Open = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & Servidor & ";" _
& "DATABASE=" & Banco & ";" _
& "UID=" & user & ";PWD=" & senha & "; OPTION=35"

'Abre o Recordset
rst.CursorLocation = adUseServer
Dim mSQL As String

mSQL = "SELECT * From Funcionários"
rst.Open mSQL, cnn, adOpenKeyset, adLockReadOnly, adCmdTableDirect

rst.Index = "CódigoDoFuncionário"
rst.MoveFirst
rst.Seek Array(Text1.Text)

If rst.EOF Then
MsgBox "Funcionário não localizado"
Else
MsgBox "Funcionário encontrado!"
End If

'Fechamos a conexão e o recordset
rst.Close
cnn.Close
Set Rs = Nothing
Set cnn = Nothing
[c]