Code:
'Imports bzgl. Windows setzen
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Globalization
Imports System.Windows.Forms
Imports System.Resources
Imports System
Imports System.Windows
Imports System.Data.Odbc'Imports bzgl. AutoCAD setzen
Imports Autodesk.AutoCAD.Runtime.RuntimeSystem
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices.Image
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Colors
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.GraphicsSystem.View
'....
Dim Filter As String
Filter = Replace(TBFilter.Text, "*", "%")
Dim dbName As String
dbName = TBFolder.Text & "\Borm_SQL.mdb"
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim reader As OleDb.OleDbDataReader
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbName
cmd.Connection = con
Select Case CB_Auswahl.Text
Case "Artikelnummer"
cmd.CommandText = "Select PROD_DEFINITION.PD_NUM, ... LIKE '" & Filter & "'"
Case "Bezeichnung"
cmd.CommandText = "Select PROD_DEFINITION.PD_NUM, ... LIKE '" & Filter & "'"
'...
'...
Try
con.Open()
reader = cmd.ExecuteReader()
ListView1.Items.Clear()
ListView1.View = System.Windows.Forms.View.Details
ListView1.OwnerDraw = True
Do While reader.Read()
Dim LItem As ListViewItem = ListView1.Items.Add("")
LItem.SubItems.Add("").ToString()
LItem.SubItems.Add(reader("PD_NUM").ToString())
LItem.SubItems.Add(reader("PD_BEZ").ToString())
'...
Loop
Catch ex As Exception
MsgBox(ex.Message)
Return
Finally
'reader.Close()
con.Close()
End Try
Label1.Text = "Anzahl ListViewzeilen = " & ListView1.Items.Count
End Sub
Foren auf CAD.de (alle Foren)
| 
