- alexhwguy
- Nombre de messages : 2
Date d'inscription : 03/04/2008
Acomba ODBC par ASP
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 ?
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>
- hadt
- Nombre de messages : 6
Ville : Québec
Date d'inscription : 03/08/2007
String Connection
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
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
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum