<%@ Page Language="VB" %>
<%@ import Namespace="System.data" %>
<%@ import Namespace="System.data.oledb" %>
<%@ import Namespace="System.data.ado" %><script language="vb" runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Dim cma as ADOCommand = new ADOCommand("","Provide=Microsoft.Jet.OLEDB.4.0;Data Source=jc")
dim dra as ADODataReader
dim shti as short
cma.ActionConnection.Open()
cma.CommandText = "select * from t_sp"
cma.execute(dra)
do while dra.read()
Response.write(dra.item("sp_id") & " , " & dra.item("sp_name"))
response.write("<br>")
loop
dra.close
End Sub</script>
<%@ import Namespace="System.data" %>
<%@ import Namespace="System.data.oledb" %>
<%@ import Namespace="System.data.ado" %><script language="vb" runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Dim cma as ADOCommand = new ADOCommand("","Provide=Microsoft.Jet.OLEDB.4.0;Data Source=jc")
dim dra as ADODataReader
dim shti as short
cma.ActionConnection.Open()
cma.CommandText = "select * from t_sp"
cma.execute(dra)
do while dra.read()
Response.write(dra.item("sp_id") & " , " & dra.item("sp_name"))
response.write("<br>")
loop
dra.close
End Sub</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货