asked on

How to get MySQL host info by using VB.NET ?

I connect to MySQL, using MyODBC, it seem to be good.

How can I get MySQL host info by using VB.NET ?
I want to fill MySQL host info into a combobox in which user can choose their suitable MySQL host for connection (when my form MySQLLogin is loaded).

Addition: and how to get database name ?

Thanks so much

Howard Cantrell

Hi tipt,

Iam not sure on getting to the host info, but here is some code that you might be able to use in working with the table names.

Imports System.Data.SqlClient

'**** Server Connection Vars *********
Public sDBServer As String
Public sUSERid As String
Public sDBName As String
Public sDBPass As String
Public Connect As SqlConnection

'********* database Var's ************
Public sSql As String
Public sTableName As String
Public sTables() As String 'For Table Listing
Public bFirstTime As Boolean
Public iCounter As Short

Public Sub OpenDBSqlConnection()
If Len(sDBPass) = 0 Then
sDBPass = ""
End If
Try
Connect = New SqlConnection("Initial Catalog=" & sDBName & ";Data Source=" & sDBServer & ";User ID=" & sUSERid & ";password=" & sDBPass & ";")
Connect.Open()
Connect.Close()
Catch Ex As Exception
MsgBox("Exception: " & Ex.Message & " " & Ex.ToString, MsgBoxStyle.Critical)
Cursor.Current = Cursors.Default
End Try
End Sub

Public Sub TableNames()
Dim i As Integer
Dim DS As New DataSet
sSql = ""
sSql = "SELECT table_name FROM Information_Schema.Tables"
Try
Dim Adapter = New SqlDataAdapter(sSql, Connect)
Dim sNames As String

Adapter.Fill(DS)
ReDim sTables(DS.Tables(0).Rows.Count - 1)
bFirstTime = True
iCounter = 0

For i = 0 To DS.Tables(0).Rows.Count - 1
sNames = (DS.Tables(0).Rows(i)).Item(0)
Select Case Left(sNames, 3)
Case "sys"
Case UCase(Left(sNames, 3))
Case "tbl"
If bFirstTime = True Then
iFirstTime = i
bFirstTime = False
End If
sTables(i) = sNames
iCounter = i
End Select
Next
Catch Exp As Exception
MsgBox(Exp.Message & " in TableNames Procedure", MsgBoxStyle.Critical, "General Error")
End Try
End Sub

tipt

ASKER

is it also suitable for MySQL ?

ASKER CERTIFIED SOLUTION

Howard Cantrell

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

tipt

ASKER

let me check it :)