vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 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

Fortgeschrittene Programmierung
Re: Argument nicht optional??? 
Autor: keine Frage
Datum: 15.04.02 15:02

also ich habe es mit dem code von oben probiert und es geht

einzig die Pfad angabe mußte ich ändern.

dbFile = "c: empmappe1.mdb"

dann konnte ich super daten in die db senden.

würde aber ein DB modul schreiben. könnte wie folgt aussehen:


Option Explicit
Private Db As Database
Private Rs As Recordset
Public DBpath As String



Sub init()

DBpath = "C: empmappe1.mdb"

End Sub


Function DB_Write(ByVal Tabelle As String, ByVal Felder As Variant, ByVal Datenfelder As Variant, ByVal Anzahl_Felder As Integer)

Dim i As Integer 'for schleifen Zaehler
init
Set Db = DBEngine.OpenDatabase("" & DBpath, False, False, ";pwd=")
Set Rs = Db.OpenRecordset("" & Tabelle, dbOpenDynaset)
Rs.LockEdits = False
With Rs
.AddNew
For i = 1 To Anzahl_Felder
.Fields(Felder(i)).Value = Datenfelder(i)
Next i
.Update
End With
Db.Close
End Function


Aufruf für dein Problem:


sub main ()

Dim Tabelle as String
Dim Daten(10) as Variant

'Arrays für das Aufrufen
Tabelle = "Tabelle1"
DB_Felder= Array("","ID","Nr","Bezeichnung")
index_DB_Felder=ubound(DB_Felder)

Daten(1)=4
Daten(2)="455523"
Daten(3)="Riemenschneiderstr. 32"

DB_Write Tabelle,DB_Felder,Daten,index_DB_Felder
'und schon sind die daten in der Datenbank verschwunden.

end sub


Verweise auf DAO nicht vergessen.


MFG

Jürgen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Argument nicht optional???48Franz Schubert15.04.02 14:23
Re: Argument nicht optional???40keine Frage15.04.02 15:02
Re: Argument nicht optional???31Franz Schubert15.04.02 15:50

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