Acomba (Forum)
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.
Connexion

Récupérer mon mot de passe


Acomba ODBC par ASP

Voir le sujet précédent Voir le sujet suivant Aller en bas

Acomba ODBC par ASP

Message  alexhwguy le Jeu 3 Avr 2008 - 11:05

J'essais de me connecter à Acomba à partir d'une page ASP
J'ai donner les droits sur les dossier c:\fortune et c:\F1000.dta au Internet Guest Account


J'ai l'erreur suivante sur la ligne Set RS = cnn.Execute(sql)
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Acomba ODBC Driver][ISAM]ISAM error


Quelqu'un aurait un exemple d'une requête simple en ASP ?
Code:


Dim sql, RS
Dim cnn
Const adUseClient = 3
Dim dbName : dbName = "AcombaTESTSH"

Set cnn = CreateObject("ADODB.Connection")
cnn.CursorLocation = adUseClient
cnn.Open "DSN=" & dbName & ";"

sql = "SELECT CuName FROM customer "


%><Table><%

Set RS = cnn.Execute(sql)
While Not RS.EOF

%>
    <tr class="data">
        <td><%=RS.fields("CuName")%></td>
    </tr>
<%
    RS.MoveNext
Wend

RS.close()
Set RS = nothing

cnn.Close
%>


</Table>


alexhwguy

Nombre de messages : 2
Date d'inscription : 03/04/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

String Connection

Message  hadt le Jeu 8 Mai 2008 - 17:07

Ça marche!!

Resume:

Dans mon global.asa
==============
Application("DriverAcomba")="{Acomba ODBC Driver}"
Application("DsnAcomba")="AcombaTest"
Application("DbqAcomba")="C:\Repertoire"
Application("UidAcomba")="user"
Application("PwdAcomba")="password"
Application("SAcomba") = "DSN=" & Application("DsnAcomba") & ";DBQ=" & Application("DbqAcomba") & ";UID=" & Application("UidAcomba") & ";PWD=" & Application("PwdAcomba") & ""

Dans mon fichier asp:
=================
Set ConnAcomba = Server.CreateObject("ADODB.Connection")
Set RsAcomba = Server.CreateObject("ADODB.Recordset")
ConnAcomba.Open (Application("SAcomba"))
Query = "SELECT * from product"
Set RsAcomba = ConnAcomba.Execute(Query)
Do until RsAcomba.EOF
champ1 = rsacomba("champ1")
champ2 = rsacomba("champ2")
RsAcomba.MoveNext
Loop
RsAcomba.close
ConnAcomba.Close

hadt

Nombre de messages : 6
Ville : Québec
Date d'inscription : 03/08/2007

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum