这个程序可能对你有帮助 :<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'创建数据连接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Friend.mdb")
objConn.Open() '创建 DataReader 对象案例
Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Select * From 择友俱乐部"
Dim objReader As OleDbDataReader = objCmd.ExecuteReader() '显示数据
Dim I As Integer
Response.Write ("<Table Border='1'><Tr Align='Center'>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetName(I) & "</Td>")
Next
Response.Write ("</Tr>") Dim Data(objReader.FieldCount -1)
While objReader.Read()
objReader.GetValues(Data)
Response.Write ("<Tr>")
For I = 0 To Data.Length - 1
Response.Write ("<Td>" & Data(I) & "</Td>")
Next
Response.Write ("</Tr>")
End While
Response.Write ("</Table>")
'关闭 DataReader 对象案例及数据连接
objReader.Close()
objConn.Close()
End Sub
</Script>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'创建数据连接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Friend.mdb")
objConn.Open() '创建 DataReader 对象案例
Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Select * From 择友俱乐部"
Dim objReader As OleDbDataReader = objCmd.ExecuteReader() '显示数据
Dim I As Integer
Response.Write ("<Table Border='1'><Tr Align='Center'>")
For I = 0 To objReader.FieldCount - 1
Response.Write ("<Td>" & objReader.GetName(I) & "</Td>")
Next
Response.Write ("</Tr>") Dim Data(objReader.FieldCount -1)
While objReader.Read()
objReader.GetValues(Data)
Response.Write ("<Tr>")
For I = 0 To Data.Length - 1
Response.Write ("<Td>" & Data(I) & "</Td>")
Next
Response.Write ("</Tr>")
End While
Response.Write ("</Table>")
'关闭 DataReader 对象案例及数据连接
objReader.Close()
objConn.Close()
End Sub
</Script>
while(reader.Read())
{
if(iTemp == 4)
{
iTemp = 1;
}
switch(iTemp)
{
case 1:
Console.Write(reader["ID"].ToString() + " ");
break;
case 2:
Console.Write(reader["ID"].ToString() + " ");
break;
case 3:
Console.WriteLine(reader["ID"].ToString() + " ");
break;
}
iTemp ++;
}
不是很明白你的意思