Hallo,
vorab bin was Programmierung in VBA angeht Anfänger, steinigt mich bitte nicht :-)
Habe folgendes Programm geschrieben. In Form1 habe ich eine Combobox die ich per BindingSource mit einer Access Datenbank verbunden habe.
Die Datenbank besteht aus Firma als Primärschlüssen darauf folgt IP-Adresse, Subnetzmaske, Gateway und DNS.
In Form 2 befindet sich ein DataGridview mit bearbeitungsmöglichkeit der Datenbank.
Nun habe ich es soweit hinbekommen das wenn ich in Form zwei einen Eintrag in die Datenbank schreibe und zurück in Form 1 gehe, ich dann in der Combobox die Einträge drin habe (also den Primärschlüssel "Firma").
Nun zu meinem Problem. Ich möchte das wenn ich in der Combobox dann irgendeine Firma auswähle mir in der Textbox (auch Form1) die dazugehörige IP-Adresse ausgegeben wird. Bekomme es nicht gebacken, hab schon halb google durchsucht und probiert, wie gesagt mein wissen ist sehr schlecht. Habe mal C++ programmiert ist aber auch schon lage her....
Hier mal der Code zur Combobox
Public myConnToAccess As OleDbConnection
Dim mySQLCommand As OleDbCommand
Dim mySQLStrg As String
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim tables As DataTableCollection
Dim reader As OleDbDataReader
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
myConnToAccess = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Kunden.accdb")
myConnToAccess.Open()
ds = New DataSet
tables = ds.Tables
da = New OleDbDataAdapter("SELECT Firma from Netzwerkeinstellungen", myConnToAccess)
da.Fill(ds, "Netzwerkeinstellungen")
Dim view1 As New DataView(tables(0))
With ComboBox1
.DataSource = KundenDataSet.Tables("Netzwerkeinstellungen")
.DisplayMember = "Firma"
.ValueMember = "Firma"
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
Hoffe ihr könnt mir helfen :-)
|