Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 270
  • Last Modified:

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
0
tipt
Asked:
tipt
  • 5
  • 4
1 Solution
 
planoczCommented:
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
0
 
tiptAuthor Commented:
is it also suitable for MySQL ?
0
 
planoczCommented:
Yes; that is what Iam running. you can use OdbcConnection.
for example of Sybase.....

    Public SyConnect As Odbc.OdbcConnection
   
Public Sub OpenDBSyBaseConnection()
        Try
            SyConnect = New Odbc.OdbcConnection("DSN=MySybaseName;UID=dba;PWD=MyPassword")
            SyConnect.Open()
            SyConnect.Close()
        Catch Ex As Exception
            MsgBox("Exception: " & Ex.Message & "  " & Ex.ToString, MsgBoxStyle.Critical)
            Cursor.Current = Cursors.Default
        End Try
    End Sub

' in the above procedure
 Dim Adapter = New SqlDataAdapter(sSql, SyConnect)
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
tiptAuthor Commented:
let me check it :)
0
 
tiptAuthor Commented:
This way just for connection, i got it, thanks so much.
But I want to getting host info :(
0
 
tiptAuthor Commented:
noone help me?
0
 
planoczCommented:
What kind of hosting are you wanting?
Web connection? Database connection?
0
 
tiptAuthor Commented:
database connection
0
 
planoczCommented:
I have never needed to use Host info from server.
So what are you trying to do with this info?
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 5
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now