Det har inte angätts något värde för ditt & datt.

3 svar · 295 visningar · startad av Jesper T 5 jan. 2005

Jesper TMedlem sedan nov. 20017 144 inlägg

Frågan5 jan. 2005 15:27#1

Det klickar när jag lägger till "saveCopy"
Skriver jag ut sql:en ser det ok ut. Vad kan fela?

Dim saveCopy As Boolean
[red]saveCopy = Check1.Value[/red]
 sql = "INSERT INTO [mess] (msgTo, msgToName, msgFrom, msgFromName, msgSubject, msgBody, msgPrio, msgDate, [red]msgDelSender[/red]) VALUES('" & _
         txtToId.Text & "','" & lblTo.Caption & "','" & txtLoggedInUser.Text & "','" & GetLogonDomainuser() & "','" & txtSubj.Text & "','" & txtBody.Text & "','Nada','" & Now() & "', [red]" & saveCopy & "[/red])"
         'MsgBox sql
         connect.Execute (sql), , 128

Jesper TMedlem sedan nov. 20017 144 inlägg

6 jan. 2005 18:28#2

Vänligen flytta detta till SQL-forumet, tror att det hör hemma där bättre än här.
Kan tillägga att detta är en Access-databas.

Jesper TMedlem sedan nov. 20017 144 inlägg

7 jan. 2005 00:34#3

sql = "INSERT INTO [mess] (msgTo, msgToName, msgFrom, msgFromName, msgSubject, msgBody, msgPrio, msgDate, msgDelSender) VALUES('" & _
         txtToId.Text & "','" & lblTo.Caption & "','" & txtLoggedInUser.Text & "','" & GetLogonDomainuser() & "','" & txtSubj.Text & "','" & txtBody.Text & "','Nada','" & Now() & "', " & Check1.Value & ")"
         'MsgBox sql
         connect.Execute (sql), , 128

Varför göra det lätt när man kan göra det svårt? ;)

@ndersMedlem sedan juni 200032 967 inlägg

7 jan. 2005 06:39#4

Flyttas från Visual Basic, enligt önskemål. :)

Mvh