---
title: "Ta ut första bokstaven"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/79008-ta-ut-första-bokstaven"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Athena"
published: "2003-06-06T08:26:45.000Z"
updated: "2003-06-06T09:32:05.000Z"
replies: 3
views: 253
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/databaser-sql/79008-ta-ut-första-bokstaven"
---

# Ta ut första bokstaven

## #1 — Athena, 2003-06-06T08:26Z

Jag skulle vilja skriva en funktion i dbAccess där man tar ut första bokstaven i en tabell. Hur skriver jag då?

Permalänk: https://www.webforum.nu/p/79008

## #2 — m_soderlund, 2003-06-06T08:43Z

Med referering till [denna tråden](http://www.webforum.nu/showthread.php?s=&postid=648704#post648704) så borde denna kod fungera:

```
Dim Cn, objADOX

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

Set objADOX = Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection = Cn

For Each table in objADOX.Tables
	If table.Type = "TABLE" Then
		response.write Left(table.Name,1) & ", "
	End If
Next

Cn.Close : Set Cn = Nothing
objADOX.Close : Set objADOX = Nothing
```

Permalänk: https://www.webforum.nu/p/1074912

## #3 — Athena, 2003-06-06T09:24Z

Tack Söderlund!

Tack för hjälpen Söderlund! :birp

Permalänk: https://www.webforum.nu/p/1074932

## #4 — m_soderlund, 2003-06-06T09:32Z

Jorå, det var så lite så. ;)

Men du - man kan svara i sin egen tidigare tråd, bättre än att skapa en ny tråd för att enbart tacka mig (även om man känner sig hedrad ;)) ;)

Permalänk: https://www.webforum.nu/p/1074937

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/79008-ta-ut-första-bokstaven