|
| |
VB & Datenbanken| Runtime error 3001 | |  | | Autor: Xaverl | | Datum: 13.12.04 13:58 |
| Hi,
hab folgendes Problem:
Habe ein einfaches Prog. geschrieben das im Grunde nur den richtigen Namen des Lieferanten zu einer Nummer ausgibt die bei uns im Wareneingang aufläuft.
Das Prog greift auf eine Access2000 db zu, das Prog ist in vb6
Public Sub Search()
Dim rs As New Recordset
Dim LiefNr As String
LiefNr = frmHaupt.Text1.Text 'Die eingegebene Lieferantennummer zum suchen
DBverbinden
rs.Open "Select Nummer, Name, Ort from Lieferanten where Nummer like '" & _
LiefNr & "'", _
con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
end sub Zuerst hat´s funktioniert, jetzt läufts überhaupt nicht mehr und hängt sich immer beim SQL -Befehl auf mit:
Run-time error '3001'
Die Argumente sind vom falschen Typ, liegen ausserhalb des Gültigkeitsbereichs oder sind miteinander unvereinbar
????????????
Konnte leider auch in google nix finden, könnt ihr mir helfen?
Vielen Dank im voraus
xaverl | |
| Re: Runtime error 3001 | | | | Autor: Prian0815 | | Datum: 13.12.04 14:39 |
| Wie hast du denn rs definiert?
Dim rs As New ADODB.Recordset
Ist die LiefNr. in der DB auch wirklich ein String - Feld?
wenn ja, dann probiers mal so:
dim sql as string
sqlstate = "SELECT Nummer, Name, Ort FROM Lieferanten WHERE(((Lieferanten.Nummer)=" _
& LiefNr & "));"
RS.Open sqlstate, con, adOpenDynamic, adLockOptimistic
Gruß Armin
P.S.: always look on the bright side of Life | |
| Re: Runtime error 3001 | | | | Autor: Xaverl | | Datum: 13.12.04 14:50 |
| Danke für die Antwort aber es wird er gleiche Fehler ausgelöst!
Feld Nummer ist ein Sring.
Verbunden wir mir der DB so:
Public Sub DBverbinden() 'Verbindet mit der Datenbank
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open PfadDB
End Sub Haste noch nen Vorschlag oder Idee? | |
| Re: Runtime error 3001 | | | | Autor: Prian0815 | | Datum: 13.12.04 16:13 |
| wie ist con denn definiert?
Public con As Object
Gruß Armin
P.S.: always look on the bright side of Life! | |
| Re: Runtime error 3001 | | | | Autor: Xaverl | | Datum: 13.12.04 16:27 |
| Hi Prian,
danke dass du so hartnäckig bist, hab auch die DB nochmal neu aufgesetztt, ich dachte die hat vielleicht nen Schuss, war aber auch nix
Public Sub DBverbinden() 'Verbindet mit der Datenbank
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open PfadDB
End Sub Der Code ist leicht abgeändert aus nem Programmierbuch "Programmieren lernen in vb6"...
Danke | |
| Re: Runtime error 3001 | | | | Autor: Xaverl | | Datum: 13.12.04 18:48 |
| so jetzt hab ich´s mal so einfach versucht zu halten wie´s geht und das ganze nochmal geschrieben, funktioniert trotzdem nicht obwohl es das ja schon mal hat????
Private Sub DBverbinden()
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "microsoft.jet.oledb.4.0"
con.Open "G:\VB-Projekte\FinkeDB\FinkeDB.mdb"
End Sub
Private Sub Command1_Click()
DBverbinden
Dim rs As New Recordset
rs.Open "Select * from Lieferanten", con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub Das ist jetzt mein gesamter Code, läuft aber trotzdem nicht, ich krieg die Krise!!!
Hat noch jemand eine Idee?
Danke | |
| Re: Runtime error 3001 | | | | Autor: Xaverl | | Datum: 13.12.04 22:23 |
| Hi,
Problem hat sich gelöst, habs über die execute gemacht und da funktionierts.
danke und servus
xaverl | |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
| |
|
Copyright ©2000-2024 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
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.