/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Tabelopdatering ACCESS2000 - hvorfor fejl ~
Fra :
John S Hansen
Dato :
23-07-01 22:02
Kære NG
Når jeg kører nedenstående kode får jeg fejlen: "Den ønskede handling
understøttes ikke af objektet eller provideren"
Den fejler i linie med .Fields(NStr).Value = "Andreas"
HVAD ER DER DOG GALT???????
----------------------------------------------------------------------------
------------------------------------------------
Providerstring: Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
Source=M:\Skadereg\Skade.mdb;Mode=Share Deny None;Extended Properties="";Jet
OLEDB:System database=C:\PROGRA~1\FÆLLES~1\SYSTEM\SYSTEM.MDW;Jet
OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine
Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk
Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database
Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt
Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet
OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
----------------------------------------------------------------------------
------------------------------------------------
Function Skriv()
Skrivetest
End Function
Sub Skrivetest()
MsgBox "Skrivetest"
Dim StrSQL As String
Dim NStr As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Debug.Print cnn.ConnectionString
Set rst = New ADODB.Recordset
StrSQL = "SELECT * FROM Person WHERE Navn='John'"
NStr = "Navn"
With rst
.Open Source:=StrSQL, ActiveConnection:=cnn,
CursorType:=adOpenKeyset
.Fields(NStr).Value = "Andreas"
.Update
.Close
End With
Set rst = Nothing
Set cnn = Nothing
End Sub
Rayman (
31-07-2001
)
Kommentar
Fra :
Rayman
Dato :
31-07-01 17:59
Du skal i hvert fald sætte cursortype FØR du åbner...
Derudover, kan det være en integritetsfejl....
"John S Hansen" <CSJOHA@VESTAMT.DK> wrote in message
news:9ji3b4$mh9$1@news.inet.tele.dk...
> Kære NG
> Når jeg kører nedenstående kode får jeg fejlen: "Den ønskede handling
> understøttes ikke af objektet eller provideren"
> Den fejler i linie med .Fields(NStr).Value = "Andreas"
>
> HVAD ER DER DOG GALT???????
> --------------------------------------------------------------------------
--
> ------------------------------------------------
> Providerstring: Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
> Source=M:\Skadereg\Skade.mdb;Mode=Share Deny None;Extended
Properties="";Jet
> OLEDB:System database=C:\PROGRA~1\FÆLLES~1\SYSTEM\SYSTEM.MDW;Jet
> OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine
> Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk
> Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database
> Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt
> Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet
> OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
> --------------------------------------------------------------------------
--
> ------------------------------------------------
>
> Function Skriv()
> Skrivetest
> End Function
>
> Sub Skrivetest()
> MsgBox "Skrivetest"
> Dim StrSQL As String
> Dim NStr As String
> Dim cnn As ADODB.Connection
> Dim rst As ADODB.Recordset
> Set cnn = CurrentProject.Connection
> Debug.Print cnn.ConnectionString
> Set rst = New ADODB.Recordset
> StrSQL = "SELECT * FROM Person WHERE Navn='John'"
> NStr = "Navn"
> With rst
> .Open Source:=StrSQL, ActiveConnection:=cnn,
> CursorType:=adOpenKeyset
> .Fields(NStr).Value = "Andreas"
> .Update
> .Close
> End With
> Set rst = Nothing
> Set cnn = Nothing
> End Sub
>
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.