webForumDet fria alternativet
Logga in / Bli medlem

Syntax fel i INSERT INTO-uttryck

Databaser & SQL

3 svar · 233 visningar · startad av aleborg

Medlem sedan jan. 20013 341 inlägg
Frågan#1

Vad är fel på den här:

Insert Into Domain
(DomPaket, DomName, DomSiteID, DomPath, DomWww, DomData, DomStats, DomAnonym, DomAnonPass, DomAdmin, DomAdminPass, DomEpUser, DomEpAccounts, DomEpUtrymme, DomEpPass, DomFtpAddress, DomFtpUser, DomFtpPass, DomUtrymme)
VALUES('Erbjudande 1', 'www.domain.com', '3', 'www.domain.com', 'www', 'data', 'stats', 'www.domain.com', 'webbat', 'domain.com', '45433bj353', 'webmaster@domain.com', '15', '25600', '45433bj353', 'ftp.domain.com', 'domain1', '45433bj353', '40960')

Det är vad jag får när jag skriver ut:

    'If UseFolders.Value = vbChecked Then
        Dim roten As String
        roten = Harddisk & txtRoot.Text
        iaRoot = ", DomPath, DomWww, DomData, DomStats"
        ibRoot = ", '" & roten & "', '" & txtWww.Text & "', '" & txtData.Text & "', '" & txtStats.Text & "'"
    'End If
    'If UseUserAccounts.Value = vbChecked Then
        iaKonto = ", DomAnonym, DomAnonPass, DomAdmin, DomAdminPass"
        ibKonto = ", '" & txtWebbkonto.Text & "', '" & txtWebbPass.Text & "', '" & txtAdminKonto.Text & "', '" & txtAdminPass.Text & "'"
    'End If
    'If UseMail.Value = vbChecked Then
        iaMail = ", DomEpUser, DomEpAccounts, DomEpUtrymme, DomEpPass"
        ibMail = ", '" & txtEmail.Text & "', '" & txtAccounts.Text & "', '" & Mailutrymme.Text & "', '" & txtEmailPass.Text & "'"
    'End If
    'If UseFtp.Value = vbChecked Then
        iaFtp = ", DomFtpAddress, DomFtpUser, DomFtpPass, DomUtrymme"
        ibFtp = ", '" & Replace(damainnamnet.Text, "www.", "ftp.") & "', '" & txtFtpUser.Text & "', '" & txtFtpPass.Text & "', '" & txtFtpKvot.Text & "'"
    'End If
    'If UseIIS.Value = vbChecked Then
        Dim SQLlist As String
        SQLlist = "Insert Into Domain"
        SQLlist = SQLlist & "(DomPaket, DomName, DomSiteID" & iaRoot & iaKonto & iaMail & iaFtp & ")"
        SQLlist = SQLlist & "VALUES('" & UserKonto.Text & "', '" & damainnamnet.Text & "', '3'" & ibRoot & ibKonto & ibMail & ibFtp & ")"
        'KundOvrigt.Text = SQLlist
        GetConn.Execute (SQLlist)
    'End If

Fel:
Syntax fel i INSERT INTO-uttryck

Det är en Access databas

Medlem sedan dec. 1999707 inlägg
#2

Är alla fälten av sträng-typ?

Medlem sedan jan. 20013 341 inlägg
#3

japp

Medlem sedan jan. 20013 341 inlägg
#4

Hittade felet! Det var kopplingen till DB:n hade satt dit fel drivrutin :r Använder så sällan Access

254 ms totalt · 4 externa anrop · v20260731065814-full.14655e19
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)