vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Checkbox und MySQL 
Autor: melodoi66
Datum: 23.10.05 11:42

Hi,

ich benutzte das sevGrid 2.1.0.30 unter Access 2000 im Recordset-Modus. Ich kann sowohl Access (verknüpfte Tabellen) als auch MySQL (ODBC) als Datenbank verwenden.

Wenn ich Access anbinde sind die Checkboxen als Checkbocken dargestellt. Unter MySQL sehe ich nur 0 und -1, obwohl ich es mit CBool(Feldname) und IIf(Feldname,TRUE,FALSE) versucht habe. Wo liegt hier der Fehler?

Gruß Sylvio

Der Code dazu:

With grdWarengruppe
strSQL = "SELECT W.ID_Warengruppe, CBool(W.Selekt), W.Warengruppe " _
& "FROM tbl_P_Warengruppe W WHERE W.Deleted=0"
Set rsW = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
' autom. Neuzeichnen des DataGrids unterbinden
.LockUpdate True
.FilterMoveTAB = True

' Erweiterte Eigenschaften
.AllowColumnClick = True
.AllowColumnSizing = True
.AllowDelete = True
.AllowEdit = True
.AllowMultiSelect = False
.AllowColumnReorder = True
.AutoSort = True
.AutoUpdate = True
.CheckBoxStyle = 2 ' XP-Style
.ShowSortSymbols = True
.ColumnHeadersVisible = False
.ScrollBars = 4
.StartEditWith = 2

.Caption = "Warengruppe"
.CaptionFont.Name = "Tahoma"
.CaptionFont.Bold = True
.CaptionFont.Size = 10

.ColumnHeaderFont.Name = "Tahoma"
.Font.Name = "Tahoma"
.FooterFont.Name = "Tahoma"
.FilterFont.Name = "Tahoma"

' Spalten hinzufügen (bei DB-Anbindung nicht
' unbedingt notwendig!)
.ColumnAdd rsW.Fields(0).Name, rsW.Fields(0).Name, 0, , False
.ColumnAdd rsW.Fields(1).Name, rsW.Fields(1).Name, 300, , , , , 2
.ColumnAdd rsW.Fields(2).Name, rsW.Fields(2).Name, 2450
.Columns(rsW.Fields(1).Name).DisplayFormat = dbBoolean

' Recordset zuweisen
.CreateClone = True
Set .Recordset = rsW

' Wheelmaus-Unterstützung aktivieren
.WheelMouse = True

' Neuzeichnen des DataGrids wieder aktivieren
.LockUpdate False
.Refresh
.Row = 1
End With
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Checkbox und MySQL1.031melodoi6623.10.05 11:42
Re: Checkbox und MySQL623ModeratorDieter23.10.05 11:59
Re: Checkbox und MySQL686melodoi6623.10.05 12:35
Re: Checkbox und MySQL674ModeratorDieter23.10.05 12:53
Re: Checkbox und MySQL618melodoi6623.10.05 13:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel