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