台灣最大程式設計社群網站
線上人數
1748
 
會員總數:246576
討論主題:190032
歡迎您免費加入會員
討論區列表 >> ASP.NET >> [NET]如何在資料庫新增一筆資料啊
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[NET]如何在資料庫新增一筆資料啊
價值 : 0 QP  點閱數:2680 回應數:3
樓主

sonic
初學者
45 12
34 17
發送站內信

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
   'declare connection
   dim Conn as OleDbConnection = new OleDbConnection _
         ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\inetpub\wwwroot\final project\happytra.mdb")
   dim objCmd as new OleDbCommand _
         ("select * from new", Conn)
   dim objReader as OleDbDataReader
   
   
  ' sub Page_Load(obj as Object, e as EventArgs) 
  '    if Not Page.IsPostBack then
  '       FillDataGrid()
  '    end if
  ' end sub
   
   sub Submit(obj as object, e as eventargs)
      'insert new data
      dim i, j as integer
      dim params(8) as string
      dim strText as string
      dim blnGo as boolean = true
       
      j = 0
      
      for i = 0 to AddPanel.Controls.Count - 1
         if AddPanel.controls(i).GetType Is GetType(TextBox) then
            strText = Ctype(AddPanel.Controls(i), TextBox).Text
            if strText <> "" then
               params(j) = strText
            else
               blnGo = false
               lblMessage.Text = lblMessage.Text & "You forgot to enter " & _
                  "a value for " & AddPanel.Controls(i).ID & "<p>"
               lblMessage.Style("ForeColor") = "Red"
            end if
            j = j + 1
         end if
      next
       
      if not blnGo then
         exit sub
      end if
       
      dim strSQL as string = "INSERT INTO new " & _
         "(FirstName, LastName, Address, City, State, " & _
          "Zip, Phone, Comment) VALUES (" & _
         "'" & params(0) & "'," & _
         "'" & params(1) & "'," & _
         "'" & params(2) & "'," & _
         "'" & params(3) & "'," & _
         "'" & params(4) & "'," & _
         "'" & params(5) & "'," & _
         "'" & params(6) & "'," & _
         "'" & params(7) & "')"
         
      'ExecuteStatement(strSQL)
      
      'FillDataGrid()
   end sub
   
  ' sub dgData_PageIndexChanged(obj as Object, e as DataGridPageChangedEventArgs)
  '    dgData.DataBind()
  ' end sub
   
  ' sub FillDataGrid(Optional EditIndex as integer=-1)
  '    'open connection
  '    dim objCmd as new OleDbCommand _
  '       ("select * from new", Conn)
  '    dim objReader as OleDbDataReader
  '    
  '    try
  '       objCmd.Connection.Open()
  '       objReader = objCmd.ExecuteReader()
  '    catch ex as Exception
  '       lblMessage.Text = "Error retrieving from the database. Please" & _
  '          " make sure all values are correctly input"
  '    end try
  '    
  '    dgData.DataSource = objReader
  '    if not EditIndex.Equals(Nothing) then
  '       dgData.EditItemIndex = EditIndex
  '    end if
  '    
  '    dgData.DataBind()
  '     
  '    objReader.Close
  '    objCmd.Connection.Close()
  '     
  ' end sub
  
  function ExecuteStatement(strSQL) 
      dim objCmd as new OleDbCommand(strSQL, Conn)
      
      try
         objCmd.Connection.Open()
         objCmd.ExecuteNonQuery()
      catch ex as Exception
         lblMessage.Text = "Error updating the database. Please" & _
            " make sure all values are correctly input"
      end try
     
      objCmd.Connection.Close()
   end function
</script>

<html><body>
   <asp:Label id="lblMessage" runat="server"/>
      
   <form runat="server">
   <asp:Panel id="AddPanel" runat="server">
         <table>
         <tr>
            <td width="100" valign="top">
               First and last name:
            </td>
            <td width="300" valign="top">
               <asp:TextBox id="tbFName" runat="server"/>
               <asp:TextBox id="tbLName" runat="server"/>
            </td>
         </tr>
         <tr>
            <td valign="top">
               Address: 
            </td>
            <td valign="top">
               <asp:TextBox id="tbAddress" 
                  runat="server" />              
            </td>
         </tr>
         <tr>
            <td valign="top">
               City, State, ZIP: 
            </td>
            <td valign="top">
               <asp:TextBox id="tbCity" 
                  runat="server" />,
               <asp:TextBox id="tbState" runat="server"
                  size=2 /> 
               <asp:TextBox id="tbZIP" runat="server"
                  size=5 />
            </td>
         </tr>
         <tr>
            <td valign="top">
               Phone:          
            </td>
            <td valign="top">
               <asp:TextBox id="tbPhone" runat="server"
                  size=11 /><p>
            </td>
         </tr>
         <tr>
            <td valign="top">
               Which route you are interested:          
            </td>
            <td valign="top">
               <asp:TextBox id="tbComment" runat="server"
                  size=11 /><p>
            </td>
         </tr>
         <tr>
            <td colspan="2" valign="top" align="right">
               <asp:Button id="btSubmit" runat="server" 
                  text="Add"
                  OnClick="Submit" />
            </td>
         </tr>
         </table>
      </asp:Panel>
   </form>
</body></html>

本篇文章發表於2002-05-07 05:29
1樓
作者回應

sonic
檢舉此回應
這是我改寫過的
原始的碼會把所有的資料秀在一個TABLE裡
而我只要ADD的FORM即可
可是執行後
對我的資料庫並無作用
幫忙檢查 一下
THANKS
本篇文章回覆於2002-05-07 05:33
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

sabcat
檢舉此回應
>>     dim strSQL as string = "INSERT INTO new " & _
>>         "(FirstName, LastName, Address, City, State, " & _
>>          "Zip, Phone, Comment) VALUES (" & _
>>         "'" & params(0) & "'," & _
>>         "'" & params(1) & "'," & _
>>         "'" & params(2) & "'," & _
>>         "'" & params(3) & "'," & _
>>         "'" & params(4) & "'," & _
>>         "'" & params(5) & "'," & _
>>         "'" & params(6) & "'," & _
>>         "'" & params(7) & "')"
>>         
>>      'ExecuteStatement(strSQL)

最後一行..不知道您是否忘了讓它執行了??
只看到您設定了SQL敘述..但未見您執行...
本篇文章回覆於2002-05-07 15:23
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

sonic
檢舉此回應
thanks,sabcat
真的被你說中了
就是多了那一點
本篇文章回覆於2002-05-07 15:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.