Dim vDSDataSet As New System.Data.DataSet()
Dim vDbCmdDetail As New OleDbCommand("SELECT * FROM Tabellenname", vgConDb)
Dim vDbAdpDetail As New OleDbDataAdapter(vDbCmdDetail)
vDbAdpDetail.Fill(vDSDataSet, "Tabellenname")
vDbAdpDetail.FillSchema(vDSDataSet.Tables("Tabellenname"), SchemaType.Mapped)
TKomm_Test.DataBindings.Add("Text", vDSDataSet.Tables("Tabellenname"), _
  "Datenbankfeld")
TKomm_Test.MaxLength = vDSDataSet.Tables("Tabellenname").Columns( _
Datenbankfeld").MaxLength

____________________________________________
Nur die Dummen wissen alles selbst am besten.

Beitrag wurde zuletzt am 27.08.15 um 20:28:48 editiert.