关于ASP与SQL结合的问题！急！！！解决的送分拉！

我想把网页中的几个字段添加到我的数据库中，但是不知道为什么总是加不进去！请大家帮忙！代码如下：
<% LANGUAGE = "VBScript" %>
<!--#include virtual="/adovbs.inc"-->
<HTML>
<HEAD>
<TITLE> 保存预定信息 </TITLE>
</HEAD>
<BODY>
<%Dim cnn, rst, sSQL
Dim Name, Sex, Phone, Id, Date1, Date2, Other
Name = Trim(Requset.Form("lname"))
Sex = Requset.Form("lsex")
Phone = Trim(Requset.Form("ltel"))
Id = Trim(Requset.Form("lcode"))
Date1 = Trim(Requset.Form("ldate"))
Date2 = Trim(Requset.Form("lday"))
Other = Trim(Requset.Form("lother"))set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CabaretManageSystem;Data Source=LO"cnn.BeginTranssSQL="insert tRoomDestine(vCliName, cCliSex, iPhone, vId, iDesDate, dArrDate, vDealwither)"
sSQL=sSQL&" values('"&Name&"','"&Sex&"','"&Phone&"','"&Id&"','"&Date1&"','"&Date2&"','"&Other&"')"
conn.execute sSQL,,adCmdText%>

解决方案 »

  1.   

    insert tRoomDestine(vCliName, cCliSex, iPhone, vId, iDesDate, dArrDate, vDealwither)"
    sSQL=sSQL&" values('"&Name&"','"&Sex&"','"&Phone&"','"&Id&"','"&Date1&"','"&Date2&"','"&Other&"')"你的sql语句有问题
    估计一下你的字段
    vid是数字类型的吧
    insert tRoomDestine(vCliName, cCliSex, iPhone, vId, iDesDate, dArrDate, vDealwither)"
    sSQL=sSQL&" values('"&Name&"','"&Sex&"','"&Phone&"',"&Id&",'"&Date1&"','"&Date2&"','"&Other&"')"
      

  2.   

    sql语句的问题
    所有都是字符型?
      

  3.   

    是  int 类型的！
    －－－－－－－－－》
    把"'"去掉！
      

  4.   

    sql语句中 变量的类型不正确
      

  5.   

    参考:
    你用这条语句开始了一个事务,但是我并没有看到你把这个事务提交
    cnn.BeginTrans你试着把这条语句去了,或者加上事务提交语句
      

  6.   

    response.write sSQL
    response.end
    到查询分析器里执行下 就知道是不是语句错了
      

  7.   

    我把数据库表里的一些字段去掉了 ，类型全部都是varchar的，想一点一点来！可是还是不行！
    源文件如下：<% LANGUAGE = "VBScript" %><HTML>
    <HEAD>
    <TITLE> 保存预定信息 </TITLE>
    </HEAD>
    <BODY>
    <!-- #include virtual = "/adovbs.inc" --><%
    Dim conn, rest, StrSQL
    Dim vCliName, iPhone, vComName, vDealwither
    vCliName = Trim(Request.Form("lname"))iPhone = Trim(Request.Form("ltel"))
    vComName = Trim(Request.Form("lcode"))vDealwither = Trim(Request.Form("lother"))set conn = Server.CreateObject("ADODB.Connection")conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CabaretManageSystem;Data Source=."conn.OpenStrSQL = "INSERT tRoomDestine(vCliName, iPhone, vComName, vDealwither)"
    StrSQL = StrSQL & "VALUES('"&vCliName&"','"&iPhone&"','"&vComName&"','"&vDealwither&"')"conn.Execute StrSQL,,adCmdText%>
      

  8.   

    conn.Execute StrSQL,,adCmdText改为
    conn.Execute StrSQL