---
title: "MySQL, testa connection?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/141509-mysql-testa-connection"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "znyder"
published: "2006-01-25T21:06:01.000Z"
updated: "2006-01-27T13:09:09.000Z"
replies: 1
views: 283
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/141509-mysql-testa-connection"
---

# MySQL, testa connection?

## #1 — znyder, 2006-01-25T21:06Z

Hej, jag försöker hitta nått som kan testa om en connection funkar...

använder denna kod för att öppna en connection till en MySQL databas:

```
Private Sub Command1_Click()
Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset

If server.Text = Empty Then
fel.Text = "Du måste ha en server."
ElseIf username.Text = Empty Then
fel.Text = "Du måste ha ett användarnamn."
ElseIf password.Text = Empty Then
fel.Text = "Du måste ha ett lösenord."
ElseIf databas.Text = Empty Then
fel.Text = "Du måste ha en databas."
Else

End If

cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = "uid=" & username.Text & ";pwd=" & password.Text & ";server=" & server.Text & ";" & _
    "driver={MySQL ODBC 3.51 Driver};database=" & databas.Text & ";dsn='';"

cnMySql.EstablishConnection

With rdoQry
    .Name = "selectUsers"
    .SQL = "select * from auktioner"
    .RowsetSize = 1
    Set .ActiveConnection = cnMySql
    Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
    
txtMySQL.Text = ""

Do Until rdoRS.EOF
    With rdoRS
        txtMySQL.Text = txtMySQL.Text & !auktionsnamn & " - " & !slutar & vbCrLf
            
        rdoRS.MoveNext
    End With
Loop
    
rdoRS.Close
cnMySql.Close
End Sub
```

Jag vill testa om den lyckas få kontakt med databasen, annars så ska en popup komma upp och säga att det inte funkar och avbryter anslutningen...

Funkar det? :D

Tack på förhand

Permalänk: https://www.webforum.nu/p/141509

## #2 — Travoni, 2006-01-27T13:09Z

Har du installerat myodbc på windowsburken?
Det måste du göra.

Permalänk: https://www.webforum.nu/p/1754768

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/141509-mysql-testa-connection