Avatar billede jeg_var_gangsta Nybegynder
18. september 2003 - 14:49 Der er 10 kommentarer og
1 løsning

Indsæt værdi af felt i VB program, via SQL, til MS Access DB

Jeg vil gerne have en kort gennemgang af, hvordan man indsætter værdien af en TextBox i en Access-database, via SQL.

Jeg har en database, som jeg har sat til System DSN under navnet "MinDatabase". I den er der en tabel ved navn "news". News-tabellen indeholder to felter ved navn f_content og f_title.

I mit program har jeg to felter, med samme navne som felterne i News-tabellen, og en OK-knap. Når jeg trykker OK vil jeg have indsat felterne i min database i tabellen news.

Kan det lade sig gøre ved brug af SQL? (altså, en "insert into news (f_content, f_title) values ('værdi', 'værdi')

Håber nogen kan hjælpe...
MVH Christian
Avatar billede overchord Nybegynder
18. september 2003 - 14:52 #1
Jeps du har stort set skrevet loesningen selv. Opret forbindelsen til din DB og koer den sql du skrev.
Avatar billede jeg_var_gangsta Nybegynder
18. september 2003 - 14:54 #2
Vil du skrive et eksempel?
Avatar billede jeg_var_gangsta Nybegynder
18. september 2003 - 14:54 #3
Det eneste jeg skal bruge er eksemplet, da jeg er i tvivl om syntaksen...
Avatar billede ocp Nybegynder
18. september 2003 - 15:03 #4
Sådan?

dim cn
dim sContent, sTitle
set cn = server.createobject("adodb.connection")

cn.open("dsn=MinDatabase;uid=admin;pwd=;")

sContent = replace(request.form("f_content"),"'","''")
sTitle = replace(request.form("f_title"),"'","''")

cn.execute("insert into news values('" & sContent & "','" & sTitle & "')")

cn.close
Avatar billede ocp Nybegynder
18. september 2003 - 15:04 #5
Læg koden overfor i en asp-side du kalder "submit.asp" og lav flg. i det oprindelige dokument:

<form action=submit.asp method=post>
  <!-- dine felter indsættes her -->
  <input type=submit>
</form>
Avatar billede jeg_var_gangsta Nybegynder
18. september 2003 - 15:11 #6
ocp > mit indlæg handler ikke om ASP, men om Visual Basic... Se kategori :)
Avatar billede tubber Juniormester
18. september 2003 - 18:30 #7
Dim ws As Workspace
Dim db As Database
    Set ws = Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\sms.mdb")
    db.Execute "INSERT INTO sms (navn, nummer) VALUES ('" & text1.Text & "','" & text2.text & "');"

og så skal du ha en dao refference
Avatar billede jeg_var_gangsta Nybegynder
18. september 2003 - 21:36 #8
tubber > Hvad er en dao reference, og hvordan får jeg den?
Avatar billede ocp Nybegynder
18. september 2003 - 22:07 #9
Jamen, så retter vi lidt til:

dim cn
dim sContent as string
dim sTitle as string
set cn = createobject("adodb.connection")

cn.open("dsn=MinDatabase;uid=admin;pwd=;")

sContent = replace(f_content.text,"'","''")
sTitle = replace(f_title.text,"'","''")

cn.execute("insert into news values('" & sContent & "','" & sTitle & "')")

cn.close
Avatar billede tubber Juniormester
18. september 2003 - 22:12 #10
den finder du oppe i menu'en project.....
og så scroller du ned til Microsoft DAO x.xx Object Library og sætter flueben i den version der er nyest......

/Tubber
Avatar billede jeg_var_gangsta Nybegynder
19. september 2003 - 12:13 #11
ocp > Det virker, mange tak :)
tubber > jeg har tilsyneladende ikke noget Microsoft DAO Object Lib. :(

/Christian
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