Jag har i det längsta försökt att klara det här problemet själv, men... En kommentar bara till detta inlägg (och andra liknande det). Nästan alltid när man har den här typen av problem är det bästa man kan göra att helt enkelt skriva ut den SQL-sats man försöker exekvera och se om den ser korrekt ut. På det sättet ser man mycket enklare om det saknas några enkelfnuttar el dyl än att sitta och titta på en asp-kod som konkatenerar strängar. Likaså bör man klistra in denna SQL-sats i inlägget här (om man inte redan löst problemet själv), så blir det mycket enklare för den som ska hjälpa till och se om SQL-satsen är korrekt.Hjälp med dynamisk SQL(insert)(LÖST)
Det jag vill göra är att om visa fält/comboboxar är ifyllda, så skall dom med i inserten, annars inte.
Dessa fält gäller:
<code>
ArrNo text
SongTitel text
Kategori tal
Album tal
Forfattare tal
Forfattare2 tal
Forfattare3 tal
Hide ja/nej
STIM text
Anteck text(pm)
ValueVarde = "'" & strArrNo & "','" & strTitel & "'," & strKategori & "," & strAlbum & "," & strForfattare & ""
If Combo5.Text > "" Then
SQLVarde = SQLVarde & ",Forfattare2"
ValueVarde = ValueVarde & "," & strForfattare2 & ""
End If
If Combo6.Text > "" Then
SQLVarde = SQLVarde & ",Forfattare3"
ValueVarde = ValueVarde & "," & strForfattare3 & ""
End If
If Text1(1).Text > "" Then
SQLVarde = SQLVarde & ",STIM"
ValueVarde = ValueVarde & ",'" & strStim & "'"
End If
SQLVarde = SQLVarde & ",HIDE,Anteck"
ValueVarde = ValueVarde & ",'" & strHide & "','" & strAnteck & "'"
SQL = ("Insert INTO t_SongTitlar('" & SQLVarde & "')Values('" & ValueVarde & "')")
'MsgBox SQL
'Kolla om ArrNo finns
SQL1 = "Select ArrNo From t_SongTitlar WHERE ArrNo = '" & strArrNo & "'"
Set Rst = Con.Execute(SQL1)
If Not Rst.EOF Then
eInfo = "Detta Arrno Är upptaget"
snacka.Speak "Chose another number "
Fyll_Titlar
Combo1.Text = strTitel
Text1(0).Text = ""
Text1(0).SetFocus
Else
Set Rst = Con.Execute(SQL)
snacka.Speak "Saving new title as " & Combo1.Text
eInfo.Caption = "Lägger till: " & Combo1.Text
Command1(3).Enabled = False
Fyll_Titlar
Combo1.Text = strTitel
End If
</code>
Jag tror att problemet är där jag försöker att plocka ihop SQL:en, SQLVarde och Valuevärde.
Några förslag??
****************************************
Nu är det löst, det var några enkelfnuttar för mycket.Sv: Allmän kommentar till denna ty av problem