主题:  是高手就帮我看一下这个问题

zhjw
职务：普通成员
等级：1
金币：0.0
发贴：10
注册：2002/9/23 16:13:07
#12002/10/15 10:58:03
我在模仿编写一段加入数据库记录时,用了这样一段代码加入:
conn.execute "insert into anounce(an_title,an_to,an_con,an_from,an_date) values('"&request.form("biaoti")&"','"&request.form("duixiang")&"','"&pb(request.form("neirong"))&"','"&request.form("fabudanwei")&"','"&request.form("riqi")&"')"
可是系统总是提示/:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
但是我能够删除记录,应该说我的连接没有错误阿!
所以我认为是数据库的字段类型不匹配.究竟是什么.请高手指点.
不甚感激!^



我知道
职务：普通成员
等级：4
金币：2.0
发贴：2211
注册：2002/2/8 13:02:46
#22002/10/15 20:08:11
呵呵，转asp区吧



不是高手
职务：普通成员
等级：3
金币：5.0
发贴：1352
注册：2002/8/23 2:27:18
#32002/10/17 16:50:57
引号引号！！



5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
#42002/10/17 18:55:47
先将你要执行的查询语句写成一个变量,然后试试
还有你数据表各字段类型能否告知?
不行的话试试这个
可能问题就出在日期an_date上,
cdate(request.form("riqi"))

你不是已经发过一次了吗?



zdygh2008
职务：普通成员
等级：1
金币：0.0
发贴：32
注册：2002/10/16 13:21:17
#52002/10/18 15:05:43
<%
SGender=Request.Form("keyword")
if SGender="" then
response.write""
response.end
end if
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("wz.mdb")
sear="'%%"&SGender&"%%'"
SQL="select * from wz where wz.wangzhanmingchen like"&sear
set RS=conn.execute(SQL)
%>















       
     

本站引航：
















你要搜索的关键字是[<%=SGender%>]

<%
if rs.bof and rs.eof then
response.write("
数据库里没有你要的记录，请在右边重新输入其它关键字查询...")
end if
%>
            







 




<%do while NOT RS.EOF%>
"><%=rs("wangzhanmingchen")%>
<%Response.Write(" "&RS("information")&"
")%>
     <%
RS.MoveNext
loop

RS.Close
conn.close
%>    
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "wz.mdb" )
sear="'%%"&SGender&"%%'"

' 连接数据库
conn.Open Provider & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开信息源，参数二为Connection对象
sql = "select * from addlink where addlink.username like"&sear
Rs.Open "addlink", conn, 2, 2
%>
<%do while NOT RS.EOF%>
"><%=rs("username")%>
<%Response.Write(" "&RS("Note")&"
")%>
<%
RS.MoveNext
loop

RS.Close
conn.close
%>         



zdygh2008
职务：普通成员
等级：1
金币：0.0
发贴：32
注册：2002/10/16 13:21:17
#62002/10/21 12:58:32
下面的程序中有个问题：我是一个数据库中的两个表，一个表名为ADDLINK，而另一个表名为WZ，我想通一个搜索按钮搜索两表里面的
内容。下面是我自己做的一个程序搜索，问题是，搜索按钮只对WZ表搜索起作用，而对ADDLINK表不起搜索作用。请高手看看我这个搜索程序问题错在哪里？


<%
SGender=Request.Form("keyword")
if SGender="" then
response.write""
response.end
end if
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("wz.mdb")
sear="'%%"&SGender&"%%'"
SQL="select * from wz where wz.wangzhanmingchen like"&sear
set RS=conn.execute(SQL)
%>














    
   

本站引航：




















你要搜索的关键字是[<%=SGender%>]

<%
if rs.bof and rs.eof then
response.write("
数据库里没有你要的记录，请在右边重新输入其它关键字查询...")
end if
%>








 




<%do while NOT RS.EOF%>
"><%=rs("wangzhanmingchen")%>
<%Response.Write(" "&RS("information")&"
")%>
<%
RS.MoveNext
loop

RS.Close
conn.close
%>
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "wz.mdb" )
sear="'%%"&SGender&"%%'"

' 连接数据库
conn.Open Provider & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开信息源，参数二为Connection对象
sql = "select * from addlink where addlink.username like"&sear
Rs.Open "addlink", conn, 2, 2
%>
<%do while NOT RS.EOF%>
"><%=rs("username")%>
<%Response.Write(" "&RS("Note")&"
")%>
<%
RS.MoveNext
loop

RS.Close
conn.close
%>



5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
#72002/10/21 13:08:25
将最后一段打开数据集的代码换做:
rs.open sql,conn
试试?



zdygh2008
职务：普通成员
等级：1
金币：0.0
发贴：32
注册：2002/10/16 13:21:17
#82002/10/21 13:22:27
刚才我照高手例子做了，却出现下面错：
数据库里没有你要的记录，请在右边重新输入其它关键字查询...



Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 在查询表达式 'addlink.username like '%'%%请输入关键字%%'' 中。

/search.asp，行103



zdygh2008
职务：普通成员
等级：1
金币：0.0
发贴：32
注册：2002/10/16 13:21:17
#92002/10/21 13:32:21
我在此感谢北京的dtmyou高手，我已做好！非常感谢！



5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
注册：2002/10/16 16:19:02
#102002/10/21 13:46:12
我改了改你的代码(好乱哦),看看有没有帮助
<%
SGender=Request.Form("keyword")
if SGender="" then
response.write""
response.end
end if
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("wz.mdb")
sear="'%%"&SGender&"%%'"
SQL="select * from wz where wz.wangzhanmingchen like"&sear
set RS=conn.execute(SQL)
%>


    
        
        
        
        
    
    
        
        
        
        
    
    
   
            

                
本站引航：

                    
                

            

        




    <%
if not rs.bof and not rs.eof then            

%>
    
        
    
<%
end if
set rs1=server.CreateObject("adodb.recordset")

sql = "select * from addlink where username like"&sear
Rs1.Open sql,conn
if not rs1.EOF and not rs1.BOF then
%>
    
    
    
    

            

            <%do while NOT RS.EOF%>
            ">
                    <%=rs("wangzhanmingchen")%>
                
                <%Response.Write(" "&RS("information")&"
")%>
            
            <%
RS.MoveNext
loop
    
%>
    

            <%do while NOT RS1.EOF%>
            ">
                    <%=rs1("username")%>
                
                <%Response.Write(" "&RS1("Note")&"
")%>
            
            <%
RS1.MoveNext
loop
%>
    

<%
end if
%>
<%if rs1.EOF and rs.eof then
    response.write("
数据库里没有你要的记录，请在右边重新输入其它关键字查询...")

%>










<%end if%>
每页显示15条 1/1 << <1 >>