---
title: "Från MySQL till Access, hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/155994-från-mysql-till-access-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MadMange"
published: "2007-01-15T15:13:15.000Z"
updated: "2007-01-15T16:14:27.000Z"
replies: 6
views: 413
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/155994-från-mysql-till-access-hur"
---
# Från MySQL till Access, hur?
## #1 — MadMange, 2007-01-15T15:13Z
Har denna kod som skall generera nyheter till ett forum, dock så använder jag mig av en Access databas och skulle nu behöva hjälp med att ändra från MySQL till Access, alltså db-kopplingen.
någon som har lust att hjälpa till? :r
```
2: <%
3:
4:
5:
6: '#################################################
7: '# Database options #
8: '#################################################
9:
10: const db_Server = "localhost"
11: const db_Password = "password"
12: const db_Username = "user"
13: const db_Database = "aspbb"
14:
15: 'Database connection
16: Dim objConn
17: Set objConn = Server.CreateObject("ADODB.Connection")
18: objConn.Open "Driver={MySQL ODBC 3.51 Driver};server="&db_Server&";uid="&db_Username&";pwd="&db_Password&";database="&db_Database&""
19:
20: '//Converts UNIX timestamps into the format the current webserver use.
21: Function uTimeStamp(byval dDate) '// Bring the date back from database and show in current session.LCID
22: on error resume next
23: uTimeStamp = DateAdd("s", dDate, "01/01/1970 00:00:00")
24: if err then
25: cTimeStamp = int(0)
26: end if
27: End Function
28:
29:
30: dim strSQL
31: strSQL = "SELECT * FROM aspbb_topics WHERE tforumid=1 ORDER BY tdatecreate DESC Limit 10"
32: set objNews = objConn.Execute(strSQL)
33:
34: Do Until objNews.EOF
35: Response.Write "
" & vbNewLine
38: Response.Write " " & vbNewLine
39: objNews.MoveNext
40: Loop
41:
42: objNews.Close : Set objNews = Nothing
43: objConn.Close : Set objConn = Nothing
44:
45: %>
```
Permalänk: https://www.webforum.nu/p/155994
## #2 — emission, 2007-01-15T15:26Z
För databaskopplingar kan du kolla på
Sedan måste SQL-frågan ändras till:
```
SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=1 ORDER BY tdatecreate DESC
```
Permalänk: https://www.webforum.nu/p/1923949
## #3 — MadMange, 2007-01-15T15:42Z
> **emission skrev:**
>
> För databaskopplingar kan du kolla på
>
> Sedan måste SQL-frågan ändras till:
>
>
>
> ```
> SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=1 ORDER BY tdatecreate DESC
> ```
Ok nu ser det ut så här
```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db.mdb")
'//Converts UNIX timestamps into the format the current webserver use.
Function uTimeStamp(byval dDate) '// Bring the date back from database and show in current session.LCID
on error resume next
uTimeStamp = DateAdd("s", dDate, "01/01/1970 00:00:00")
if err then
cTimeStamp = int(0)
end if
End Function
dim strSQL
strSQL = "SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=1 ORDER BY tdatecreate DESC"
set objNews = objConn.Execute(strSQL)
Do Until objNews.EOF
Response.Write "
" & vbNewLine
Response.Write " " & vbNewLine
objNews.MoveNext
Loop
objNews.Close : Set objNews = Nothing
objConn.Close : Set objConn = Nothing
%>
```
Men då får jag meddelandet :q
```
Microsoft VBScript runtime error '800a01a8'
Object required: 'objConn'
/news.asp, line 16
```
Permalänk: https://www.webforum.nu/p/1923957
## #4 — Peter S, 2007-01-15T15:48Z
Ersätt samtliga förekomster av objConn med Conn (eller tvärtom).
Permalänk: https://www.webforum.nu/p/1923958
## #5 — MadMange, 2007-01-15T15:55Z
> **Peter S skrev:**
>
> Ersätt samtliga förekomster av objConn med Conn (eller tvärtom).
OK!
Funkar detta tror du? (har lite prob med webhotellet)
```
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db.mdb")
'//Converts UNIX timestamps into the format the current webserver use.
Function uTimeStamp(byval dDate) '// Bring the date back from database and show in current session.LCID
on error resume next
uTimeStamp = DateAdd("s", dDate, "01/01/1970 00:00:00")
if err then
cTimeStamp = int(0)
end if
End Function
dim strSQL
strSQL = "SELECT TOP 10 * FROM aspbb_topics WHERE tforumid=1 ORDER BY tdatecreate DESC"
set objNews = objConn.Execute(strSQL)
Do Until objNews.EOF
Response.Write "
" & vbNewLine
Response.Write " " & vbNewLine
objNews.MoveNext
Loop
objNews.Close : Set objNews = Nothing
objConn.Close : Set objConn = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1923959
## #6 — Peter S, 2007-01-15T16:07Z
Tycker det ser rätt ut.
Permalänk: https://www.webforum.nu/p/1923962
## #7 — MadMange, 2007-01-15T16:14Z
> **Peter S skrev:**
>
> Tycker det ser rätt ut.
Jepp det funkar nu! Tack för hjälpen :birp
Permalänk: https://www.webforum.nu/p/1923964
---
Tråden på webben: https://www.webforum.nu/amne/asp/155994-från-mysql-till-access-hur