Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: DataGrid
Autor: Isolde
Datum: 29.08.03 12:38
Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Private m_ConDBSQL As OleDbConnection Private m_tblKassenbuch As New DataTable("Kassenbuch") Private Sub SQL_Connection() ' Setze Connection-String für die DB-Verbindung m_ConDBSQL = New OleDbConnection("Provider=SQLOLEDB;data source = (local);" _ & "initial catalog=Gartenverein;integrated security=SSPI;") ' Verbindung öffnen m_ConDBSQL.Open() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection Dim tblStyle As New DataGridTableStyle() Dim col As New DataGridTextBoxColumn() Dim da As OleDbDataAdapter SQL_Connection() da = New OleDbDataAdapter("SELECT * FROM Kassenbuch", m_ConDBSQL) m_tblKassenbuch.Clear() da.Fill(m_tblKassenbuch) Me.DataBindings.Add("Text", m_tblKassenbuch, "") DataGrid1.DataSource = m_tblKassenbuch tblStyle.MappingName = "Kassenbuch" DataGrid1.TableStyles.Add(tblStyle) With DataGrid1.TableStyles("Kassenbuch") 'Formatierung der Spalte Überweisungsdatum col = CType(.GridColumnStyles("Überweisungsdatum"), DataGridTextBoxColumn) col.Width = 110 col.NullText = "Keine Angaben" 'Formatierung der Spalte lfdNummer col = CType(.GridColumnStyles("lfdNummer"), DataGridTextBoxColumn) col.HeaderText = "Nummer" col.Width = 48 End With End Sub End Class

DataGrid	1.087	znowy	27.08.03 13:50
Re: DataGrid	729	beat	27.08.03 16:53
Re: DataGrid	663	znowy	28.08.03 10:39
Re: DataGrid	653	Isolde	29.08.03 12:38
Re: DataGrid	870	Isolde	29.08.03 12:38
Re: DataGrid	717	znowy	29.08.03 12:42

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übersicht

Suchen