vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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

Visual-Basic Einsteiger
Sorry, pre vergessen: 
Autor: unbekannt
Datum: 02.02.02 21:41
<code><font color=#000099>Private</font> DB <font color=#000099>As</font> _
  DataBase
<font color=#000099>Private</font> <font color=#000099>Const</font> sDBNAME = _
"PFAD_u_Name_der_DB"
<font color=#000099>Private</font> <font color=#000099>Const</font> sTABName = _
"Tabelle"
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> OpenDB()
<font color=#000099>Set</font> DB = DBEngine.OpenDatabase(sDBName, <font _
  color=#000099>False</font>, <font color=#000099>False</font>)
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> CloseDB()
DB.<font color=#000099>Close</font>
<font color=#000099>Set</font> DB = <font color=#000099>Nothing</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> NewDS()
<font color=#000099>Dim</font> o <font color=#000099>As</font> <font _
  color=#000099>Control</font>
<font color=#000099>Dim</font> Rs <font color=#000099>As</font> RecordSet
OpenDB
<font color=#000099>Set</font> RS = DB.OpenRecordSet(sTabName, dbOpenDynaset)
<font color=#000099>With</font> Rs
.AddNew
<font color=#000099>For</font> Each o In Form1.Controls
.Fields(o.Tag).Value = o.Text
<font color=#000099>Next</font>
.Update
<font color=#000099>End</font> <font color=#000099>With</font>
CloseDB
 
 
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> LoadDS()
<font color=#000099>Dim</font> o <font color=#000099>As</font> <font _
  color=#000099>Control</font>
 
ClearDS
OpenDB
 
<font color=#000099>Set</font> Rs = DB.OpenRecordSet(sTabName, dbOpenDynaset)
<font color=#000099>If</font> Rs.EOF <font color=#000099>Then</font> <font _
  color=#000099>Exit</font> <font color=#000099>Sub</font>
<font color=#000099>For</font> Each o In Form1.Controls
<font color=#000099>If</font> o.Tag<>"" <font color=#000099>Then</font>
o.Text = Rs.Fields(o.Tag).Value
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Next</font>
CloseDB
<font color=#000099>End</font> <font color=#000099>Sub</font>
</code>
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Auslesen aus Datenbanken189Piranha02.02.02 20:35
Re: Auslesen aus Datenbanken246unbekannt02.02.02 20:41
Re: Auslesen aus Datenbanken50Piranha02.02.02 20:47
Re: Auslesen aus Datenbanken266unbekannt02.02.02 20:51
Re: Auslesen aus Datenbanken53-ipa-02.02.02 20:53
Kommt gleich, ... aber warten auf Piranha. (oT)238unbekannt02.02.02 20:56
Re: Kommt gleich, ... aber warten auf Piranha. (oT)48-ipa-02.02.02 20:58
Re: Auslesen aus Datenbanken47Piranha02.02.02 20:58
Noch kurz: Wie heißen die Felder in der DB-Tabelle? (oT)247unbekannt02.02.02 21:00
Re: Noch kurz: Wie heißen die Felder in der DB-Tabelle? (oT)52Piranha02.02.02 21:02
Just wait a moment .... oT255unbekannt02.02.02 21:06
Re: Noch kurz: Wie heißen die Felder in der DB-Tabelle? (oT)275unbekannt02.02.02 21:17
Re: Noch kurz: Wie heißen die Felder in der DB-Tabelle? (oT)38Piranha02.02.02 21:30
Logisch, ich tippe mir ja noch die Finger wund .... (oT)234unbekannt02.02.02 21:36
Oder meinst Du ein DB-proggi ist in 5 Min fertig ? (oT)244unbekannt02.02.02 21:38
sagen wir: ich hätte es gehofft (o.T)39Piranha02.02.02 21:42
Dann geht das mit einem Data-Control einfacher. Aber ...262unbekannt02.02.02 21:48
Re: Dann geht das mit einem Data-Control einfacher. Aber ...39Piranha02.02.02 21:52
Nein (o.T)40Piranha02.02.02 21:53
Sei froh! Morgen machen wir weiter, ist nicht mehr viel 272unbekannt02.02.02 21:59
Bin jetz wieder da...(o.T.)42Piranha03.02.02 11:54
SaveAll ...300unbekannt02.02.02 21:34
Re: SaveAll ...84Piranha02.02.02 21:40
Also,345unbekannt02.02.02 21:43
Sorry, pre vergessen:271unbekannt02.02.02 21:41

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