vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 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

Visual-Basic Einsteiger
Re: ADO - Problem 
Autor: Micky
Datum: 13.10.02 14:29

Hallo Dieter,
ich öffne beim Programmstart eine Connection, auf der ich dann zZt. 3 (später ca. 10) Recorsets öffne.
Das alles sind sub - Prozeduren in einem Modul, die vom jeweiligen Form aus aufgerufen werden.
Public RsIC As Recordset
Public SICs As String

'Recordset erstellen + öffnen:
Dim strSQL As String
strSQL = "select * from ICs order by NameIC"
Set RsIC = New Recordset
Set RsIC.ActiveConnection = Conn
RsIC.CursorType = adOpenKeyset
RsIC.LockType = adLockOptimistic
RsIC.Open (strSQL), , , , adCmdTableDirect
Set frmICs.DataGrid1.DataSource = RsIC
DatenAusrichtenICs

'Suchen:
Dim SuchString As String
SuchString = frmICs.txtBezeichnung.Text
SuchString = "NameIC= " & SICs
RsIC.MoveFirst
RsIC.Find SuchString
If RsIC.EOF Then MsgBox "Suche nicht erfolgreich", vbDefaultButton1, "Hinweis:"
Set frmICs.DataGrid1.DataSource = RsIC
frmICs.DataGrid1.Columns("ID_IC").Visible = False
DatenAusrichtenICs

In der "frmICs.txtBezeichnung.Text" steht ein String (z.B. Test1, oder TDA1521).
Das zugehörigen Access-DB-Feld, "NameIC, ist vom Typ Text und indiziert.
Zwei Recordsets funktionieren ja, nur eben bei dem einen das "Find" nicht.

Cu
Micky
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ADO - Problem634Micky13.10.02 13:50
Re: ADO - Problem367ModeratorDieter13.10.02 14:01
Re: ADO - Problem375Micky13.10.02 14:29
Re: ADO - Problem371ModeratorDieter13.10.02 14:32
Dieter ist genial!361Micky13.10.02 14:53

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