-
Error 80040E09(-2147217911)
I get the following message when I try to use Sybase driver.
Error # (Get_RS_GetCount - After open CountSQL) = 80040E09(-2147217911)
Description = [MERANT][ODBC Sybase ASE driver][SQL Server]Incorrect syntax near '['.
Source = Microsoft OLE DB Provider for ODBC Drivers
SQL State = 42000
Native Error = 102
However, if I use sql driver to connect to a sql server, it displays all the table and goes to the edit page.
Piece of code:
Source Code for: /apps/mh-pro-wildcard.asp
<% response.buffer=true %>
<!--ASP-db-->
<HTML>
<HEAD><title>ASP-db MH-PRO WildCard </title>
</HEAD>
<BODY BGCOLOR="A0E0A0" TEXT=Black LINK=BLUE ALINK=RED VLINK=BLUE>
<FONT FACE="Arial,Helvetica" Color=Black Size=3>
<%
Set MyDb = Server.CreateObject("ASP.db"
mydb.dbDBType ="Sybase"
mydb.dbdsn = "DSN=xyz;UID=abc;PWD=wow;"
MyDb.dbUnit = 1113
B=Request("ASPdbBut_1113" ' this is NOT case sensitive
L9=Left(B,9)
UL9=UCASE(L9)
L12=Left(B,12)
UL12=UCASE(L12)
if UL9 <> "ASPDBEDIT" then
response.write("<CENTER><B>Welcome to the ASP-db PRO Wildcard Edit Demo Page.</B><P>"
response.write("<HR WIDTH=66% SIZE=1>"
end if
if UL12 = "ASPDBEDITUPD" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=Black><B>"
MSG1 = MSG1 + "Please Update the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITDEL" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to DELETE all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITEDI" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to EDIT all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
'Mydb.dbMDB = Server.MapPath("db8.mdb"
MyDb.dbSQL = "*"
MyDb.DBColor = "6"
MyDb.dbGridTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.dbFormTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.DbMode = "dual-horiz"
MyDb.dbGridInc = 10
MyDb.dbButtonAnchor=false
TABNAME = Session("ALLTABLESQL_1113"
if TABNAME="CarList" then
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1,TableTag=BORDER=2"
else
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1+2,TableTag=BORDER=2"
end if
MyDb.dbEditParams=EP
if UL9 = "ASPDBEDIT" then response.write("EP = " & EP & "<P>"
EF = Session("flds"
MyDb.dbEditFlds = EF
if UL9 = "ASPDBEDIT" then response.write("EF = " & EF & "<P>"
MyDb.dbEditUpdateROFlds = "0" ' don't allow auto-numbered flds to be edited
MyDb.dbTables = "8"
MyDb.dbOptions = "CellFontTag=Size=2,Heading=<P>Now viewing Table: #TableName#<P>"
MyDb.dbImageDir="../images/"
Mydb.dbNavigation="top"
Mydb.dbNavigationItem="Next, Prev, Gridrow, update"
Mydb.dbNavigationIcon="std"
MyDb.ASPdb
' Create the list of fields to get edited
flds = "0," ' show fld 0 but make it read-only
for i = 1 to session("SV_FieldCount_1113" - 1
flds = flds & i & ","
next
session("flds" = flds
%>
</BODY>
</HTML>
Click Here to return to /apps/mh-pro-wildcard.asp
-
Error 80040E09(-2147217911) (reply)
Looks like space in name problem ->
1. try the same thing with no space in fieldnames.
2. If works then contact me and I'll make adjustment s fo ryour aprticular DB.
FK
------------
Jeff at 11/9/01 9:23:11 AM
I get the following message when I try to use Sybase driver.
Error # (Get_RS_GetCount - After open CountSQL) = 80040E09(-2147217911)
Description = [MERANT][ODBC Sybase ASE driver][SQL Server]Incorrect syntax near '['.
Source = Microsoft OLE DB Provider for ODBC Drivers
SQL State = 42000
Native Error = 102
However, if I use sql driver to connect to a sql server, it displays all the table and goes to the edit page.
Piece of code:
Source Code for: /apps/mh-pro-wildcard.asp
<% response.buffer=true %>
<!--ASP-db-->
<HTML>
<HEAD><title>ASP-db MH-PRO WildCard </title>
</HEAD>
<BODY BGCOLOR="A0E0A0" TEXT=Black LINK=BLUE ALINK=RED VLINK=BLUE>
<FONT FACE="Arial,Helvetica" Color=Black Size=3>
<%
Set MyDb = Server.CreateObject("ASP.db"
mydb.dbDBType ="Sybase"
mydb.dbdsn = "DSN=xyz;UID=abc;PWD=wow;"
MyDb.dbUnit = 1113
B=Request("ASPdbBut_1113" ' this is NOT case sensitive
L9=Left(B,9)
UL9=UCASE(L9)
L12=Left(B,12)
UL12=UCASE(L12)
if UL9 <> "ASPDBEDIT" then
response.write("<CENTER><B>Welcome to the ASP-db PRO Wildcard Edit Demo Page.</B><P>"
response.write("<HR WIDTH=66% SIZE=1>"
end if
if UL12 = "ASPDBEDITUPD" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=Black><B>"
MSG1 = MSG1 + "Please Update the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITDEL" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to DELETE all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITEDI" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to EDIT all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
'Mydb.dbMDB = Server.MapPath("db8.mdb"
MyDb.dbSQL = "*"
MyDb.DBColor = "6"
MyDb.dbGridTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.dbFormTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.DbMode = "dual-horiz"
MyDb.dbGridInc = 10
MyDb.dbButtonAnchor=false
TABNAME = Session("ALLTABLESQL_1113"
if TABNAME="CarList" then
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1,TableTag=BORDER=2"
else
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1+2,TableTag=BORDER=2"
end if
MyDb.dbEditParams=EP
if UL9 = "ASPDBEDIT" then response.write("EP = " & EP & "<P>"
EF = Session("flds"
MyDb.dbEditFlds = EF
if UL9 = "ASPDBEDIT" then response.write("EF = " & EF & "<P>"
MyDb.dbEditUpdateROFlds = "0" ' don't allow auto-numbered flds to be edited
MyDb.dbTables = "8"
MyDb.dbOptions = "CellFontTag=Size=2,Heading=<P>Now viewing Table: #TableName#<P>"
MyDb.dbImageDir="../images/"
Mydb.dbNavigation="top"
Mydb.dbNavigationItem="Next, Prev, Gridrow, update"
Mydb.dbNavigationIcon="std"
MyDb.ASPdb
' Create the list of fields to get edited
flds = "0," ' show fld 0 but make it read-only
for i = 1 to session("SV_FieldCount_1113" - 1
flds = flds & i & ","
next
session("flds" = flds
%>
</BODY>
</HTML>
Click Here to return to /apps/mh-pro-wildcard.asp
-
Error 80040E09(-2147217911)
The tables doesn't have spade in fieldnames. But they have hypens in the field names. Does that make some difference. Moreover, the same things works for MSSQL database.
------------
Frank Kwong at 11/13/2001 7:40:52 PM
Looks like space in name problem ->
1. try the same thing with no space in fieldnames.
2. If works then contact me and I'll make adjustment s fo ryour aprticular DB.
FK
------------
Jeff at 11/9/01 9:23:11 AM
I get the following message when I try to use Sybase driver.
Error # (Get_RS_GetCount - After open CountSQL) = 80040E09(-2147217911)
Description = [MERANT][ODBC Sybase ASE driver][SQL Server]Incorrect syntax near '['.
Source = Microsoft OLE DB Provider for ODBC Drivers
SQL State = 42000
Native Error = 102
However, if I use sql driver to connect to a sql server, it displays all the table and goes to the edit page.
Piece of code:
Source Code for: /apps/mh-pro-wildcard.asp
<% response.buffer=true %>
<!--ASP-db-->
<HTML>
<HEAD><title>ASP-db MH-PRO WildCard </title>
</HEAD>
<BODY BGCOLOR="A0E0A0" TEXT=Black LINK=BLUE ALINK=RED VLINK=BLUE>
<FONT FACE="Arial,Helvetica" Color=Black Size=3>
<%
Set MyDb = Server.CreateObject("ASP.db"
mydb.dbDBType ="Sybase"
mydb.dbdsn = "DSN=xyz;UID=abc;PWD=wow;"
MyDb.dbUnit = 1113
B=Request("ASPdbBut_1113" ' this is NOT case sensitive
L9=Left(B,9)
UL9=UCASE(L9)
L12=Left(B,12)
UL12=UCASE(L12)
if UL9 <> "ASPDBEDIT" then
response.write("<CENTER><B>Welcome to the ASP-db PRO Wildcard Edit Demo Page.</B><P>"
response.write("<HR WIDTH=66% SIZE=1>"
end if
if UL12 = "ASPDBEDITUPD" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=Black><B>"
MSG1 = MSG1 + "Please Update the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITDEL" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to DELETE all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
if UL12 = "ASPDBEDITEDI" then
MSG1 = "<CENTER><FONT SIZE=4 COLOR=red><B>"
MSG1 = MSG1 + "You are about to EDIT all of the Information for: "
MSG1 = MSG1 + "</B></FONT><P>"
response.write(MSG1)
end if
'Mydb.dbMDB = Server.MapPath("db8.mdb"
MyDb.dbSQL = "*"
MyDb.DBColor = "6"
MyDb.dbGridTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.dbFormTableTag = "border=3 cellspacing=3 cellpadding=3"
MyDb.DbMode = "dual-horiz"
MyDb.dbGridInc = 10
MyDb.dbButtonAnchor=false
TABNAME = Session("ALLTABLESQL_1113"
if TABNAME="CarList" then
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1,TableTag=BORDER=2"
else
EP="TableName=" & TABNAME & ",BookMarkFlds=0+1+2,TableTag=BORDER=2"
end if
MyDb.dbEditParams=EP
if UL9 = "ASPDBEDIT" then response.write("EP = " & EP & "<P>"
EF = Session("flds"
MyDb.dbEditFlds = EF
if UL9 = "ASPDBEDIT" then response.write("EF = " & EF & "<P>"
MyDb.dbEditUpdateROFlds = "0" ' don't allow auto-numbered flds to be edited
MyDb.dbTables = "8"
MyDb.dbOptions = "CellFontTag=Size=2,Heading=<P>Now viewing Table: #TableName#<P>"
MyDb.dbImageDir="../images/"
Mydb.dbNavigation="top"
Mydb.dbNavigationItem="Next, Prev, Gridrow, update"
Mydb.dbNavigationIcon="std"
MyDb.ASPdb
' Create the list of fields to get edited
flds = "0," ' show fld 0 but make it read-only
for i = 1 to session("SV_FieldCount_1113" - 1
flds = flds & i & ","
next
session("flds" = flds
%>
</BODY>
</HTML>
Click Here to return to /apps/mh-pro-wildcard.asp
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|