Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: sevDataGrid - neuer Datensatz
Autor: Wum
Datum: 04.11.06 11:43
Hallo Dieter, hier ist der Quelltext, oder brauchst Du das als Mail inkl. der Datenbank? In diesem Kurztest gibt es natürlich keine Mimik zum Sicherstellen der Einzigartigkeit der Angabe im Feld "Nr". Gruß Rainer Option Explicit Private con As Connection Private rs As Recordset Private PfadZuDatenbank As String Private sql As String Private Sub cmdAddNew_Click() 'Neuen Datensatz mit Standardwerten anlegen With sevGrid1.Recordset .AddNew .Fields("Name") = "Neuer" .Fields("Beruf") = "Programmierer" .Fields("Nr") = 999 .Update End With sevGrid1.Refresh sevGrid1.MoveLast End Sub Private Sub cmdAddNrÄndern_Click() Dim Zahl As Integer If txtNr.Text <> "" Then Zahl = Val(txtNr.Text) With sevGrid1.Recordset .Find "Nr = 999", , adSearchForward, 1 .Fields("Nr") = Zahl ' .Update ' sevGrid1.Refresh sevGrid1.RowRefresh End With End If End Sub Private Sub cmdEnde_Click() If con.State = adStateOpen Then con.Close Unload Me End Sub Private Sub cmdStartRS_Click() Set rs = New Recordset rs.ActiveConnection = con rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic sql = "SELECT * FROM TabGridTest ORDER by Nr" rs.Open sql With sevGrid1 .LockUpdate True .ColumnAdd , "Nr", 800 .ColumnAdd , "Name", 1500 .ColumnAdd , "Beruf", 2000 .AllowEdit = True Set .Recordset = rs .LockUpdate False .Refresh .Row = 1 End With End Sub Private Sub Form_Load() PfadZuDatenbank = App.Path & "\sevGridDatenbank.mdb" Set con = New Connection con.CursorLocation = adUseClient con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _ "Data Source =" + PfadZuDatenbank con.Open End Sub

sevDataGrid - neuer Datensatz	990	Wum	04.11.06 10:32
Re: sevDataGrid - neuer Datensatz	658	Dieter	04.11.06 10:43
Re: sevDataGrid - neuer Datensatz	599	Wum	04.11.06 11:01
Re: sevDataGrid - neuer Datensatz	672	Dieter	04.11.06 11:35
Re: sevDataGrid - neuer Datensatz	644	Wum	04.11.06 11:43
Re: sevDataGrid - neuer Datensatz	647	Dieter	04.11.06 12:48
Re: sevDataGrid - neuer Datensatz	594	Wum	04.11.06 15:53
Re: sevDataGrid - neuer Datensatz	658	brauchti	05.11.06 19:36
Re: sevDataGrid - neuer Datensatz	614	Chris1211	09.03.08 09:38
Re: sevDataGrid - neuer Datensatz	631	Dieter	10.03.08 12:43
Re: sevDataGrid - neuer Datensatz	616	Chris1211	11.03.08 21:38

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