Betreff Script von Steffen Liers

var ar: array of string; begin setLength(ar,3); ar[0] := '0'; ar[1] := '1'; ar[2] := '2'; ListBox.DataSource := ar; // -> Die Elemente des Arrays werden angezeigt. ar[0] := 'hallo'; ListBox.Update; ListBox.Refresh; // -> Es wird immer noch 0,1,2 angezeigt. ListBox.Hide; ListBox.Show; // -> Nun wird hallo,1,2 angezeigt // Jetzt das Highlight setLength(ar,2); ListBox.Hide; ListBox.Show; // -> Es wird hallo,1,2 angezeigt. ListBox.DataSource := nil; ListBox.DataSource := ar; // -> Es wird hallo,1 angezeigt; end;

Ich habe schon überprüft, ob ListBox.DataSource vielleicht den Array kopiert, aber so ist es nicht. Ich kann über ListBox.DataSource auf denselben Array zugreifen

Mit freundlichen Grüßen aus Hamburg

Steffen Liers

Betreff: Record.count ergibt negativen Wert

Ok... dann ändere den Code mal wie folgt:

Public Sub Get_actual_cboAnsprechpartner_Anzahl() sqlstate = "SELECT COUNT(*) FROM Ansprechpartner WHERE " & _ "Ansprechpartner.Anp_Nr=" & hanpnr Set rs = Con.Execute(sqlstate) Forms!frmKontaktpersonen.txtAnz_cbo.Value = CStr(rs.RecordCount) rs.Close Set rs = Nothing End Sub

Schöne Grüsse aus Hamburg

Steffen Liers

Betreff: MySQL Datensatz editieren

versuch es mal hiermit:

Public Sub Auswahl (SQL As String) 'Escape Sequenzen abfangen und korrigieren! 'doppeltes Anführungszeichen SQL = Replace(SQL, Chr(34), "\" & Chr(34), 1) 'Backslash SQL = Replace(SQL, "\", "\\", 1) If Fehlerueberwachung = True Then On Error Resume Next Else On Error GoTo 0 End If Set Sel = New adodb.Recordset With Sel 'Öffnen der Tabelle mit dem angegebenen SQL-String .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic End With On Error GoTo 0 End Sub

Schöne Grüße aus Hamburg

Steffen Liers