各位帮忙看看这里插入数据的错误那里写错了？

你怎麼沒有打開數據庫呀?
看看:
Function AddNews()
    Dim DS As DataSet
    Dim MyCommandAdd As OleDbCommand
       
    Dim InsertCmd As String = "insert into [min] (zhuti,name,body,face,bd,riqi,orders) values (@zhuti,@name,@body,@face,@bd,@riqi,@orders)"
    MyCommandAdd = New OleDbCommand(InsertCmd, MyConnection) MyCommandAdd.parameters.add("@zhuti",format(zhuti.text))
MyCommandAdd.parameters.add("@name","nh")
    MyCommandAdd.parameters.add("@body",format(body.text))
MyCommandAdd.parameters.add("@face","face1")
MyCommandAdd.parameters.add("@bd",bd)
    MyCommandAdd.parameters.add("@riqi",now.ToString) 
    MyCommandAdd.parameters.add("@orders",now.ToString)     MyCommandAdd.Connection.Open()
    MyCommandAdd.ExecuteNonQuery()
    MyCommandAdd.Connection.Close()

End Function

解决方案 »

  1.   

    先加入参数,定义好类型，再给参数赋值：
    cmd.parameters.add( "@au_name",SqlDbType.VarChar,100)；
    cmd.parameters["@au_name"].Value = name.text;
      

  2.   

    先加入参数,定义好类型，再给参数赋值：
    cmd.parameters.add(new SqlParameter（"@au_name",SqlDbType.VarChar,100))；
    cmd.parameters["@au_name"].Value = name.text;
      

  3.   

    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.SqlClient" %><html>
     
    <script language="VB" runat="server">    Sub GetAuthors_Click(Sender As Object, E As EventArgs)         Dim DS As DataSet
            Dim MyConnection As SqlConnection
            Dim MyCommand As SqlDataAdapter        Dim SelectCommand As String = "select * from Authors where state = @State"        MyConnection = New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
            MyCommand = New SqlDataAdapter(SelectCommand, MyConnection)        MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@State", SqlDbType.NVarChar, 2))
            MyCommand.SelectCommand.Parameters("@State").Value = MySelect.Value        DS = new DataSet()
            MyCommand.Fill(DS, "作者")        MyDataGrid.DataSource=DS.Tables("作者").DefaultView
            MyDataGrid.DataBind()
        End Sub</script><body style="font: 10.5pt 宋体">  <form runat="server">    <h3><font face="宋体">对 DataGrid 控件的参数化选择</font></h3>    选择州:    <select id="MySelect" runat="server">
          <option>CA</option>
          <option>IN</option>  
          <option>KS</option>  
          <option>MD</option>  
          <option>MI</option>  
          <option>OR</option> 
          <option>TN</option>  
          <option>UT</option>  
        </select>    <input type="submit" OnServerClick="GetAuthors_Click" Value="获取作者" runat="server"/><p>    <ASP:DataGrid id="MyDataGrid" runat="server"
          Width="700"
          BackColor="#ccccff" 
          BorderColor="black"
          ShowFooter="false" 
          CellPadding=3 
          CellSpacing="0"
          Font-Name="宋体"
          Font-Size="8pt"
          HeaderStyle-BackColor="#aaaadd"
          EnableViewState="false"
        />  </form></body>
    </html>
      

  4.   

    不行啊~~~都试过了~~数据库连接我没有弄出来
    <script runat="server">
    sub writedata(sender As Object, e As System.EventArgs)
    dim conn as oledbconnection
    dim cmd as oledbcommand
    dim insert as stringconn = new oledbconnection ( "provider=microsoft.jet.oledb.4.0;data source=D:\Design\dase\db1.mdb" )
    conn.open()
    insert = "insert into note ( name,password,email,message) values (@au_name,@au_password,@au_email,@au_message)"
    cmd = new oledbcommand ( insert,conn )
    cmd.parameters.add( "@au_name",format(named.text))
    cmd.parameters.add( "@au_email",format(email.text))
    cmd.parameters.add( "@au_password",format(psw.text))
    cmd.parameters.add( "@au_message",format(message.text))cmd.ExecuteNonQuery()
    conn.close()
    end sub
    </script>
      

  5.   

    不行啊~还是insert into语句的语法错误
      

  6.   

    insert = "insert into note ( name,password,email,message) values (@au_name,@au_password,@au_email,@au_message)"？？
    如果是插入SQL SERVER数据库，不会有问题。
    不过，你好像是使用ACCESS的数据库啊..
    这种写当然会出错。修改(@au_name,@au_password,@au_email,@au_message)这里面的变量名可以了。比如去掉@符号...
      

  7.   

    to minsky()
    (@au_name,@au_password,@au_email,@au_message)
    这里是参数啊？和名字没有关系把？
    to martin628:
    数据库我已经打开了～～
      

  8.   

    有关系。ACCESS不支持@*****这种类型的命名方式呢...你换过来就应该好了
      

  9.   

    sqlparameter 不定义类型也是可以的,
      

  10.   

    to 苹果:
    sql服务器我装不起来~~用不了那个名字~~555555555
    to minsky
    能不能举个例子应该怎么改哈？
      

  11.   

    怎么会sql服务器装不起来呢？装个人版吧