2種沒有使用綁定的 數據顯示
發表時間:2023-08-08 來源:明輝站整理相關軟件相關文章人氣:
[摘要]/*豆腐制作 都是精品http://www.asp888.net 豆腐技術站如轉載 請保留版權信息 */<%@ Import Namespace="System.Data"...
/*
豆腐制作 都是精品
http://www.asp888.net 豆腐技術站
如轉載 請保留版權信息
*/
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<html>
<script language="VB" runat="server">
Dim dsCustomer as DataSet
Dim CustomersDSCommand as SQLDataSetCommand
Protected Sub Page_Load(Src as object, E as EventArgs )
'讀出數據的第一種方法
Dim myConnection as SQLConnection
Dim dtReader AS SQLDataReader
myConnection = new SQLConnection("server=localhost;uid=sa;pwd=;database=northwind")
CustomersDSCommand = new SQLDataSetCommand("SELECT * FROM customers", myConnection)
dsCustomer = new DataSet()
CustomersDSCommand.FillDataSet(dsCustomer, "Customers")
Dim Customer as DataRow
For Each Customer In dsCustomer.Tables("Customers").Rows
Response.Write(Customer("CustomerId").ToString() + "<BR>" )
Next
End Sub
Sub displaydata()
'讀出數據的第二種方法
Dim dtReader AS SQLDataReader
Dim sqlcmd AS SQLCommand
Dim sqlserver AS String
Dim sql AS String
sqlserver = "server=localhost;uid=sa;password=;database=northwind"
SQL = "Select * from customers"
sqlcmd = New SQLCommand(sql,sqlserver)
sqlcmd.ActiveConnection.Open()
sqlcmd.execute(dtreader)
Response.write("再進行數據庫open后,我們來顯示這個Table 的某一個字段的數值")
While dtReader.Read()
response.write (dtreader.Item("CustomerId") & "<br>")
End While
End Sub
</script>
<body>
</body>
</html>
作者:豆腐()