Jeg har en tabel i en access DB, der hedder tbl_auktion.
dato_ned h_bud udregnet mindstepris bruger_id
Jeg har et sql kald som vælger alle de auktioner hvor h_bud er større end mindstepris og now() er større end dato_ned og udregnet = false. (laver jeg selv) ;)
Hvis disse betingelser er opfyldt, skal der tages 10% af h_bud. De 10% skal så tillægges konto_ialt i tbl_konto, hvor login_id = bruger_id fra tbl_auktion. Ydermere skal feltet 'udregnet' i tbl_auktion sættes til true.
TBL_KONTO navn login_id konto_ialt
Håber i forstår hvad jeg mener. ( Jeg ved det lyder forvirrende )
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Det kunne nok laves smartere, hvis man kendte lidt mere til SQL-kald end jeg gør, så man ikke skulle kommunikere med databasen så mange gange, men du kan jo prøve denne her: (ved ikke om den virker) ------------------------------------- strSQL = "SELECT [bruger_id], [h_bud] FROM [tbl_auktion] WHERE (...)" Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF Set rs2 = Conn.Execute("SELECT [konto_ialt] FROM [tbl_konto] WHERE [login_id] = " & rs("bruger_id"))
Conn.Execute(strSQL = "UPDATE [tbl_konto] SET [konto_ialt] = " & CInt(rs2("konto_ialt")) + (CInt(rs("h_bud")) * 10) / 100 & " WHERE [login_id] = " & rs("bruger_id")) Conn.Execute(strSQL = "UPDATE [tbl_auktion] SET [udregnet] = 'True' WHERE [login_id] = " & rs("bruger_id"))
rs2.Close rs.MoveNext Loop End If rs.Close ------------------------------------ Så skal du bare rette din WHERE til i: strSQL = "SELECT [bruger_id], [h_bud] FROM [tbl_auktion] WHERE (...)"
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.
