vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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

VB & Datenbanken
SQL-Tabelle/Textdatei über ADO in Datagrid 
Autor: Twar
Datum: 27.01.06 08:51
Morgen zusammen,

ich arbeite gerade an einem kleinen Tool mit dem ich wahlweise eine Tabelle aus einer MS-SQL Datenbank oder aus einer Texdatei (mit ";" getrennt weiter unten mehr dazu) in ein Datagrid einlesen, und dort bearbeiten kann.

Ich habe mir ein paar Beispiele und Tips hier auf der Seite angeschaut und fand die Methode über ADO am schönsten

Der SQL Teil funktioniert auch schon so wie ich mir das vorstelle nur die Textdatei wird nicht richtig angezeigt.

Hier der Code vom SQL Teil, dieser funktioniert einwandfrei. Drücke ich auf meine Lesen Taste wird die Tabelle korrekt angezeigt: 
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
 
    'Datenbanktreiber
    cn.Provider = "SQLOLEDB.1"
    'Servername
    cn.Properties("Data Source") = "(local)"
    'Datenbankname
    cn.Properties("Initial Catalog") = "WT_DB"
    'Benutzername
    cn.Properties("User Id") = "Client"
    'Verbindung herstellen
    cn.Open
 
End Sub
 
Private Sub rsview()
 
rs.Open "SELECT * From Typen ", cn, adOpenKeyset, adLockOptimistic
 
With DataGrid1
    .Caption = "Daten"
    Set .DataSource = rs
End With
 
Set rs = Nothing
 
End Sub
 
Private Sub Cmd_Lesen_Click()
rsview
End Sub
Nun habe ich das ganze umgebaut um eine Texdatei einzulesen: 
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
 
'Datenbanktreiber
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    'Servername
    cn.Properties("Data Source") = "c:\"
    'Datenbankname
    cn.Properties("Extended Properties") = "text;HDR=Yes;FMT=Delimited"
    'Verbindung herstellen
    cn.Open
 
End Sub
 
Private Sub rsview()
 
rs.Open "SELECT * From textdatei.txt ", cn, adOpenKeyset, adLockOptimistic
 
With DataGrid1
    .Caption = "Daten"
    Set .DataSource = rs
End With
 
Set rs = Nothing
 
End Sub
 
Private Sub Cmd_Lesen_Click()
rsview
End Sub
In der Datei textdatei.txt steht folgendes: 

Spalte1;Spalte2;Spalte3
12345;1234;1233
08790;79070;79097
Mein Problem ist nun folgendes: Nach drücken auf die Lesen Taste passiert garnichts...
eigenartigerweise sollte das Recordset aber richtig gefüllt worden sein, mit rs.Fields(0).Value bzw rs.Fields(0).Name kann ich auf die Daten der Textdatei zugreifen.
Nur das Set Datagrid1.DataSource = rs scheint nicht zu klappen. Da es im ersten Teil funktioniert sollte das hier doch au gehen, oder hab ich da noch nen Denkfehler drin ?

Gruß Twar
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
SQL-Tabelle/Textdatei über ADO in Datagrid1.361Twar27.01.06 08:51
Re: SQL-Tabelle/Textdatei über ADO in Datagrid712wincnc27.01.06 16:51
Re: SQL-Tabelle/Textdatei über ADO in Datagrid582Twar27.01.06 17:51
Re: SQL-Tabelle/Textdatei über ADO in Datagrid626Twar30.01.06 08:43
Re: SQL-Tabelle/Textdatei über ADO in Datagrid577wincnc27.01.06 18:09

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