[4D]connexion ODBC ASP

**scorpia** · 24/05/2006, 15h09

Bonjour,
J'utilise actuellement une base de données 4D interfacée par de l'ASP de la manière suivante (la connexion ALPHA_OMEGA_V32222 est défine dans les connexions systèmes ODBC via le panneau de configuration, préco 4D) :

Code :

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

1
2
3
4
5
 
    DIM strcnx
    strcnx="ALPHA_OMEGA_V32222"
    SET Conn_Objet=Server.CreateObject("ADODB.Connection")
    Conn_Objet.Open strcnx

Je souhaite utiliser une autre manière de connexion mais je n'arrive pas à trouver les bon paramètres. J'aimerais faire comme suit mais avec une base 4D :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    DIM chBD
    chBD=Server.MapPath("./")&"/BDDTestPsycho.mdb"
 
    IF chBD="" THEN 
        F_OpenConnBD = FALSE
    ELSE
        Set Conn_Objet = Server.CreateObject("ADODB.Connection")
        connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ="&chBD 
        Conn_Objet.Open connstring
        F_OpenConnBD = TRUE
    END IF

Est ce que quelqu'un a déjà utilisé la seconde manière pour connecter une base 4D à l'ASP ?

Merci

**Elgo** · 30/05/2006, 13h47

Bonjour,

Le source ASP fonctionne comme la commande SQLDriverConnect.
Voici les clefs utilisables sur le driver de la 2004:
"DSN" = Le data source name défini par l'utilisateur dans le driver manager "DRIVER" = "ODBC Driver for 4D Server" "UID" = Le nom d'utilisateur sous lequel se connecter à la base de données "PWD" = Le mot de passe qui correspond à l'utilisateur UID. "DBQ" = Peut contenir l'adresse IP du serveur 4D ou le nom de la base.

Cordialement

**scorpia** · 30/05/2006, 19h17

Je test demain et je vous tiens au courant.
Merci en tout cas pour la réponse.

SCRP

**Herwin78800** · 13/12/2006, 16h58

Bonjour,
Je tente d'accèder en asp à une base 4D 2004 distante, en m'inspirant des indications d'Elgo
<%
Set Connexion = Server.CreateObject("ADODB.Connection")
ConnexionString = "DRIVER=ODBC Driver for 4D Server; DBQ=100.75.75.75; UID=monlogin; PWD=monpasse;"
Response.write ConnexionString
Connexion.Open ConnexionString
Set Rs1 = Server.CreateObject("ADODB.Recordset")
rqt = "SELECT date_arrivee FROM facture "

Rs1.Open rqt, Connexion
%>

Mais je reçois une erreur "simba driver odbc" 5000405, sans plus de précision.
Même erreur si j'utilise un Dsn.
Vouyez-vous l'erreur ?

**Steph4D** · 14/12/2006, 15h09

Je suis partie de la base exemple de cette note technique :
Connexion à 4D Server depuis une page ASP

et j'ai modifié le code pour coller au tien :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<%@ LANGUAGE="VbScript" %>
<%
sub Selectionner ()
Set Connexion = Server.CreateObject("ADODB.Connection")
ConnexionString = "DRIVER=ODBC Driver for 4D Server; DBQ=Personnel; UID=; PWD=;"
Connexion.Open ConnexionString
Set Rs1 = Server.CreateObject("ADODB.Recordset")
rqt = "SELECT * FROM Personnel"
 
Rs1.Open rqt, Connexion
%>
 
<HTML>
	<HEAD>
        	<TITLE>Contenu de la table Personnel</TITLE>
    	</HEAD>
    	<BODY>
        	<H1 Align="center">Contenu de la table Personnel</H1>
 
        	<TABLE Width="80%" Align="center" bgColor="#E0E0FF">
            	<TR>
                	<TH Align="left">Référence</TH>
                	<TH Align="left">Nom</TH>
                	<TH Align="left">Prénom</TH>
                	<TH Align="left">Fonction</TH>
                	<TH Align="right">Salaire</TH>
            	</TR>
 
		<% DO UNTIL rs1.EOF %>
                <TR>
                	<TD Align="left"><% = rs1.Fields("Reference") %></TD>
			<TD Align="left"><% = rs1.Fields("Nom") %></TD>
 			<TD Align="left"><% = rs1.Fields("Prenom") %></TD>
			<TD Align="left"><% = rs1.Fields("Fonction") %></TD>
			<TD Align="right"><% = formatcurrency(rs1.Fields("Salaire")) %></TD>
                </TR>
            	<% rs1.MoveNext
	       	LOOP 
            	%>
		</TABLE>
	</BODY>
</HTML>
 
<%
rs1.Close
SET rs1= NOTHING
Connexion.Close
SET Connexion= NOTHING
end sub
%>

J'ai juste enlevé la ligne Response.write ConnexionString et je n'ai pas de mot de passe pour la base, donc UID et PWD laissés à vide.

Et ça fonctionne bien : j'ai bien un tableau avec les enregistrements listés.

Mettre l'IP de la base servie au lieu du nom de la config ODBC ("Personnel") fonctionne aussi :

Code :

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

ConnexionString = "DRIVER=ODBC Driver for 4D Server; DBQ=192.168.12.34; UID=; PWD=;"

Peut-être peux-tu prendre exemple sur la base démo de cette note technique et comparer avec ton code.

[4D]connexion ODBC ASP

4D

Discussions similaires

Partager

Partager