[問題] 資料表的資料都是0?
我寫了一個連接資料庫的網頁，用的是ASP
說明一下:網頁會顯示的是四個文字方塊，一個是名字，另三個是日期
都是讓人打中文或英文，然後他們打入的資料分別存入資料表中的name
和另三個日期欄位，但是我上傳到網路上，網頁可以執行成功，但是
資料表內的資料都顯示為0，不知道是發生什麼問題?(還是說空間的問題?)
不知道要怎麼解決? 先謝謝各位了~
以下附上程式碼:
<Html>
<Body BgColor="White">
<Form runat="server">
<Blockquote>
name: <asp:TextBox runat="server" id="name" /><br>
7/4: <asp:TextBox runat="server" id="four" /><br>
7/11: <asp:TextBox runat="server" id="eleven" /><br>
7/18: <asp:TextBox runat="server" id="eighteen" /><br>
7/25: <asp:TextBox runat="server" id="twentyfive" /><p>
<asp:Button runat="server" Text="add" OnClick="InsertData" />
</Blockquote>
<HR><asp:Label runat="server" id="Msg" ForeColor="Red" />
</Form>
</Body>
</Html>
<script Language="VB" runat="server">
Sub InsertData(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath( "class1.mdb" )
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open()
Dim SQL As String
SQL = "Insert Into sta (name, 4, 11, 18, 25) Values( ?, ?, ?, ?, ?)"
Cmd = New OleDbCommand( SQL, Conn )
Cmd.Parameters.Add( New OleDbParameter("@name", OleDbType.Char, 50))
Cmd.Parameters.Add( New OleDbParameter("@4", OleDbType.Char, 50))
Cmd.Parameters.Add( New OleDbParameter("@11", OleDbType.Char, 50))
Cmd.Parameters.Add( New OleDbParameter("@18", OleDbType.Char, 50))
Cmd.Parameters.Add( New OleDbParameter("@25", OleDbType.Char, 50))
Cmd.Parameters("@name").Value = Val(name.Text)
Cmd.Parameters("@4").Value = Val(four.Text)
Cmd.Parameters("@11").Value = Val(eleven.Text)
Cmd.Parameters("@18").Value = Val(eighteen.Text)
Cmd.Parameters("@25").Value = Val(twentyfive.Text)
Cmd.ExecuteNonQuery()
If Err.Number <> 0 Then
Msg.Text = Err.Description
Else
Msg.Text = "success!"
End If
Conn.Close()
End Sub
</script>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.244.146.54
→
06/07 19:15, , 1F
06/07 19:15, 1F