vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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: Hilfe zu DataGrid 
Autor: jenny
Datum: 05.03.03 17:29

Hallo Dirk,

habe es nochmals per Code probiert - jedoch keinen Erfolg -
es liegt aber wohl am Recordset - jedoch weiß ich nicht wo, denn wenn ich ein DataEnvironment erstelle ergibt sich im Recordset 200 Datensätze - per Code jedoch -1
und ich bekomme den obigen Fehler
daher möchte ich hier nochmals meinen Code posten.

Progr. unter WinXP mit VB 6.0

Habe unter Verweise: Microsoft ActiveX Data Objects 2.5 Library eingebunden und Komponenten: Microsoft DataGrid Control 6.0 (SP4) (OLEDB)

Option Explicit
Dim pconn_DB As adodb.Connection
Dim prec_Record As adodb.Recordset

Private Sub Verbinden()

Set pconn_DB = New adodb.Connection
pconn_DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=L:\ea\test_db\ws_atstamm.mdb;" & _
"Persist security info=False"
pconn_DB.Open
MsgBox pconn_DB.State 'Msgbox zeigt 1

Set prec_Record = New adodb.Recordset
End Sub

Private Sub cmdSuche_Click()
dim SQL AS String, Anzahl AS Integer
If prec_Record.State = 1 Then
prec_Record.Close
End If
MsgBox pconn_DB.State 'Msgbox zeigt 1
suche = trim(txtSuche.text)

SQL = "Select * from Stamm where bezeichnung like " & "'%" & Suche & "%' order by mandant"
prec_Record.Open SQL, pconn_DB,adOpenDynamic,adLockOptimistic

MsgBox prec_Record.State 'Msgbox zeigt1
Anzahl = prec_Record.RecordCount 'jedoch zeigt jetzt die Suchanfrage -1
If Anzahl > 0 then
Set dbgrd_DB.DataSource = prec_Record
end if

Danke für die Hilfe
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hilfe zu DataGrid139jenny05.03.03 12:24
Re: Hilfe zu DataGrid422Dirk05.03.03 13:45
Re: Hilfe zu DataGrid51jenny05.03.03 15:05
Re: Hilfe zu DataGrid234Dirk05.03.03 15:17
Re: Hilfe zu DataGrid52jenny05.03.03 17:29
Re: Hilfe zu DataGrid242Dirk06.03.03 09:45
Re: Hilfe zu DataGrid40jenny10.03.03 13:15

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