<%@ Page Language="VB" ContentType="text/html" %> <%@ import namespace="system.data" %> <%@ import namespace="system.data.oledb" %>Sub Page_Load(Src As Object, E As EventArgs) If Not IsPostBack Then B() End If End Subsub B() dim a as new oledbconnection() a.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("db1.mdb") dim b as new oledbdataadapter("select * from zl",a) dim c as new dataset() b.fill(c,"zl") datalist1.datasource=c datalist1.databind() end sub 就OK了~~~~~~ 小妹子接分了`~~~~~
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>Sub Page_Load(Src As Object, E As EventArgs)
If Not IsPostBack Then
B()
End If
End Subsub B()
dim a as new oledbconnection()
a.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("db1.mdb")
dim b as new oledbdataadapter("select * from zl",a)
dim c as new dataset()
b.fill(c,"zl")
datalist1.datasource=c
datalist1.databind()
end sub 就OK了~~~~~~
小妹子接分了`~~~~~