Avatar billede mvhansen Nybegynder
24. november 2005 - 23:09 Der er 9 kommentarer og
2 løsninger

Indsæt af data fra vb6 til access

Hej Eksperter

Jeg har et problem med nogle koder til at skrive i access mdb
er der en der kan se hvad der er i vejen

Her er koderne

Dim MyDb As Database
Dim SQLQuery, FilName As String


Private Sub Insert_Click()
    FileName = "D:\db\PersonTabel.mdb"
    Set MyDb = DBEngine.Workspaces(0).OpenDatabase(FileName)
    SQLQuery = "INSERT INTO PersonTabel VALUES ("
    SQLQuery = SQLQuery & txtKundenummer.Text
    SQLQuery = SQLQuery & ",'" & txtKundenavn.Text & "'"
    SQLQuery = SQLQuery & ",'" & txtAdresse.Text & "'"
    SQLQuery = SQLQuery & "," & txtPostnummer.Text & "'"
    SQLQuery = SQLQuery & ",'" & txtBy.Text & "')"
    MyDb.Execute SQLQuery
    MyDb.Close
   
End Sub

Jeg får denne fejl

Run-tim error '3075'
Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "7500','Holstebro')".

er der en der kan hjælpe mig

på forhånd tak
mvhansen
Avatar billede kabbak Professor
25. november 2005 - 00:19 #1
enten skal denne linie

SQLQuery = SQLQuery & "," & txtPostnummer.Text & "'"
se sådan ud
SQLQuery = SQLQuery & ",'" & txtPostnummer.Text & "'"

eller

SQLQuery = SQLQuery & "," & txtPostnummer.Text
Avatar billede ctc-3d Nybegynder
25. november 2005 - 15:15 #2
Du mangler at fortælle hvilke felter værdierne skal indsættes i

    SQLQuery = "INSERT INTO PersonTabel (Kundernr, Kundenavn, Adresse, Postnummer, By) VALUES ("

og som kabbak siger, så er der et ' for meget efter txtPostnummer.Tex
Avatar billede mvhansen Nybegynder
25. november 2005 - 17:27 #3
Tak skal i have jeg hade overset  (& "'")
I er jo kommen med rigtig svar vær hvem skal have point
Kan i dele dem ?

med venlig hilsen
mvhansen
Avatar billede kabbak Professor
25. november 2005 - 18:11 #4
et svar ;-))
Avatar billede mvhansen Nybegynder
25. november 2005 - 18:25 #5
Hvad nu hvis PersonTabel.mdb ligger på min server hvordan ser
FileName = "D:\db\PersonTabel.mdb" så ud



Private Sub Insert_Click()
    FileName = "D:\db\PersonTabel.mdb"
    Set MyDb = DBEngine.Workspaces(0).OpenDatabase(FileName)
    SQLQuery = "INSERT INTO PersonTabel VALUES ("
    SQLQuery = SQLQuery & txtKundenummer.Text
    SQLQuery = SQLQuery & ",'" & txtKundenavn.Text & "'"
    SQLQuery = SQLQuery & ",'" & txtAdresse.Text & "'"
    SQLQuery = SQLQuery & "," & txtPostnummer.Text
    SQLQuery = SQLQuery & ",'" & txtBy.Text & "')"
    MyDb.Execute SQLQuery
    MyDb.Close
   
End Sub


mvh
mvhansen
Avatar billede mvhansen Nybegynder
25. november 2005 - 18:49 #6
Hvad nu hvis PersonTabel.mdb ligger på min server hvordan ser
FileName = "D:\db\PersonTabel.mdb" så ud
jEG HAR PRØVET  FileName = "www.mitdomane.dk\db\PersonTabel.mdb"
virker ikke



Private Sub Insert_Click()
    FileName = "D:\db\PersonTabel.mdb"
    Set MyDb = DBEngine.Workspaces(0).OpenDatabase(FileName)
    SQLQuery = "INSERT INTO PersonTabel VALUES ("
    SQLQuery = SQLQuery & txtKundenummer.Text
    SQLQuery = SQLQuery & ",'" & txtKundenavn.Text & "'"
    SQLQuery = SQLQuery & ",'" & txtAdresse.Text & "'"
    SQLQuery = SQLQuery & "," & txtPostnummer.Text
    SQLQuery = SQLQuery & ",'" & txtBy.Text & "')"
    MyDb.Execute SQLQuery
    MyDb.Close
   
End Sub


mvh
mvhansen
Avatar billede kabbak Professor
26. november 2005 - 14:00 #7
Avatar billede mvhansen Nybegynder
26. november 2005 - 15:03 #8
Hej jeg har prøvet men det virker ikke


Private Sub Insert_Click()
    FileName = "www.mitdomane.dk\\db\PersonTabel.mdb"
    Set MyDb = DBEngine.Workspaces(0).OpenDatabase(FileName)
    SQLQuery = "INSERT INTO PersonTabel VALUES ("
    SQLQuery = SQLQuery & txtKundenummer.Text
    SQLQuery = SQLQuery & ",'" & txtKundenavn.Text & "'"
    SQLQuery = SQLQuery & ",'" & txtAdresse.Text & "'"
    SQLQuery = SQLQuery & "," & txtPostnummer.Text
    SQLQuery = SQLQuery & ",'" & txtBy.Text & "')"
    MyDb.Execute SQLQuery
    MyDb.Close
   
End Sub

den skriver run-time error'3044'
"T:\michaelhansen\www.mitdomane.dk\db\PersonTabel.md
er ikke en gyldig sti.Kontroller,at stinavnet er stavet korrekt,og at
du er tilsluttet den server,hvor filen findes.

mvhansen
Avatar billede ctc-3d Nybegynder
26. november 2005 - 15:12 #9
hmm... hvis du vil have adgang til den, så skal der http:// foran
FileName = "http://www.mitdomane.dk/db/PersonTabel.mdb"

det er dog ikke anbefalsesværdigt, da du ikke har skriverettigheder via http

brug i stedet ftp (eller anden protokol med skriverettigheder?) så det kommer til at se sådan ud
FileName = "www.mitdomane.dk/db/PersonTabel.mdb"" target="_blank">ftp://brugernavn:kode@www.mitdomane.dk/db/PersonTabel.mdb"
Avatar billede ctc-3d Nybegynder
26. november 2005 - 15:14 #10
det kan måske være at du bliver nødt til at oprette en ftp forbindelse og så hente en lokal kopi for at få det til at virke...
Avatar billede mvhansen Nybegynder
26. november 2005 - 15:29 #11
hej der skal ikke ændres i
Set MyDb = DBEngine.Workspaces(0).OpenDatabase(FileName)

mvh
mvhansen
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester