Connect SQL Server, Easy Way 1

Rougy · Apr 17, 2003

Hi,

Need to know an easy way to connect to the SQL server via ASP. I code in VB6 all the time, but I can't seem to get over this hurdle.

VB6 code is:

Public cn As New ADODB.Connection
Public rs As ADODB.Recordset

With cn
.ConnectionTimeout = 25
.Provider = "sqloledb"
.Properties("Data Source&quot

.Value = "selectpdc"
.Properties("Initial Catalog&quot

.Value = "Plant5Milk"
.Properties("User ID&quot

.Value = "sa"
.Properties("Password&quot

.Value = "select"
.Open
End With

I was hoping ASP VBScript code would be similar.

Thanks a mill,

Rougy

-----
The death of dogma is the birth of reason.

Tarwn · Apr 17, 2003

Did you have any luck searching for an answer first?

-Tarwn

[sub]01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101 [/sub]
[sup]29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19[/sup]
Get better results for your questions: faq333-2924
Frequently Asked ASP Questions: faq333-3048

Rougy · Apr 17, 2003

Actually, Tarwin, no...and I have been searching, and continue to do so. Have yet to find anything that quite matches the way ASP looks from my little corner of the world.

I appreciate your concern.

-----
The death of dogma is the birth of reason.

Rougy · Apr 17, 2003

I'm trying this, but get: "Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"

<body>

<%
dim cn
dim cmd

Set cn = Server.CreateObject("ADODB.Connection&quot

cn.Open "DRIVER={SQLOLEDB};SERVER={selectpdc};DATABASE={Plant5Milk};UID={me};PWD={password}"
Set cmd = Server.CreateObject(ADODB.Command)
cmd.activeconnection = cn
cmd.commandtext = "SELECT * FROM ASP"
cmd.execute

Response.Write "Command executed: <BR>"

Set cmd = Nothing
cn.close 'comment this line out to recreate the problem
Set cn = Nothing
%>

</body>

-----
The death of dogma is the birth of reason.

cathyw · Apr 17, 2003

Hi Rougy,

I don't think SERVER and DATABASE are valid in a SQLOLEDB connection string.

Check this out:

http://www.able-consulting.com/ADO_Conn.htm

Hope this helps,
Cathy

Rougy · Apr 18, 2003

Thanks Cathy,

Now it's having problems with this line in the following code:

Set cmd = Server.CreateObject(ADODB.Command)

(thanks for the help)

<%
dim cn
dim rs
dim cmd

Set cn = Server.CreateObject("ADODB.Connection&quot

set rs = Server.CreateObject("ADODB.Recordset&quot

cn.Open "Provider=sqloledb;" & _
"Network Library=DBMSSOCN;" & _
"Data Source=10.1.1.2,1433;" & _
"Initial Catalog=Database;" & _
"User ID=dbo;" & _
"Password=pwd"
Set cmd = Server.CreateObject(ADODB.Command)
cmd.activeconnection = cn
cmd.commandtext = "SELECT * FROM ASP"
cmd.execute

Response.Write "Command executed: <BR>"

Set cmd = Nothing
cn.close 'comment this line out to recreate the problem
Set cn = Nothing
%>

-----
The death of dogma is the birth of reason.

Rougy · Apr 18, 2003

This was the error message:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Server'
/sqlconnect.asp, line 23

-----
The death of dogma is the birth of reason.

Rougy · Apr 18, 2003

This was the problem, forgot the quotes:

Set cmd = Server.CreateObject("ADODB.Command&quot

I am CONNECTED!

-----
The death of dogma is the birth of reason.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Connect SQL Server, Easy Way 1

Rougy

Programmer

Tarwn

Programmer

Rougy

Programmer

Rougy

Programmer

cathyw

Programmer

Rougy

Programmer

Rougy

Programmer

Rougy

Programmer

Similar threads

Part and Inventory Search

Sponsor