Solved

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

Posted on 2004-04-26
11
231 Views
Last Modified: 2010-04-24

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
Comment
Question by:tipt
  • 5
  • 4
11 Comments
 
LVL 27

Expert Comment

by:planocz
Comment Utility
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
 

Author Comment

by:tipt
Comment Utility
is it also suitable for MySQL ?
0
 
LVL 27

Accepted Solution

by:
planocz earned 250 total points
Comment Utility
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
 

Author Comment

by:tipt
Comment Utility
let me check it :)
0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 

Author Comment

by:tipt
Comment Utility
This way just for connection, i got it, thanks so much.
But I want to getting host info :(
0
 

Author Comment

by:tipt
Comment Utility
noone help me?
0
 
LVL 27

Expert Comment

by:planocz
Comment Utility
What kind of hosting are you wanting?
Web connection? Database connection?
0
 

Author Comment

by:tipt
Comment Utility
database connection
0
 
LVL 27

Expert Comment

by:planocz
Comment Utility
I have never needed to use Host info from server.
So what are you trying to do with this info?
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
This video discusses moving either the default database or any database to a new volume.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now