Visual Basic Forum

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

xlsm") = False Then ' Datei "Übungsleiter.xlsm" öffnen Workbooks.Open sPath End If End If Workbooks("BGS-Fahrtkosten.xlsm").Activate Worksheets("Fahrten").Select ende_tabelle_db = Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Row + 1 ende_tabelle_meisterschaften = Worksheets("Meisterschaften&quo ...

Verfasst am: 20.02.2012, 11:58 Aufrufe: 157

das sind mehrdimensionale arrays darin habe ich noch kaum erfahrung aber sonst wenns select case sein muss select case combobox1 case "Deutschland": combobox2.clear combobox2.Add "Berlin .... Case "whatever": end select glaub mir das wird mühsam

Verfasst am: 07.02.2012, 22:33 Aufrufe: 458

Die DataCombo ist mit einem weiteren ADO Steuerelement (Adodc2) gebunden. Adodc2 greift auf dieselbe Tabelle zu: Adodc2.RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort" War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden: Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, By ...

Verfasst am: 02.11.2011, 14:40 Aufrufe: 484

ich schaffe es allerdings nicht mal eine der arbeitsmappen zu aktivieren. habs so versucht: Workbooks("Einlesen").Sheets("Tabelle1").Activate ActiveSheet.Cells(1, 1).Select Selection.Copy Workbooks("Speicherplatzbelegung").Sheets("Speicherplatzbelegung").Activate ActiveSheet.Cells(3, 3).Select Selec ...

Verfasst am: 27.10.2011, 07:32 Aufrufe: 246

hi! warum lässt du select case nicht einfach weg? If Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!" elseif Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "X" Then ...

Verfasst am: 26.10.2011, 19:29 Aufrufe: 246

Ich habe da noch mal eine Frage und zwar sollen wir zusätzlich zum Spiel am Ende noch durch eine MsgBox verdeutlichen, welcher Spieler gewonnen hat. Aber egal, was mir einfällt und ausprobiere funktioniert nicht so wirklich. Meine derzeitige Überlegung lautet wie folgt: Select Case Command1(Index).Caption Case 1: If Command1(0).Caption = "X" And Command1(1).Caption ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 455

Count = 0 Then del_fractions.Add(fraction) Else Dim result = (From p As ZedGraph.PointPair In fraction.PointPairList Order By p.Y Descending Select p.Y Take 1).First If result < mes.limit Then del_fractions.Add(fraction) End If ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 434

Verfasst am: 20.09.2011, 14:28 Aufrufe: 504

Jetzt so probiert: Do While Not rstSupplierCustomer.EOF Set trol = db.OpenRecordset("SELECT tbl_Supplier.SupplierName FROM tbl_Supplier where tbl_Supplier.SupplierID = " & rstSupplierCustomer!Suppliername & " where " & rstSupplierCustomer!ComponentIDx & " = " & rstComponent!ComponentID) Set rofl = db.O ...

Verfasst am: 20.09.2011, 13:33 Aufrufe: 504

Verfasst am: 20.09.2011, 12:53 Aufrufe: 504

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Recordset, fileNr%, Bild$ Set ADC = New ADODB.Recordset fileNr = FreeFile Open DateiDialog.Filename For Binary As fileNr Bild = Space(LOF(fileNr)) Get #fileNr, , Bild Close fileNr ADC.Open "SELECT UserID, Bild from user WHERE UserID=" & UID & ";", MyCon, adOpenKeyset, adLockOptimistic, adCmdText If ADC.EOF Then GoTo fehler ADC.Fields("Bild") = L ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

Das Ganze soll ein Spiel werden und mit dem Button gestartet werden, ggf. auch beendet. Steuern über Pfeile: Schritt 1 Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean Select keyData Case Keys.Up, Keys.Down, Keys.Left, Keys.Right Return True End Select End Function Schritt 2 Private Sub Form1_ ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 458

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Thread(AddressOf mainserver) mainthread.Start(c) End While End Sub Private Sub mainserver(ByVal con As Connection) Do Try For Each c As Connection In list ' an alle clients weitersenden. funktion = Split(con.streamr.ReadLine, "|") Select Case fu ...

Verfasst am: 14.07.2011, 09:02 Aufrufe: 375

Pfad_fuer_dateien & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048; PageTimeout=5;UID=sa;PWD=" & Trim(mod_allg.DB_Kennwort) & ";" _ , SQLStatement:="SELECT kundennummer, anrede, name1 , name2, branche, strasse, land, plz, ort, telefon, telefax, mobil, geschaeft, mail, internet," _ , SQLStatemen ...

Verfasst am: 22.06.2011, 07:40 Aufrufe: 614

Für alle, die es interessiert: Ich habe nicht die TabStrip-KOmponente benutzt, sondern ssTab ! und mit ssTab1.Tab bekomme ich den Index der Tabs. Wenn man jetzt die Listviews und Flexgrids nicht IN die Tabs legt, sondern diese wie einen Tabstrip behandelt, kann man recht einfach über select case die verschiedenen Felder beliebig füllen. Hat mir schätzungsweise 15 Seiten Quellcode gespart! Also habe den ssTab ...

Verfasst am: 28.04.2011, 14:17 Aufrufe: 456

Ich habe hier eine Vorlage für das verschicken mit Outlook: Sub emailverschicken() Dim Adressat As String Dim cell As Range Dim outapp As Object, outmail As Object Dim Mailnachricht As String Range("G5:G200").Select Mailnachricht = "<span style=""font-size:10pt; font-family:'Arial'"">" & _ " ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1087

Message) End Try End Sub Private Sub ActiveDocument_PausedPrinting(ByVal Reason As LabelManager2.enumPausedReasonPrinting, ByRef refCancel As Integer) Dim Message As String = "Fehler beim Druck: " + MyActiveDocument.Name Select Case Reason Case LabelManager2.enumPausedReasonPrinting.lppxCommunicationError Message += " Kommunikationsfehl ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

ScaleMode = vbPixels .BorderStyle = vbBSNone .Move 0, 0, 7, 7 .BackColor = vbRed .AutoRedraw = True Select Case i Case Is = 0, 3 .MousePointer = vbSizeNS 'ObenUnten Case Is = 1, 2 .MousePointer = vbSizeWE 'LinksRechts Case Is = 4, 7 .MousePointer = vbSizeNWSE 'LinksOben RechtsUnten Case Is = 5, 6 ...

Verfasst am: 31.01.2011, 21:36 Aufrufe: 463

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

Tag = objectCounter nObjekt.Visible = True objectCounter = objectCounter + 1 End Sub Private Sub nObjekt_mouseDown(button As Integer, shift As Integer, X As Single, Y As Single) if button = vbLeftButton then select case nObjekt.tag case = 0 ' je nach Button sollen hier andere Werte in bestehende Variablen geschrieben werden case = 1 ...

Verfasst am: 22.01.2011, 01:01 Aufrufe: 672

Hallo zusammen, habe leider nichts im Internet über mein Problem gefunden, aus diesem Grund schreibe ich hier. Ich versuche gerade verzweifelt, eine Variable ( ID ) an CrystalReport zu übergeben um mittels SELECT - Befehl nur bestimmte Datensätze aus der MySQL-Datenbank auslesen zu können, aber leider ohne Erfolg. Hier nun paar Fakten: > Ich benutze Visual Basic 2008 > Habe ein WindowsForm erstellt ...

Verfasst am: 17.01.2011, 11:48 Aufrufe: 718

Hallo zusammen, ich beschäftige mich seit 2 Wochen gezwungenermaßen mit VBScript. Ich habe anhand verschiedenster Anleitungen und Teilen aus Scripts von diversen Websites ein kleines VBS geschrieben, das folgende Funktion hat: Teil1: + Connect auf Oracle Datenbank + select statement wird ausgeführt wobei die Personalnummer und der An/Abwesend Status ausgelesen werden. + die Ausgabe wird etwas abgewandelt (if ...

Verfasst am: 24.12.2010, 13:20 Aufrufe: 796

... abe jetzt schon vieles ausprobiert, aber irgendwie kapiere ich es nicht. Ich schaffe es einfach nicht, mit Visual Basic 2008 eine Abfrage zu einer Oracle-Datenbank aufzubauen. Habe schon einiges probiert. Nun meine Frage, gibt es irgendwo eine Anleitung, wie ich den Connector, und vor allem welchen, ich installieren muss? Wie ich eine einfache Abfrage machen kann? Auswahl der Datenbank, Kennwort, User, Select ...

Verfasst am: 21.12.2010, 16:45 Aufrufe: 463

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

139.23;database=acp;port=3306") Dim CMD As New MySqlCommand Dim reader Dim news As New List(Of String) Try con.Open() CMD.CommandText = "SELECT `By` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5" reader = CMD.ExecuteReader news.Clear() Do While reader.Read ...

Verfasst am: 18.09.2010, 11:02 Aufrufe: 607

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210

Verfasst am: 25.08.2010, 13:50 Aufrufe: 1210

ja dann füg doch einfach unten an dein script sowas wie select Case OS case "WinXP": Prozedur oder funktionsaufruf für task case "win7": die ander funktion end select kannst damit vl was anfangen?

Verfasst am: 25.08.2010, 08:56 Aufrufe: 1210

Verfasst am: 05.08.2010, 09:32 Aufrufe: 1030

... #40;) ReDim A1(0) Dim A2() ReDim A2(0) Dim A3() ReDim A3(0) Dim A4() ReDim A4(0) Dim A5() ReDim A5(0) Dim A6() ReDim A6(0) Dim A7() ReDim A7(0) Dim A8() ReDim A8(0) Dim A9() ReDim A9(0) Dim A10() ReDim A10(0) For i = 1 To 990628 Select ...

Verfasst am: 16.07.2010, 11:03 Aufrufe: 544

.aber so wirklich funktioniert das trotzdem noch nicht Sad

Option Explicit Dim IntAnzahl As Integer Dim Werte() Dim IntI As Integer Dim IntJ As Integer Dim IntX As Integer Dim IntMin As Integer Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'M ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

.jetzt ist die frage wie ich das sortieren lasse, am besten mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(In ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

Hab das mal soweit geschrieben: ---- Dim IntI As Integer Dim IntPosition As Integer Dim Werte() Sub Einlesen() Cells(Rows.Count, 2).End(xlUp).Select IntPosition = ActiveCell.Row 'MsgBox (IntPosition) Dim Werte(IntPosition - 1) For IntI = 2 To IntPosition End Sub ----- Die Position der Werte liest er schonma richtig aus, das Array lässt sich so aber nicht d ...

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

Verfasst am: 01.07.2010, 10:39 Aufrufe: 504

Danke Private Sub Worksheet_Change(ByVal Target As Range) Set I = Intersect(Target, Range("A6:O66")) If Not I Is Nothing Then Select Case Target Case 10 To 19: NewColor = 3 Case 110 To 119: NewColor = 3 Case 20 To 29: NewColor = 8 Case 120 To 129: NewColor = 8 Case 30 To 39: NewColor = 4 Case 130 To 139: NewColor = 4 Case 40 To 49: NewColor ...

Verfasst am: 18.06.2010, 09:11 Aufrufe: 823

NET auf diese zuzugreifen. Soweit klappt das auch, nur scheitere ich beim Auslesen der Daten. Mein Code bisher: myConnection = New MYSQL_CONNECTION() myConnection.OpenConnection() books = myConnection.Execute("Select `title`, `author` from `books`") While Not books.EOF title = books.Fields("title").Value ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 971

Invoke(New MethodInvoker(AddressOf Auswertung)) Else Dim Selectbuffer() As String = Split(readbuffer, "$") Select Case Selectbuffer(0) Case "/functionTaskmgr" taskmgrbuffer = readbuffer Taskmgr() Case Else MsgBox(S ...

Verfasst am: 31.05.2010, 13:02 Aufrufe: 738

Zu jeder Kombination habe ich ein Strichmännchen, dem gliedmaßen fehlen (also "amputiert" wurden). Der Name eines Bildes besteht aus "stickman_'Meine Abfrage: Dim strSQL As String = "SELECT bildname " & _ "FROM stickman_db " & _ "WHERE (arm1 = " & cbArm1.SelectedIndex & _ ...

Verfasst am: 04.05.2010, 12:37 Aufrufe: 2310

Verfasst am: 04.05.2010, 12:31 Aufrufe: 576

Verfasst am: 04.05.2010, 12:20 Aufrufe: 508

Formular. & inhalt & .BackColor <-- Das "&" verbindet 2 String oder String und Variable usw.... Musst deinen Button als Control dimensionieren oder eine if abfrage einbauen, oder gar Select Case

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

Die hat einen Primary Key und der lässt sich nicht vergleichen. Ich bekomme immer die Meldung das die Datentypen nicht kompatibel sind. Im Acces habe ich die DB erstellt und einen AutoWert angelegt der laut Access Long Integer sein soll. Zu erst mein COde: ------------------ Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChange ...

Verfasst am: 06.03.2010, 16:58 Aufrufe: 1597

Verfasst am: 01.03.2010, 14:25 Aufrufe: 576

Verfasst am: 22.02.2010, 22:10 Aufrufe: 982

Mit einer Richtextbox unter VB 2008 geht es so: Public/Private Sub CheckedListBox_SelectedValueChanged(...)Handles CheckedListBox.SelectedValueChanged Dim text as String 'Der Text aus der CheckedListbox Dim o as Object 'Das Object aus der CheckedListbox dim i as Integer Richtextbox1.clear() text="" i=1 For each o in CheckedListBox.CheckedItems text=o.tostring Select Case i Case 1 Richt ...

Verfasst am: 22.02.2010, 10:42 Aufrufe: 748

Verfasst am: 16.02.2010, 14:17 Aufrufe: 1480