2015-04-28 3 views
1

Я хотел бы установить связь между моей программой в VB.NET и моей базой данных sql. Код выглядит так:Подключение к проблеме MySQL

Public Function connecter() 
    Dim Connexion As String = "Server=197.28.178.33;Database=test;Uid=userid;Pwd=xxxxxxxxxpassxxxx;" 
    Dim conn As MySqlConnection = New MySqlConnection 

    conn.ConnectionString = Connexion 
    conn.Open() 
    Return conn 
End Function 
Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim lecteur As MySqlDataReader 
    Dim Requete As String 
    connecter.Close() 
    connecter() 
    Requete = "select * from article" 
    Dim Commande As New MySqlCommand(Requete, connecter) 
    lecteur = Commande.ExecuteReader 
    Do While lecteur.Read 
     ComboBox1.Items.Add(lecteur.GetString("description")) 
    Loop 
    connecter.Close() 
End Sub 

но появляется эта ошибка:

необработанное исключение типа '' MySql.Data.MySqlClient.MySqlException произошло в MySql.Data.dll Дополнительная информация: Не удалось подключиться к любому из указанных хостов MySQL.

В чем причина этой ошибки?

+0

Проблемы с подключением к сети. Брандмауэр на сервере? Можете ли вы в противном случае общаться с сервером? Работает ли сервер? – Dai

+0

Вы понимаете, что каждый раз, когда вы пишете 'connecter', вы создаете и открываете новый объект соединения? Ваш код выше создает 3 разных экземпляра MySqlConnection – Steve

+0

@Steve Я не знаю, как этот код даже компилируется, VB.NET требует, чтобы скобки были использованы для всех вызовов функций, VB6 был последней версией, которая не требовала. – Dai

ответ

0

Я не понимаю, в чем проблема, и как я могу проверить, поддерживаю ли я связь с сервером? и Как я уверен, что сервер работает

Смежные вопросы