Hallo
Ich versuche in Visual Basic 2010 Express eine DBF-Datenbank auszulesen, wobei gegebenenfalls mehrere Abfragen hintereinander erforderlich sind.
Bei dem beigeschlossenen Beispiel verstehe ich nicht, warum bei dem ersten Aufruf 10 und bei dem zweiten Aufruf null Treffer gefunden werden.
Vielen Dank für Eure Hilfe
Sub main()
Dim db_sql As String
db_sql = "select * from ADRESSEN where NAME like 'x%'"
Call db_abfrage(db_sql)
Call db_abfrage(db_sql)
End Sub
Private Sub db_abfrage(ByVal db_sql As String)
Dim db_constr As String = "Provider = Microsoft.jet.oledb.4.0; data source = c:\;Extended Properties=dBase IV"
Dim db_table As New DataTable()
Using db_conn As New System.Data.OleDb.OleDbConnection(db_constr)
db_conn.Open()
Using db_cmd As New OleDb.OleDbCommand(db_sql, db_conn)
Using db_DataReader As OleDb.OleDbDataReader = db_cmd.ExecuteReader()
db_table.Load(db_DataReader)
db_DataReader.Close()
End Using
End Using
db_conn.Close()
End Using
MsgBox(db_table.Rows.Count)
End Sub
Ich versuche in Visual Basic 2010 Express eine DBF-Datenbank auszulesen, wobei gegebenenfalls mehrere Abfragen hintereinander erforderlich sind.
Bei dem beigeschlossenen Beispiel verstehe ich nicht, warum bei dem ersten Aufruf 10 und bei dem zweiten Aufruf null Treffer gefunden werden.
Vielen Dank für Eure Hilfe
Sub main()
Dim db_sql As String
db_sql = "select * from ADRESSEN where NAME like 'x%'"
Call db_abfrage(db_sql)
Call db_abfrage(db_sql)
End Sub
Private Sub db_abfrage(ByVal db_sql As String)
Dim db_constr As String = "Provider = Microsoft.jet.oledb.4.0; data source = c:\;Extended Properties=dBase IV"
Dim db_table As New DataTable()
Using db_conn As New System.Data.OleDb.OleDbConnection(db_constr)
db_conn.Open()
Using db_cmd As New OleDb.OleDbCommand(db_sql, db_conn)
Using db_DataReader As OleDb.OleDbDataReader = db_cmd.ExecuteReader()
db_table.Load(db_DataReader)
db_DataReader.Close()
End Using
End Using
db_conn.Close()
End Using
MsgBox(db_table.Rows.Count)
End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „stauder“ ()