Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ermittelten Windows User aus Textdatei auslesen
Autor: Jenn
Datum: 13.07.09 11:57
Hallo, ich muss noch einmal genau in Erfahrung bringen, was in dem Code passiert. Ich bin wirklich absoluter Anfänger und habe noch einige Probleme beim nachvollziehen. Bisher hatte ich nur mit einfachem VBA zu tun und bin etwas überfordert... Also es kommt zunächst immer die Fehlermeldung, dass der Benutzerdefinierte Typ nicht definiert ist bei: Dim rs As ADODB.Recordset Warum? Beim Code selbst habe ich meine Fragen als Kommentare in den Quellcode geschrieben: Option Explicit Dim rs As ADODB.Recordset Dim cn As ADODB.Connection ' Welche Datei muss denn hier jeweils rein? Nochmal die unten genannte? Const strConn As String = "Driver={Microsoft Text Driver (*.txt;" & _ "*.csv)};DefaultDir=G:\Vorlagen" Const strPfad As String = "G:\Vorlagen" 'Welche Datenbanken? Ist damit meine Datei aus Notes mit den Mitarbeiterdaten gemeint? Const MasterDatei As String = "MITARBEITER.txt" Const KonvertDatei As String = "MITARBEITER.csv" Private Sub Form_Load() Dim strUsername As String Dim strName As String Dim strObjekt As String Dim strStraße As String Dim strOrt As String Dim strRegTyp As String Dim strBand As String Dim strBemerkung As String 'Windows User ermitteln strUsername = Environ("Username") 'hier wird | gegen , ersetzt Call DateiKonvertieren Set cn = New ADODB.Connection 'Cursor zu der Stelle mit dem Usernamen cn.CursorLocation = adUseClient 'was passier hier genau? Aus der Konvertierten Datei werden per SQL die benötigten Felder ermittelt... 'gebe ich hierfür die Überschriften an?Folgende Reihenfolge haben die Daten in der Datei: Username|Nachname|Vorname|EMail|Telefon|Telefax| cn.Open strConn Set rs = cn.Execute("Select * from " & KonvertDatei & " WHERE Name12='" & _ strUsername & "'") strName = rs.Fields("Name22") 'strObjekt = rs.Fields("Objekt2") 'bisher habe ich ein Textfeld, welches folgendermaßen befüllt wird:Options.ReplaceSelection = True ' ActiveDocument.Bookmarks("Text4").Select 'Selection.TypeText Text:="Absender" & vbCrLf & _ ' Straße" & vbCrLf & _ usw. ' Anstelle der XXX sollen dann die Daten aus meiner Mitarbeiter Datei einfließen "Phone: XXXX" & vbCrLf & _ "Telefax: XXXX" & vbCrLf & _ " E -Mail: " Wer kann mir helfen? Vielen Dank

ermittelten Windows User aus Textdatei auslesen	1.827	Jenn	07.07.09 10:03
Re: ermittelten Windows User aus Textdatei auslesen	1.082	effeff	07.07.09 10:21
Re: ermittelten Windows User aus Textdatei auslesen	942	Jenn	07.07.09 10:48
Re: ermittelten Windows User aus Textdatei auslesen	1.179	effeff	07.07.09 12:19
Re: ermittelten Windows User aus Textdatei auslesen	946	Jenn	07.07.09 12:36
Re: ermittelten Windows User aus Textdatei auslesen	1.019	Jenn	13.07.09 11:57
Re: ermittelten Windows User aus Textdatei auslesen	1.056	effeff	13.07.09 13:43
Re: ermittelten Windows User aus Textdatei auslesen	886	Jenn	13.07.09 14:20
Re: ermittelten Windows User aus Textdatei auslesen	899	wb-soft	13.07.09 16:15
Re: ermittelten Windows User aus Textdatei auslesen	889	effeff	14.07.09 09:09
Re: ermittelten Windows User aus Textdatei auslesen	874	Jenn	14.07.09 11:34
Re: ermittelten Windows User aus Textdatei auslesen	865	effeff	14.07.09 14:26

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