Notifikationer

Markér alle som læst Log ud

dougheffernan Nybegynder

06. juli 2006 - 11:53 Der er 9 kommentarer og
1 løsning

Opdatere data hvis eksisterer i forvejen

Følgende kode bruges til at indsætte data, men hvis dataene eksisterer i forvejen, så går koden i fejl, da PK består af nogle af felterne. Men er det muligt i .Update statementet at checke returkoden og så gå videre til de næste data?

With rsRecordSet
.AddNew
.Fields("Date") = datDato
.Fields("Shift") = intShift
For intX = 1 To UBound(varDataHeaders, 2)
.Fields(varDataHeaders(1, intX)) = rngDataArea(intR, intX)
Next
.Update
End With

Synes godt om

dougheffernan Nybegynder

06. juli 2006 - 12:12 #1

Alternativet er at slette de gamle records først og så tilføje de nye.

Synes godt om

terry Ekspert

06. juli 2006 - 12:44 #2

You could use an SQL to check if the records exists and if so go on to then next record. You can also use the dcount() function to see if it exists.
And a quick and dirt fix would be to catch the error and then go to the next record

Synes godt om

dougheffernan Nybegynder

07. juli 2006 - 08:50 #3

Exactly!
The only problem is how I make the code jump to the next record (in the above code)

Synes godt om

dougheffernan Nybegynder

07. juli 2006 - 08:50 #4

And I can't use DCount.....it's data from an Excel spreadsheet that gets pushed into the database...

Synes godt om

dougheffernan Nybegynder

07. juli 2006 - 08:56 #5

I like the "catch error and move to next record"... ;)

Synes godt om

terry Ekspert

07. juli 2006 - 09:31 #6

Did you find out how to move to the next record?

If the Excel sheet gets imported into Access first then you could use DCount. But it was maybe an ide ato try selecting and if it exist replace .AddNew with .Edit

Synes godt om

dougheffernan Nybegynder

07. juli 2006 - 10:39 #7

I just found out that it's quite alright to delete the data first, then transfer them again, but how (from Excel)?

I need to delete all data that has a particular Date, Shift and ID. How?

Dim cnConnection As ADODB.Connection
Dim rsRecordSetDelete As ADODB.Recordset

cnConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb"
cnConnection.Open

Set rsRecordSet = New ADODB.Recordset

rsRecordSet.Open strTable, cnConnection, adOpenKeyset, adLockOptimistic, adCmdTable

With rsRecordSetDelete
.Delete
.?
.?
End With

Synes godt om

terry Ekspert

07. juli 2006 - 10:48 #8

Dont use ADO muchso this i sjust a guess

cnConnection.Execute ("DELETE * FROM " & strTable ,, adCmdText)

Synes godt om

dougheffernan Nybegynder

10. juli 2006 - 08:48 #9

You are correct, terry, thanks for your help.

Synes godt om

terry Ekspert

10. juli 2006 - 08:57 #10

selv tak, og god dag

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS