Conectar a MySQL

[DiguiVirus]

Boas.

Já pesquisei na net, voltei a pesquisar e pesquisei outra vez e não encontrei a resposta.

Alguém me pode explicar, como se conecta a uma base de dados MySQL através do Visual Basic?!

Queria um programa que fosse buscar info a uma MySQL db.

Ideas?! 😄

[AriOps]

http://www.portugal-a-programar.pt/index.php?showtopic=

Não era preciso ir muito longe 😄

[DiguiVirus]

Isso é vb.net! =/

Mas obrigado na mesma!

[Triton]

Conheces o Google (costuma dar muito jeito nestes casos)?

Normalmente basta fazer uma procura simples, por exemplo, VB6 + MySQL e encontras soluções para o que pretendes.

[DiguiVirus]

Conheces o Google (costuma dar muito jeito nestes casos)?

Normalmente basta fazer uma procura simples, por exemplo, VB6 + MySQL e encontras soluções para o que pretendes.

E se lesse o meu post?

Fiz cerca de 15 paginas de pesquisa, ja me doem os olhos... E nada...

Não me tomem por arrogante, mas o teu post foi desnecessário...

[AriOps]

experimenta pesquisar por ODBC, talvez encontres alguma coisa assim... depois é só sacar o devido programa do site do mysql... mas não te posso ajudar muito, não é o meu forte ligações a bases de dados em visual basic (sem ser .net pior ainda)

Cumps 😄

[Triton]

Desculpa a resposta, mas é que fazem perguntas que se respondem com uma simples pesquisa e já não é a primeira vez que perguntam isto aqui.

Vais ter de usar a ODBC (Open Database Connectivity), neste caso MySQL Connector/ODBC (MyODBC).

Eu encontrei resposta ao teu problema no segundo resultado da pesquisa (Visual Basic 6 code for connecting to a MySQL database using the MySQL ODBC driver).

Private Sub cmdConnectMySQL_Click()

Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset

set up a remote data connection using the
MySQL ODBC driver.
change the connect string with your username,
password, server name and the database you
wish to connect to.

cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = "uid=YourUserName;pwd=YourPassword;
    server=YourServerName;" & _
    "driver={MySQL ODBC 3.51 Driver};
    database=YourDataBase;dsn=;"
cnMySql.EstablishConnection

set up a remote data object query
specifying the SQL statement to run.

With rdoQry
    .Name = "selectUsers"
    .SQL = "select * from user"
    .RowsetSize = 1
    Set .ActiveConnection = cnMySql
    Set rdoRS = .OpenResultset(
            rdOpenKeyset, rdConcurRowVer)
End With
    
loop through the record set processing the
records and fields.

Do Until rdoRS.EOF
    With rdoRS

     your code to process the fields
     to access a field called username you would
     reference it like !username
        rdoRS.MoveNext
    End With
Loop

close record set
close connection to the database

rdoRS.Close
cnMySql.Close

End Sub

Não sei se funciona, mas não custa nada tentar. 😄