Connection String Function

ASP Free Forums Sponsor:

November 24th, 2005, 09:35 PM

baseballdude_

Expert Learner

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Feb 2005

Location: Wisconsin

Posts: 1,877

Folding Points: 22104 Folding Title: Starter Folder

Time spent in forums: 1 Week 5 Days 11 h 49 m 2 sec
Reputation Power: 62

Send a message via Yahoo to baseballdude_

Send a message via Google Talk to baseballdude_

Connection String Function

Here's a shortcut function I created for three common databases. You can add to it or modify it to your needs.

The correct syntax would be:

Code:

Conn.Open = SQLConnect("Type of Database (1, 2, or 3)", "Localhost, Server, or DB Path", "Database Name", "User ID for database", "Password for database")

ASP Code:

Original - ASP Code

Function SQLConnect(intType, strServer, strDB, strUid, strPwd)
    If intType = 1 Then
        'MySQL Database
        SQLConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & strServer & ";DATABASE=" & strDB & ";UID=" & strUid & ";PWD=" & strPwd & ";OPTION=3;"
    ElseIf intType = 2 Then
        'Microsoft Access Database
        SQLConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strServer & ";UID=" & strUid & ";PWD=" & strPwd & ";"
    Else
        'Microsoft SQL Server Database
        SQLConnect = "DRIVER={SQL Server};SERVER=" & strServer & ";DATABASE=" & strDB & ";UID=" & strUid & ";PWD=" & strPwd & ";"
    End If
End Function

__________________
www.xoise.com - www.ourfreegames.com - www.playtouchgames.com - www.randomtools.net - www.xenocide-rpg.com

November 27th, 2005, 10:38 PM

baseballdude_

Expert Learner

Join Date: Feb 2005

Location: Wisconsin

Posts: 1,877

Time spent in forums: 1 Week 5 Days 11 h 49 m 2 sec
Reputation Power: 62

And if you're really lazy, I've created it with one string, seperated my commas which are split into an array and used

(I'm lazy

)

Code:

Example

SQLConnect("1,localhost,My_Database,Username,Password")

Code:

Function

Function SQLConnect(arrX)
	arrX = Split(arrX,",")

	If arrX(0) = 1 Then
		SQLConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & arrX(1) & ";DATABASE=" & arrX(2) & ";UID=" & arrX(3) & ";PWD=" & arrX(4) & ";OPTION=3;"
	ElseIf intType = 2 Then
		SQLConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & arrX(1) & ";UID=" & arrX(3) & ";PWD=" & arrX(4) & ";"
	Else
		SQLConnect = "DRIVER={SQL Server};SERVER=" & arrX(1) & ";DATABASE=" & arrX(2) & ";UID=" & arrX(3) & ";PWD=" & arrX(4) & ";"
	End If
End Function

November 28th, 2005, 03:54 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 26,936

Folding Points: 340465 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 3 Months 1 Week 5 Days 11 h 28 m
Reputation Power: 1537

lol nice trick!

__________________

Visit The Windows Scripting Guru

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: