Guten Morgen,
ich hätte 2 Fragen die ich leider nicht ganz verstehe.
Erste Frage, ist sicher gan banal aber Ich verstehe das nicht.
1. Frage
2. Frage
Ich habe mehrer ACCESS DB in einen Ordner
Ich möcht zwei DB ansprechen in einer Connection.
Ich habe bis jetzt kein Beispiel gefunden, oder ein Beispile wo das geht.
ich hätte 2 Fragen die ich leider nicht ganz verstehe.
Erste Frage, ist sicher gan banal aber Ich verstehe das nicht.
1. Frage
VB.NET-Quellcode
- 'Hier prüfe ich ob der Typ 1 oder 2 oder 0 ist
- 'Ich möchte das wenn der TYP 2 ist sich die Schriftfarbe in mehren Label Texten ändert
- 'lbl_wg01_bez.ForeColor = Color.Red das Funktioniert ja
- 'Ich will aber lbl_wg01_bez.ForeColor = Color.'hier eine Variable schreiben' die ich einer Farbe zuweisen kann.
- Select Case True
- Case Typ = "1"
- TYP_TEXT = "L"
- FARBE = "GREEN"
- Case Typ = "2"
- TYP_TEXT = "K"
- ' Hier sage ich bei wenn du TYP 2 bist dann Rot
- FARBE = "RED"
- Case Typ = "0"
- TYP_TEXT = "S"
- FARBE = "BLACK"
- End Select
- Select Case True
- Case NUMMER = "1"
- lbl_wg01_bez.ForeColor = Color.Red
- lbl_wg01_bez.Text = TYP_TEXT & "-" & NAME
- Case NUMMER = "1"
- lbl_wg01_bez.ForeColor = Color.FARBE 'hier will ich das er die Farbe zurordnet
- ' Ausfgabe des Text
- lbl_wg01_bez.Text = TYP_TEXT & "-" & NAME & "-" & MWST_TEXT
- End Select
2. Frage
Ich habe mehrer ACCESS DB in einen Ordner
Ich möcht zwei DB ansprechen in einer Connection.
Ich habe bis jetzt kein Beispiel gefunden, oder ein Beispile wo das geht.
VB.NET-Quellcode
- con.ConnectionString =
- "Provider=Microsoft.ACE.OLEDB.12.0;" &
- "Data Source=" & DB_MDB & "tsvpreise.mdb"
- cmd.Connection = con
- cmd.CommandText = "SELECT * from tabpreisuntergrenze"
- con.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read()
- '356
- sorte = CInt(reader("sorte"))
- preis = CSng(reader("preis"))
- Select Case True
- Case (sorte = 3)
- txt_tsvpreise_3.Text = CStr(preis)
- Case (sorte = 5)
- txt_tsvpreise_5.Text = CStr(preis)
- Case (sorte = 6)
- txt_tsvpreise_6.Text = CStr(preis)
- End Select
- Loop
- reader.Close()
- con.Close()