网络编程
位置:首页>> 网络编程>> Asp编程>> ASP链接Mysql数据库 非DSN连接的方法

ASP链接Mysql数据库 非DSN连接的方法

 来源:asp之家 发布时间:2009-03-09 18:24:00 

标签:dns,mysql,数据库

由于需求没有做好或者客户是外行,不能很好的配合你做好需求,我在使用asp+access的时候非常头疼,遇到数据结构的改动,就必须修改access数据库且重新上传它。(当然asp的数据库操作,可以远程升级,可惜我不能很熟练的掌握它),至于MSsql,我一直没有接触。Mysql,我倒是经常使用,开源嘛,自然得到他很容易。

无意间看到了这篇很简单的 ASP链接Mysql数据库的教程。我选取非DSN连接的方法(Using a connection string)

下面是一段简单的脚本

< %
'declare the variables
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL

'declare the SQL statement that will query the database
SQL = "SELECT * FROM TABLE_NAME"

'define the connection string, specify database driver
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};
SERVER=localhost; DATABASE=Your_Mysql_DB; " &_
"UID=mysql_username;PASSWORD=mysql_password; OPTION=3"

'create an instance of the ADO connection and recordset objects
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

'Open the connection to the database
Connection.Open ConnString

'Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection

'first of all determine whether there are any records
If Recordset.EOF Then
Response.Write("No records returned.")
Else
'if there are records then loop through the fields
Do While NOT Recordset.Eof  
Response.write Recordset("FIRST_FIELD_NAME")
Response.write Recordset("SECOND_FIELD_NAME")
Response.write Recordset("THIRD_FIELD_NAME")
Response.write "
"    
Recordset.MoveNext    
Loop
End If

'close the connection and recordset objects freeing up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing
% >

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com