Asp sans dsn
cs_revolt
Messages postés
68
Date d'inscription
samedi 5 mai 2001
Statut
Membre
Dernière intervention
15 mars 2015
-
5 mars 2003 à 15:13
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 juin 2008 - 5 mars 2003 à 19:42
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 juin 2008 - 5 mars 2003 à 19:42
2 réponses
shaiulud
Messages postés
404
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
15 juillet 2014
22
5 mars 2003 à 19:15
5 mars 2003 à 19:15
Dim ObjConnect
Sub connectionODBC_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& strDbPath &";uid="& strLogin &";pwd="& strPassword &";"
End Sub
Sub connectionOLEDB_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strDbPath &";User Id="& strLogin &";Password="& strPassword &";"
End Sub
Sub sqlQuery(objRS,strSQL)
on error resume next
Err.Clear
Set objRS = ObjConnect.Execute(strSQL)
If Err.number<>0 Then
strSQL=-1
End If
End Sub
Sub connectionClose()
If IsObject(ObjConnect) Then
ObjConnect.Close
Set ObjConnect=nothing
End If
End Sub
Sub connectionODBC_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& strDbPath &";uid="& strLogin &";pwd="& strPassword &";"
End Sub
Sub connectionOLEDB_Access(strDbPath, strLogin, strPassword)
Set ObjConnect=CreateObject("ADODB.Connection")
ObjConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strDbPath &";User Id="& strLogin &";Password="& strPassword &";"
End Sub
Sub sqlQuery(objRS,strSQL)
on error resume next
Err.Clear
Set objRS = ObjConnect.Execute(strSQL)
If Err.number<>0 Then
strSQL=-1
End If
End Sub
Sub connectionClose()
If IsObject(ObjConnect) Then
ObjConnect.Close
Set ObjConnect=nothing
End If
End Sub
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
5 mars 2003 à 19:42
5 mars 2003 à 19:42
Set connectvar = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("bd.mdb") 'ici base de donne
connectvar.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & MdbFilePath & ";" 'sur la meme ligne du haut
...
...
...
Set rsBD = connectvar.Execute(requete)
...
...
...
connectvar.Close 'Fermer la connection
set connectvar = Nothing 'Vider la mémoire
MdbFilePath = Server.MapPath("bd.mdb") 'ici base de donne
connectvar.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & MdbFilePath & ";" 'sur la meme ligne du haut
...
...
...
Set rsBD = connectvar.Execute(requete)
...
...
...
connectvar.Close 'Fermer la connection
set connectvar = Nothing 'Vider la mémoire
