Tabelle in Programm laden

[t0mmy]

trotzdem sehe ich in meiner DBGrid nichts

[DeddyH]

Ist denn auch alles auf Connected/Active/Enabled gesetzt?

[t0mmy]

ja is..

[DeddyH]

Vielleicht postest Du am Besten einmal die *.dfm im Textformat, evtl. sieht man da mehr.

[t0mmy]

Okay hier die .dfm:

Delphi-Quellcode:

object Form1: TForm1
  Left = 132
  Top = 48
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'AFSS (Automatic Filesharing System)'
  ClientHeight = 558
  ClientWidth = 1148
  Color = clWindow
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = menu
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 936
    Top = 136
    Width = 249
    Height = 225
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        Visible = True
      end>
  end
  object PageControl1: TPageControl
    Left = 32
    Top = 0
    Width = 873
    Height = 425
    ActivePage = TabSheet1
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Office'
      object lblwnumber: TLabel
        Left = 48
        Top = 24
        Width = 85
        Height = 16
        Caption = 'Würthnummer:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblpfad: TLabel
        Left = 48
        Top = 72
        Width = 31
        Height = 16
        Caption = 'Pfad:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblStueckliste: TLabel
        Left = 528
        Top = 264
        Width = 78
        Height = 24
        Caption = 'Stückliste'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblLieferschein: TLabel
        Left = 528
        Top = 328
        Width = 102
        Height = 24
        Caption = 'Lieferschein'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblZukauf: TLabel
        Left = 528
        Top = 296
        Width = 89
        Height = 24
        Caption = 'Zukaufliste'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblanumber: TLabel
        Left = 48
        Top = 128
        Width = 100
        Height = 16
        Caption = 'Auftragsnummer:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblLieferanschrift: TLabel
        Left = 48
        Top = 200
        Width = 63
        Height = 13
        Caption = 'Lieferadresse'
      end
      object wnumber: TEdit
        Left = 48
        Top = 40
        Width = 225
        Height = 21
        TabOrder = 0
        OnKeyPress = wnumberKeyPress
      end
      object btnconnect: TButton
        Left = 288
        Top = 40
        Width = 89
        Height = 25
        Caption = 'Pfad zuweisen'
        TabOrder = 1
        OnClick = btnconnectClick
      end
      object setpfad: TEdit
        Left = 48
        Top = 88
        Width = 225
        Height = 21
        TabOrder = 2
      end
      object btnchange: TButton
        Left = 288
        Top = 88
        Width = 89
        Height = 25
        Caption = 'Ändern'
        TabOrder = 3
        OnClick = btnchangeClick
      end
      object btnLshow: TButton
        Left = 648
        Top = 328
        Width = 81
        Height = 25
        Caption = 'Anzeigen'
        TabOrder = 4
      end
      object btnLprint: TButton
        Left = 736
        Top = 328
        Width = 81
        Height = 25
        Caption = 'Drucken'
        TabOrder = 5
      end
      object btnSshow: TButton
        Left = 648
        Top = 264
        Width = 81
        Height = 25
        Caption = 'Anzeigen'
        TabOrder = 6
      end
      object btnSprint: TButton
        Left = 736
        Top = 264
        Width = 81
        Height = 25
        Caption = 'Drucken'
        TabOrder = 7
      end
      object btnZshow: TButton
        Left = 648
        Top = 296
        Width = 81
        Height = 25
        Caption = 'Anzeigen'
        TabOrder = 8
      end
      object btnZprint: TButton
        Left = 736
        Top = 296
        Width = 81
        Height = 25
        Caption = 'Drucken'
        TabOrder = 9
      end
      object anumber: TEdit
        Left = 48
        Top = 152
        Width = 105
        Height = 21
        TabOrder = 10
      end
      object Button1: TButton
        Left = 280
        Top = 224
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 11
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Workshop'
      ImageIndex = 1
      object Label1: TLabel
        Left = 80
        Top = 261
        Width = 65
        Height = 16
        Caption = 'Scancode:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object btnscan: TButton
        Left = 280
        Top = 252
        Width = 89
        Height = 25
        Caption = 'Scan'
        TabOrder = 0
        OnClick = btnscanClick
      end
      object editscan: TEdit
        Left = 152
        Top = 256
        Width = 113
        Height = 21
        TabOrder = 1
        OnKeyPress = editscanKeyPress
      end
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 976
    Top = 384
    Width = 200
    Height = 49
    DataSource = DataSource1
    TabOrder = 2
  end
  object menu: TMainMenu
    object Datei1: TMenuItem
      Caption = 'Datei'
      object BenutzerRegistrieren1: TMenuItem
        Caption = 'Benutzer anlegen'
      end
      object Abmelden1: TMenuItem
        Caption = 'Abmelden'
      end
      object Beenden1: TMenuItem
        Caption = 'Beenden'
        OnClick = Beenden1Click
      end
    end
    object Hilfe1: TMenuItem
      Caption = 'Hilfe'
    end
  end
  object ADOTable1: TADOTable
    CursorType = ctStatic
    TableName = 'IDBPURCH'
    Left = 1160
    Top = 8
    object ADOTable1ID: TWideStringField
      FieldName = 'ID'
      ReadOnly = True
      Size = 16
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionTimeout = 5
    Provider = 'SQLOLEDB.1'
    Left = 984
    Top = 40
  end
  object ADODataSet1: TADODataSet
    CacheSize = 10
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 1056
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 984
    Top = 88
  end
end

[DeddyH]

Steht denn im CommandText des Datasets etwas drin? Oder was geschieht, wenn Du der Datasource die ADOTable als Dataset zuweist?

[t0mmy]

ja.. da hab ich eingestellt select "Spalte" from "Tabelle" trotzdem wird mir die Spalte nicht aufgelistet..zwar werden die Zeile erstellt aber es steht nichts in den Zellen drin

[t0mmy]

ne andere Frage zwischendurch.. wie kann ich abprüfen ob die Logindaten die ich ADOConnection.ConnectionString über edit felder eingebe richtig sind.. weil ich bekomm nur nen fehler von delphi

hat sich schon erledigt