Excel VBA - connection string do DB s promennou Vyřešeno
Napsal: 13 bře 2015 12:34
Zdravim,
muj problem je nasledujici:
Mam ListBox1 a v nem rekneme 100 hostname's PC stanic (tedy listbox s jednim sloupcem).
Napr:
PC1-JARMIL
PC2-PEPAN
PC3-FALAFEL
... atd.
Dale mam kod na pripojeni do DB a vykonani Selectu v ni.
Potrebuji ale udelat to, aby si connection string vzal prvni hostname z ListBox1 , vykonal Select a zapsal vysledek do ListBox2, odpojil se, vzal si dalsi hostname, pripojil se, vykonal select a zapis do Listbox2 odpojil se atd atd ... u vsech 100 PC. Select zustava stejny, kazdy novy zaznam by se pripisoval pod zaznamy existujici v ListBox2.
Jak nastavit, aby cast v conn stringu oznacena hvezdickami (Source=*******/XE), fungovala jako promenna brana z ListBox1? Tot ten problem.
Muzete mi s tim pomoct?
Pripadne zda neni lepsi cesta nez si pro hostnames stanic sahat do ListBoxu.
ListBox s hostnames se mi take plni z DB...
Predem diky
muj problem je nasledujici:
Mam ListBox1 a v nem rekneme 100 hostname's PC stanic (tedy listbox s jednim sloupcem).
Napr:
PC1-JARMIL
PC2-PEPAN
PC3-FALAFEL
... atd.
Dale mam kod na pripojeni do DB a vykonani Selectu v ni.
Kód: Vybrat vše
Private Sub CommandButton_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=msdaora;Data Source=********/xe;User Id=********;Password=********;"
rst.Open "select DATA from *********** ", cnn, adOpenDynamic
If rst.EOF Then
' nic
Else
rst.MoveFirst
With Me.ListBox2
Do
.AddItem rst!DATA
rst.MoveNext
Loop Until rst.EOF
End With
End If
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
Potrebuji ale udelat to, aby si connection string vzal prvni hostname z ListBox1 , vykonal Select a zapsal vysledek do ListBox2, odpojil se, vzal si dalsi hostname, pripojil se, vykonal select a zapis do Listbox2 odpojil se atd atd ... u vsech 100 PC. Select zustava stejny, kazdy novy zaznam by se pripisoval pod zaznamy existujici v ListBox2.
Jak nastavit, aby cast v conn stringu oznacena hvezdickami (Source=*******/XE), fungovala jako promenna brana z ListBox1? Tot ten problem.
Muzete mi s tim pomoct?
Pripadne zda neni lepsi cesta nez si pro hostnames stanic sahat do ListBoxu.
ListBox s hostnames se mi take plni z DB...
Predem diky