Daten aus einer dbf holen

Hallo,

wie ist es eigentlich am einfachsten möglich, regelmäßig Daten aus "angelieferten" dBase-Dateien in eine Notes-DB zu importieren? Ich meine, was ist die beste Strategie?

Ich werde bald regelmäßig einen Ordner mit diesen Datenbanken füllen und sie des Nächstens importieren. Es gibt ja Konvertierungs-Tools, die aus den dbfs dann text machen. Den kann ich mir per LS reinziehen. Aber geht es auch direkt ohne Konvertierung?

Vielen Dank!

Gruss, Bernd

Wie funktioniert das denn per ODBC? Über diese "Datenquellen" im Designer oder gibt es dafür Klassen?

OK, blöde Frage, wenn man einen Blick in die Hilfe wirft... Aber ein kleines Beispielscript wäre toll!

Hallo,

ich habe jetzt das Beispiel einmal ausprobiert und ODBC eingerichtet. In dem Verzeichnis befindet sich eine Tabelle mit dem Dateinamen "Prices". Die Verbindung heisst "xPrices". Der Code ist wir folgt angepasst:

Sub Initialize
	Dim con As New ODBCConnection
	Dim qry As New ODBCQuery
	Dim result As New ODBCResultSet
	Dim firstName As String
	Dim lastName As String
	Dim msg As String
	Set qry.Connection = con
	Set result.Query = qry
	con.ConnectTo("xPRICES")
	qry.SQL = "SELECT * FROM Prices"
	result.Execute
	msg = "Student names:" & Chr(10)
	If result.IsResultSetAvailable Then
		Do
			result.NextRow
			firstName = result.GetValue("ARTIKEL", _
			firstName)
			lastName = result.GetValue("WG", _
			lastName)
			msg = msg & Chr(10) & firstName & " " & _
			lastName
		Loop Until result.IsEndOfData
		Messagebox msg,, "Student Names"
		result.Close(DB_CLOSE)
	Else
		Messagebox "Cannot get result set for STUDENTS"
		Exit Sub
	End If
	con.Disconnect
End Sub

Leider bekomme ich immer die Fehlermeldung "Cannot get result set for STUDENTS". D.h. also, dass result.IsResultSetAvailable nicht greift. Warum ist das so?

Danke!

Wie geht denn das? Sorry, sind meiner ersten Gehversuche mit ODBC

Hallo und vielen Dank!

Ich habe jetzt einmal die Errors angesehen. Komischerweise gibt es im Grunde keine Meldungen. Ich kann höchstens eine Provuzieren, indem ich die Quelle umbennenne. Dann gibt mir die connection eine Fehlermeldung, dass sie keine entsprechende findet. Ansonsten alles leere Strings onder "No Error".

´Das würde ich so interpretieren, dass alles passt, das SQL Statement jedoch keine Ergebnisse liefert. Aber "Select * From " + Dateiname muss doch was bringen!? Es handelt sich um eine dBase-Datei, in der definitiv auch Inhalte sind. Muss ich bei dBase was besonderes beachten?

Oder gibt es bei den rechten was zu beachten? Der Agent hat zumindest alle Rechte (unter dem Flügelhut), der Benutzer ist der Server selbst.

Also ich schätze, dann habe ich die Lösung A, denn ich habe die ODBC-Quelle als "System-DSN" angelegt und dann einen Ordner angegeben, in dem sich ein paar dbase-Dateien befinden, die ja je eine Tabelle darstellen. Mit

con.ListTables(MeineConnection)

werden auch brav alle Dateinamen ohne .dbf aufgelistet. Aber dann muss doch auch mein SQL-Statement passen, oder?

Hallo, Fall gelöst!

Der Dateiname der dBase-Datei darf nicht länger als 8 Zeichen sein.

Willkommen in den 80ern!

Vielen Dank für jegliche Hilfe!

Gruss, Bernd

Ich muss dazu segen, dass ich den Namen der Datei im Quellcode "anonymisiert", also geändert habe. schittkram...