Извлечь данные в VB.NET из базы данных MySQL MySQL

Question

У меня есть приложение VB.NET, созданное в VS 2012. Все в порядке. Мое приложение имеет несколько форм, но пользователю необходимо сначала войти в первую форму, чтобы читать любые другие.

У меня есть сервер (в Интернете), и я установил Wordpress. Теперь мне нужно сделать свое приложение для извлечения имени пользователя и пароля из базы данных wordpres (я знаю сервер, имя, имя пользователя и пароль базы данных). Если имя и пароль, написанные пользователем в текстовых окнах приложения, соответствуют одному из пользователей из базы данных Wordpress, пользователь должен уметь видеть их в других формах. Моя проблема заключается в том, что я не очень хорошо знаю соединения с базами данных. Может ли кто-нибудь мне помочь?

Это то, что я сделал, но не похоже на работу

Imports MySql.Data.MySqlClient 
Imports MySql.Data 

Public Class Update_page 
    Public dset As New System.Data.DataSet 
    Public strSQL As String 
    Public cmd As New MySqlCommand 
    As Dreader Public MySqlDataReader 
     As New MySqlConnection Public sConnection 
    Update_Load Private Sub (ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     If sConnection.State = ConnectionState.Closed Then 
      sConnection.ConnectionString = "SERVER = my_server; USERID =My_id; PASSWORD = My_password; DATABASE = u3802032254;" 
      sConnection.Open() 
      'MessageBox.Show ("Connected to server") 
     Else 
      'Catch ex As MySqlException 
      MessageBox.Show ("Not connected to server") 
      'End Try 
     End If 
     USER() 
    End Sub 

     Public Sub USER() 
      Dim da As New MySqlDataAdapter 
      Dim ds As New DataSet 
      dset.EnforceConstraints = False 
      strSQL = "SELECT user FROM wp_users" 
      cmd = New MySqlCommand() 
      cmd.CommandText = strSQL 
      cmd.CommandType = CommandType.Text 
      cmd.Connection = sConnection 
      ds = New DataSet() 
      da.SelectCommand = cmd 
      da.Fill (ds, "User") 
      Titulo_combo.DataSource = ds.Tables (0) 
      Titulo_combo.DisplayMember = "Title" 
     End Sub 

Answer 1

Вы уверены, что ваш сервер принимает внешние подключения к базе данных MySQL? Большинство бесплатных хостов базы данных не поддерживают внешний доступ. Это платный или бесплатный хостинг?