VB ODBC načíst do comboboxu – Visual Basic – Fórum – Programujte.com

Zdravím,

chtěl bych se zeptat zda by šlo načíst databáze do comboboxu.

Mam v ODBC uložené databáze MYSQL 5.2a

V nyní mám hotové 3 aplikace které jsou napojené na každou databázi zvlášt

pomoci :

  Dim connString As String = "Database=DATA_SKLAD1;Data Source=IP_ADRESA;" _
       & "User Id=root;Password="

        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()

        Try
            Call conecDB()
            dt = New DataTable '
            Dim con As New SqlConnection

což je nepraktické 

Stačí mě abych měl jednu aplikace ale tam bych potřeboval mít combobox ,který mě vyčte názvy z ODBC.

Pokud vyberu název databáze tak se mě připojí aplikace k dané databázi a už pracuji

Mohl bych to vyřešit v kódu že bych přes chatbox si zapnul tu danou databázi ale mám více stanic které se připojují zase k jiným databázím a univerzalní řešení pro mě je aby se ty názvy načetli do comboboxu

Napadlo mě využít ODBC.ini z registru kde se vlastně zapisují Názvy databázi a další údaje ale nevím přesně jak na to.

Nemáte nějaký typ ?

Děkuji

Není mi úplně jasné na co se ptáš. Jak číst registry? RegistryKey Class

RegistryKey key = Registry.CurrentUser.OpenSubKey(@"Software\ODBC\ODBC.INI\ODBC Data Sources");
key.GetValueNames()
key.OpenSubKey(...)
key.GetValue(...)

#1 krpik
záleží jak moc to chceš zabezpečit.

Já to měl udělané tak, že jsem měl ty údaje connect stringu v INI souboru (jmého a heslo jsem měl zašifrované malou interní funkcí), do comboboxu jsem načetl jen seznam DB a po výběru jsem si načetl z INI daný connect string

druhou cestou je vytvoření funkce, která ti vrátí seznam lokálních zdrojů ODBC

neco jako je zde:  https://communities.actian.com/s/article/Can-I-get-a-list-of-ODBC-Data-Sources-through-Visual-BasicNET6951

#4 MilanL
mě napadlo spíše to nechat vyčíst z registru ODBC tam je vlastně všechno napsáno.

napsat aby mě vlezl do registru a přidal do comboboxu

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        nacistodbc()

Private Sub nacistodbc() 

combobox1.Items.Clear()

Dim odbcnazev=Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", False).GetValueNames() 

For Each item As Object In odbcnazev 
combobox1.Items.Add(item) 

Next

Nenašel jsem o tom nějaké informace co nejlépe použít

#5 krpik
Ty názvy jsou ti k ničemu. Předpokládám, že u těch zdrojů máš ty připojovací údaje, ktere chceš načíst, jinak to celé nemá smysl. Takže načteš seznam těch zdrojů a pak projdeš jejich klíče a hodnoty. Ty tři funkce, co jsem ti napsal na to stačí.

Tak so podívej do těch registrů, jakou to má strukturu a načti si to. Já Widle s ODBC nemám, ale našel jsem tenhle příklad a nevidím problém.

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources]
"MY_DB"="SQL Server"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\MY_DB]
"Driver"="C:\\WINDOWS\\system32\\SQLSRV32.dll"
"Server"="10.1.1.1"
"Database"="MY_DB"
"LastUser"="db_account"

#5 krpik
to vyčtení z registrů jsem tam taky někde našel, jen jde o to že ti to vyhodí i obecné zdroje

 google "visual basic list ODBC sources from registry"

nejjednodušší co jsem tam našel (funkčnost nezaručuji, nezkoušel jsem)

Private Sub DsnLookup()
      'looks up ODBC DSNs from the registry, displays list in a drop drop box.
      Dim dsnNames As New List(Of String)
      Dim reg As Microsoft.Win32.RegistryKey = Registry.LocalMachine.OpenSubKey("Software")

      If reg IsNot Nothing Then
         reg = reg.OpenSubKey("ODBC")
         If reg IsNot Nothing Then
            reg = reg.OpenSubKey("ODBC.INI")
            If reg IsNot Nothing Then
               For Each dsn As String In reg.GetSubKeyNames
                  dsnNames.Add(dsn)
               Next
            End If
         End If
      End If

      'fill drop down box.
      For Each Name As String In dsnNames
         cboDsn.Items.Add(Name)
      Next Name
   End Sub

Pozor to ti ale vyhodí jen zdroje bez dalších údajů, uživatele a hesla tam nebudou.

#8 MilanL
děkuji za radu

ja jsem to pokusil se upravit

Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
        Dim dsnNames As New List(Of String)
        Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
        reg = reg.OpenSubKey("ODBC")
        reg = reg.OpenSubKey("ODBC.INI")
        reg = reg.OpenSubKey(ODBCName)
        Return reg.GetValue(ValueName)

        For Each dsn As String In reg.GetSubKeyNames
            dsnNames.Add(dsn)
        Next
        For Each Name As String In dsnNames
            ComboBox1.Items.Add(Name)
        Next Name

    End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



        Dim connString As String = String.Format("Database='{0}';Data Source='{1}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"))
        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()

To mě napadlo že pokud vyberu databázi v comboboxu tak si to šáhné do ODBC a do connString do dle příkazu doplní server a název databáze

Pak mě to ale ve výsledku píše Index je mimo rozsah,Index musí být nezáporný a musí být menší než velikost kolekce.Název Parametru: index

No ještě tam bude nějaká chyba

Jestli to máš tak, jak jsi to se pastnul, tak se ti to combo vůbec neplní.

#10 gna 

    Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
        Dim dsnNames As New List(Of String)
        Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
        reg = reg.OpenSubKey("ODBC")
        reg = reg.OpenSubKey("ODBC.INI")
        reg = reg.OpenSubKey(ODBCName)
        Return reg.GetValue(ValueName)

        For Each dsn As String In reg.GetSubKeyNames
            dsnNames.Add(dsn)
        Next
        For Each Name As String In dsnNames
            ComboBox1.Items.Add(Name)
        Next Name

    End Function

ale jo propíše se 

upravil jsem ještě connectstring u buttonu a jede to si myslím tak jak má snad

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



        Dim connString As String = String.Format("Database='{0}';Data Source='{1}';PWD='{2}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"), GetODBCValu(ComboBox1.SelectedItem, "PWD"))
        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand()

#11 krpik
hm opravdu se ta funkce jmenuje GetODBCValu , nechybí ti tam e?

GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"), GetODBCValu(ComboBox1.SelectedItem, "PWD")
 

#12 MilanL
ano chybí ale to je jen pojmenování funkce ja jsem něco tam zkoušel a zapomněl jsem ten název opravit 

#11 krpik
Tak to máš to plnění ještě někde jinde. Protože ten Return tady tu funkci ukončí a na ty další příkazy s plněním comba nedojde. A ten problém s Indexem jsem právě tipoval na čtení vybrané položky z prázdného comba.

#14 gna
Pravda 

 Private Sub nacti_nazev_odbc()

tady mam načítání názvu z ODBC a na konci mám  

ComboBox1.Items.Add(Nazev)

a potom

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
        nacti_nazev_odbc()