Søg
Avatar billede darth-domino Nybegynder
05. august 2005 - 07:53 Der 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!

Nogen der kan hjælpe med det...
Avatar billede kabbak Professor
05. august 2005 - 12:35 #1
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 & "*'"
Avatar billede darth-domino Nybegynder
08. august 2005 - 07:53 #2
Ja, men eks:
d1 = 141,6
D = 250
b = 20

Den finder den ikke!

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
Avatar billede darth-domino Nybegynder
08. august 2005 - 11:43 #3
Lukker
Nyt spm:
http://www.eksperten.dk/spm/638221
Avatar billede 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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
White papers
Flere white papers »