---
title: "Finns databas?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/74642-finns-databas"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Asa"
published: "2003-04-21T19:06:56.000Z"
updated: "2003-04-21T21:49:04.000Z"
replies: 14
views: 316
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/74642-finns-databas"
---

# Finns databas?

## #1 — Asa, 2003-04-21T19:06Z

Hur kollar man om en databas i MySQL finns?

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

## #2 — LarsG, 2003-04-21T19:11Z

Show databases

Flyttas från ASP

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

## #3 — Asa, 2003-04-21T19:13Z

Mer kod tack! Detta ska kollas i en aspsida!

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

## #4 — niko, 2003-04-21T19:22Z

```
    Set rc = dinconnection.Execute("SHOW DATABASES LIKE 'dittdbnamn'")
    If rc.EOF Then
        'dittdbnamn fanns inte.
    Else
        'dittdbnamn fanns.
    End If
```

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

## #5 — Asa, 2003-04-21T19:22Z

Tackar! Ska testa

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

## #6 — LarsG, 2003-04-21T19:26Z

```
q = "show databases like <dinDatabas>"

set rs = connect.execute(q)
if rs.eof then
  'databas finns ej
else
  'databas finns
end if
```

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

## #7 — Asa, 2003-04-21T19:26Z

Skapa ny databas då?

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

## #8 — LarsG, 2003-04-21T19:28Z

Via ASP? Skapar databaser är väl inget man gör så där hux flux?

<http://www.mysql.com/doc/en/CREATE_DATABASE.html>

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

## #9 — Asa, 2003-04-21T19:30Z

Så det går ej via Asp? Ska kolla sidan du gav länk till!

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

## #10 — Asa, 2003-04-21T19:36Z

```
ShopName = "shop"

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver=MySQL;server=localhost;uid=User;pwd=password;database=" & shopName

q = "show databases like " & ShopName

set rs = connect.execute(q)
if rs.eof then
  'databas finns ej
else
  'databas finns
end if
```

Denna kod ger fel på Conn.Open. Hur ska jag skriva där. VIll ha så den kollar om databasen finns. Annars skare stå att den ej finns alltså!

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

## #11 — niko, 2003-04-21T19:47Z

För det första ska du ha måsvingar om drivernamnet i connectionstringen.
För det andra bör du inte ange databasnamnet i connectionstringen eftersom du då får ett error redan där om den inte finns:

```
Conn.Open "driver={MySQL};server=localhost;uid=User;pwd=password;"
```

För det tredje måste du använda apostrofer i queryn som jag visade ovan:

```
"SHOW DATABASES LIKE '" & ShopName & "'"
```

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

## #12 — Asa, 2003-04-21T19:54Z

Hur ska man sen kunna öppna just den databasen om det ej står i connectionsträngen utan å ändra i aspkoden??

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

## #13 — niko, 2003-04-21T19:55Z

```
if rs.eof then
  	'databas finns ej
else
	connect.execute("use " & ShopName)
	'Fortsätt använda databasen ShopName.
end if
```

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

## #14 — Asa, 2003-04-21T19:59Z

Oki! Ska testa lite!

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

## #15 — Denkan, 2003-04-21T21:49Z

eftersom jag själv inte är någon hejjare på mySQL m.m, så löste jag det på mitt egna lilla vis.
Säkert inte helt anpassat till frågan, men jag lekte till det för framtida lösningar..

```
<%
Dim chkConn,user,pass,host,db,rs,dbExists,Connect

user 	= 	"username"
pass 	=	"password"
host	= 	"localhost"
db 	= 	"din_databas"

set chkConn = Server.CreateObject("ADODB.Connection")
chkConn.Open "Driver={MYSQL ODBC 3.51 Driver};server=" &host& ";uid=" &user& ";pwd=" &pass

dbExists = False
Set rs = chkConn.Execute("SHOW DATABASES")
If NOT rs.EOF Then
	Do Until rs.EOF
		If LCase(rs("database")) = LCase(db) Then
		dbExists = True
      Set Connect = Server.CreateObject("ADODB.Connection")
      Connect.Open "Driver={MYSQL ODBC 3.51 Driver};server=" &host& ";uid=" &user& ";pwd=" &pass& ";database=" &db

		' fortsätt
		' med
		' din
		' kod
		' med
		' "Connect"
		' som
		' din
		' databaskoppling

		End If
		rs.MoveNext
	Loop

	If NOT dbExists Then
	call createDB
	End If
Else
call createDB
End If

Sub createDB()
chkConn.Execute("CREATE DATABASE " &db)
End Sub

%>
```

funkade sött

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/74642-finns-databas