Connection between ASP and database

Connection between ASP and SQL Server database
<%
'Connection database ----------------------------
Set conn = server. Createobject ("ADODB. Connection ")
Connstr = "provider = sqloledb; Data Source = 127.0.0.1; uid = sa; Pwd = sa; database = web"
'Open database ----------------------------------
Conn. Open connstr
'Write data query statement ------------------------
Set rsw.conn.exe cute ("select * from ASP where ID> 2 ")
'Output query result --------------------------
Do until Rs. EOF
Response. Write RS ("ID") & "<br>"
Response. Write RS ("name") & "<br>"
Rs. movenext
Loop
%>
************************************
Connection between ASP and Access Database
********************************
<% Dim Conn
Dim connstr
On Error resume next
Connstr = "DBQ =" + server. mappath ("login. mdb") + "; defaultdir =; driver = {Microsoft Access Driver (*. mdb )};"
Set conn = server. Createobject ("ADODB. Connection ")
If err then
Err. Clear
Else
Conn. Open connstr
If err then
Err. Clear
End if
End if
Set rs1_conn.exe cute ("select * From login_info where ID> 1 ")
Do until Rs. EOF
Response. Write RS ("ID") & "<br>"
Response. Write RS ("username") & "<br>"
Response. Write RS ("password") & "<br>"
Rs. movenext
Loop %>

**************************************** *************
**************************************** *************
<! -- # Include file = "conn. asp" -->
<%
Set rs1_conn.exe cute ("select * From login_info where ID> 2 ")
'Set rs = server. Createobject ("ADODB. recordset ")
'SQL = "select * From login_info where ID> = '1 '"
'Rs. Open SQL, Conn, 1, 1
Do until Rs. EOF
Response. Write RS ("ID") & "<br>"
Response. Write RS ("username") & "<br>"
Response. Write RS ("password") & "<br>"
Rs. movenext
Loop
%>

**************************************** ******************
**************************************** *******************

Link other databases (*. DBF, *. txt, Excel, Foxpro, etc.) ---- add to favorites
18:41:05 views: 145
 
'Link the DBF File
<%
'Create a connection object
Set conn = server. Createobject ("ADODB. Connection ")
Driver = "driver = {Microsoft Visual FoxPro driver };"
Sourcetype = "sourcetype = DBF ;"
Dbpath = "sourcedb =" & server. mappath ("DBF ")

'Call the Open Method to connect to the database
Conn. Open driver & sourcetype & dbpath

Set rs = server. Createobject ("ADODB. recordset ")
'Open the data source. Parameter 2 is the connection object.
Rs. Open "select * from sample", Conn, 2, 2
%>
'Link The FoxPro File
<%
'Create a connection object
Set conn = server. Createobject ("ADODB. Connection ")
Driver = "driver = {Microsoft Visual FoxPro driver };"
Sourcetype = "sourcetype = dBc ;"
Dbpath = "sourcedb =" & server. mappath ("DBF/sample. DBC ")

'Call the Open Method to connect to the database
Conn. Open driver & sourcetype & dbpath

Set rs = server. Createobject ("ADODB. recordset ")
'Open the data source. Parameter 2 is the connection object.
Rs. Open "select * from sample", Conn, 2, 2
%>

'Link an Excel file
<%
'Create a connection object
Set conn = server. Createobject ("ADODB. Connection ")
Driver = "driver = {Microsoft Excel Driver (*. xls )};"
Dbpath = "DBQ =" & server. mappath ("sample.xls ")

'Call the Open Method to connect to the database
Conn. Open driver & dbpath

Set rs = server. Createobject ("ADODB. recordset ")
'Open the data source. Parameter 2 is the connection object.
Rs. Open "select * from [Transcript $]", Conn, 2, 2
%>

'Link the TXT file
<%
'Create a connection object
Set conn = server. Createobject ("ADODB. Connection ")
Driver = "driver = {Microsoft text Driver (*. txt; *. CSV )};"
Dbpath = "DBQ =" & server. mappath ("text ")

'Call the Open Method to connect to the database
Conn. Open driver & dbpath

Set rs = server. Createobject ("ADODB. recordset ")
'Open the data source. Parameter 2 is the connection object.
Rs. Open "select * From sample.txt", Conn, 2, 2
%>

 

 

Select Syntax: (basic)

 

**************************************** *********************
**************************************** ******************
Select [distinct]
(Column [{, column}]) | *
From table [{, table}]
[Order by column [ASC] | [DESC
[{, Column [ASC] | [DESC}]
Where predicate [{logical-connector predicate}];
------------------------------------------------------

Insert Syntax:

Insert into table
[(Column {, column})]
Values
(Columnvalue [{, columnvalue}]);
------------------------------------------------------

Update Syntax:

Update table
Set column = value [{, column = value}]
[Where predicate [{logical-connector predicate}];
------------------------------------------------------

Delete Syntax:

Delete from table
[Where predicate [{logical-connector predicate}];
------------------------------------------------------
Sorting blueice2002