请高手解决!!!!

zhanzujiejx 2003-08-24 09:53:33

代码如下：
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs) 
Dim Conn As SqlConnection
Dim Adpt As SqlDataAdapter
Dim Ds As DataSet
Conn = New SqlConnection("server = local host;initial catalog = pubs;user id =sa;password =")
Conn.Open()
Dim SQL = "Select * From jobs"
Adpt = New SqlDataAdapter( SQL, Conn )
Ds = New Dataset()
Adpt.Fill(Ds, "jobs")
MyGrid.DataSource = Ds.Tables( "jobs" ).DefaultView
MyGrid.DataBind()

Conn.Close()
End Sub

</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>

<body MS_POSITIONING="GridLayout">
<Form runat="server" ID="Form1">
<asp:DataGrid runat="server" id="MyGrid"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" />
</Form>
</body>
</HTML>
为什么运行时，没有显示任何数据（表里是有数据的）：

...全文

25 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

kuibobo 2003-08-25

打赏
举报

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\MyWeb.mdb"
Dim con As New OleDb.OleDbConnection(ConStr)

Dim SeleClass As String = "Select class From Board Where className='" & className & "'"
Dim CmdSele As New OleDb.OleDbCommand(SeleClass, con)
Dim Readclass As OleDb.OleDbDataReader
Dim clas As Int16

con.Open()
Readclass = CmdSele.ExecuteReader
Readclass.Read()
clas = Readclass("class")

xiaocaonet 2003-08-25

打赏
举报

仔细查代码,有些空格需删除的.

chenhigh 2003-08-25

打赏
举报

1.<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs) 
Dim Conn As SqlConnection
Dim Adpt As SqlDataAdapter
Dim Ds As DataSet
Conn = New SqlConnection("data source=(local);initial catalog=;user id =sa;password =")//字符串有改动
Conn.Open()
Dim SQL = "Select * From jobs"
Adpt = New SqlDataAdapter( SQL, Conn )
Ds = New Dataset()
Adpt.Fill(Ds, "jobs")
MyGrid.DataSource = Ds.Tables( "jobs" ).DefaultView
MyGrid.DataBind()

Conn.Close()
End Sub

</script>
2.保证DataGrid的AutoGenerateColumns="true"

panyee 2003-08-24