Estou tentando alterar meu projeto para uma base de dados MySQL on-line e estou tendo algumas dificuldades, pois meu conhecimento é de iniciante e não consegui encontrar solução pesquisando no fórum...
No projeto atual foi fácil porque mesmo separando em front-end e back-end as tabelas estavam vinculadas e aí o Access é intuitivo para iniciantes como eu...
Só está listando uma linha no formulário contínuo...
A tenho a conexão em um módulo:
Global Cnn As New ADODB.Connection
Global Rst As New ADODB.Recordset
Global csql As String
Public Sub Conexao_Open(csql)
Cnn.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & dbmy0000.whservidor.com & ";Database=" & minha_DataBase & ";User=" & meu_Usuario & "; Password=" & minha_Senha & ";Option=3;"
Rst.CursorLocation = adUseClient
Rst.Open csql, Cnn, adOpenDynamic, adLockOptimistic
End Sub
No Form:
Private Sub Form_Load()
Call Conexao_Open("SELECT * FROM tbl_Usuario WHERE Status<>'inativo' ORDER BY Nome;")
Do While Not Rst.EOF
Me.Nome = Rst("nome")
Me.Login = Rst("login")
Me.Grupo = Rst("grupo")
Me.Nivel = Rst("nivel")
Me.Codigo = Rst("codigo")
Me.Mail = Rst("mail")
Rst.MoveNext
Loop
Rst.Close
Cnn.Close
End Sub
No projeto atual foi fácil porque mesmo separando em front-end e back-end as tabelas estavam vinculadas e aí o Access é intuitivo para iniciantes como eu...
Só está listando uma linha no formulário contínuo...
A tenho a conexão em um módulo:
Global Cnn As New ADODB.Connection
Global Rst As New ADODB.Recordset
Global csql As String
Public Sub Conexao_Open(csql)
Cnn.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & dbmy0000.whservidor.com & ";Database=" & minha_DataBase & ";User=" & meu_Usuario & "; Password=" & minha_Senha & ";Option=3;"
Rst.CursorLocation = adUseClient
Rst.Open csql, Cnn, adOpenDynamic, adLockOptimistic
End Sub
No Form:
Private Sub Form_Load()
Call Conexao_Open("SELECT * FROM tbl_Usuario WHERE Status<>'inativo' ORDER BY Nome;")
Do While Not Rst.EOF
Me.Nome = Rst("nome")
Me.Login = Rst("login")
Me.Grupo = Rst("grupo")
Me.Nivel = Rst("nivel")
Me.Codigo = Rst("codigo")
Me.Mail = Rst("mail")
Rst.MoveNext
Loop
Rst.Close
Cnn.Close
End Sub