05. august 2005 - 07:53Der er
2 kommentarer og 1 løsning
SQL Sætning med Decimaler?
Jeg har denne streng: strSQL = "Select * FROM " & FlangeTabel & " Where D = " & FRM_HovedFlange.txtD.Text & " AND B = " & FRM_HovedFlange.txtb.Text & " AND d1 = " & FRM_HovedFlange.txtd1.Text & " AND Materiale like '*" & FRM_HovedFlange.cbo_Materialer.Text & "*'"
i databasen, er B, d1 og D er dee tal... og det med decimaler!
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.
Her er hele min sætning: Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\Flanger.mdb") strSQL = "Select * FROM " & FlangeTabel & " Where D = " & Val(FRM_HovedFlange.txtD.Text) & " AND B = " & Val(FRM_HovedFlange.txtb.Text) & " AND d1 = " & Val(FRM_HovedFlange.txtd1.Text) & " AND Materiale like '*" & FRM_HovedFlange.cbo_Materialer.Text & "*'" Set rsFlangeSøgning = datDB.OpenRecordset(strSQL)
rsFlangeSøgning.MoveFirst Do Until rsFlangeSøgning.EOF If IsNull(rsFlangeSøgning("Varenummer")) = True Then FRM_HovedFlange.lstListe.AddItem TabelFlangeNavn & vbTab & rsFlangeSøgning("Tegningsnummer") rsFlangeSøgning.MoveNext Else FRM_HovedFlange.lstListe.AddItem TabelFlangeNavn & vbTab & rsFlangeSøgning("Varenummer") rsFlangeSøgning.MoveNext End If Loop
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.
