Re: und wieder ein VB6 Problem....

Sturmanskie — Sun, 29 May 2005 15:40:48 GMT

hab schon, man sollte halt wissen das der wert in einer access datenbank auch als zahl eingegeben werden kann. und da tu ich mich mit einem boolean wert ein bischen schwer

und wieder ein VB6 Problem....

Sturmanskie — Sun, 29 May 2005 15:10:31 GMT

so und hab ich mein projekt endlich soweit das ich daten von der datenbank auslesen und in den entsprechenden feldern ausgeben kann.
auch den datensatz ändern funktioniert, jedoch nur bei textfeldern und genau da ist das problem. ich habe in der datenbank relativ viele checkboxen und ich  schaffe es nicht diese in der datenbank zu ändern.

das anzeigen (auslesen der daten aus der db) hab ich folgendermaßen realisiert

        If rsMain.Fields("Betriebsleiterschulung") = False Then
            chkBetriebsleiterschulung.Value = 0
        Else
            chkBetriebsleiterschulung.Value = 1
        End If

nur wie kann ich jetzt das ganze wieder in der datenbank abspeichern
ich hab gedacht ich machs so

If chkPilotenscheinSegelflug.Value = 0 Then
            booPilotenscheinSegel = False
        Else
            booPilotenscheinSegel = True
        End If

        lngID = cmbMitglieder.ItemData(intListIndex)

        ' SQL Statement erstellen
        strSQL = "UPDATE Tabelle_MITGLIEDER_PILOTEN SET Name='" & strName & "', Titel='" & strTitel & "', Straße='" & _
            strStraße & "', MitglNr='" & intMitglNr & "', PLZ='" & intPLZ & "', Ort='" & strOrt & "', TelefonPrivat='" & _
            strTelefonPrivat & "', TelefonGeschäft='" & strTelefonGeschäft & "', FAX='" & strFax & "', Mobiltelefon='" & _
            strMobiltelefon & "', EMail='" & strEMail & "', Land='" & strLand & "', PilotScheinSegelflug='" & booPilotenscheinSegel & _
            "' Where Mitglieder_ID = " & lngID

jedoch bekomme ich da die fehlermeldung das die datentypen unverträglich sind.

hoffe es kann mir einer von euch weiterhelfen.

danke