Discussion :

[jeha]

Bonsoir tout le monde,
ma question est la suivante :
Je veux faire une liaison entre asp et access ;
Comment je peux faire cette liaison ?
Merci d'avance…………..

[tomy4ever]

http://www.connectionstrings.com/

si ca peut aider

[Immobilis]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim strProvider 'Connection string
Dim objConn 'Connection object
Dim cm 'ADODB command
Dim rstQuery
 
Sub connect()
	'Connects to the Access driver and Access database in the Inetpub directory where the database is saved
	strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\CHEMIN_VERS_LA_BASE\BASE.MDB;"
 
	'Creates an instance of an Active Server component
	set objConn = server.createobject("ADODB.Connection")
 
	'Opens the connection to the data store
	objConn.Open strProvider
 
	'Instantiate Command object and use ActiveConnection property to attach connection to Command object
	set cm = Server.CreateObject("ADODB.Command")
	cm.ActiveConnection = objConn
 
	'Instantiate a Recordset object and open a recordset using the Open method
	Set rstQuery = Server.CreateObject("ADODB.recordset")
end sub

Et pour tout fermer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sub disconnect()	
	objConn.Close
	set rstQuery = nothing
	set cm = nothing
	set objConn = nothing
end sub

A+