asp.net+access+VB DropDownList怎么绑定数据？

[jakejo]

asp.net+access+VB DropDownList怎么绑定数据？

我有表table

字段a 字段b
------------------
值1 zhi1
值2 zhi2
值3 zhi3
值4 zhi4

------------------
我想把字段a中的值输出到DropDownList里。
请问怎么解决呢？
在线等------------------急急急急急。。。
----------------------------------------
asp.net+access+VB

帮我改改好吗？谢谢！

部分代码：

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Web.Security" %>
<Script Language="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
if Session("admin_name") = "" then Response.Redirect("admin.aspx?log=out")

'创建数据连接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("do#done.mdb")
objConn.Open()

'创建数据库联接
Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
' objCmd.CommandText= "Select sort_one,sort_id From table_sort order by sort_id desc"' asc 降序
'重复数据只输出一条，其他重复数据不变
objCmd.CommandText= "Select * From table_sort where sort_id in (select max(sort_id) from table_sort group by sort_one) order by sort_id desc"' asc 降序

'帮我改改好吗？谢谢！


'关闭 DataReader 对象案例及数据连接
ds.Close()
objConn.Close()
End Sub


</Script>

<asp:DropDownList ID="classname" runat="server"></asp:DropDownList>

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

问题二:
有表table 字段: id class1 class2


id class1 class2
------------------------
1 aaa a1
2 aaa a2
3 bbb b1
4 aaa a3
5 ccc c1
6 bbb b2
7 bbb b3
8 ccc c2
-------------------------
输出后是如下:

aaa
-----
a1
a2
a3

bbb
-----
b1
b2
b3

c
-----
c1
c2

==========

该如何做呢?
谢谢!

[jakejo]

各位前辈，帮帮忙吧？

[xing771]

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("do#done.mdb")
objConn.Open()


Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText= "Select * From table_sort where sort_id in (select max(sort_id) from table_sort group by sort_one) order by sort_id desc"' asc 降序
'OleDbDataReader dr=objCmd.ExecuteReader()
'上面是c#中的写法，忘记，你是用vb了，哈哈
Dim dr As OleDbDataReader
dr=objCmd.ExecuteReader()
classname.DataSource=dr
classname.DataTextField="class1";
classname.DataValueField="id";
classname.DataBind()
objConn.Close()
End Sub

[xing771]

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("do#done.mdb")
objConn.Open()


Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText= "Select * From table_sort where sort_id in (select max(sort_id) from table_sort group by sort_one) order by sort_id desc"' asc 降序
OleDbDataReader dr=objCmd.ExecuteReader()
classname.DataSource=dr
classname.DataTextField="class1";
classname.DataValueField="id";
classname.DataBind()
objConn.Close()
End Sub

[jakejo]

去掉
classname.DataTextField="class1";
classname.DataValueField="id";
后面的两个分号可以了！

哈哈！~~~~~~~~~~~~~~~~~~

===========================
可是第二个问题呢？也很棘手啊！
看来明天交不了货了。

[jakejo]

不行啊！
编译器错误信息: BC30684: “OleDbDataReader”是一个类型，不能用作表达式。

[jakejo]

第二个问题呢？

问题二:
有表table 字段: id class1 class2


id class1 class2
------------------------
1 aaa a1
2 aaa a2
3 bbb b1
4 aaa a3
5 ccc c1
6 bbb b2
7 bbb b3
8 ccc c2
-------------------------
输出后是如下:

aaa
-----
a1
a2
a3

bbb
-----
b1
b2
b3

c
-----
c1
c2

==========

[califord]

http://community.csdn.net/Expert/topic/4640/4640880.xml?temp=.4850885

三层的

用C#的

你可以看看

[jakejo]

我现在用的是VB啊，能不能帮我改成.net+VB+access的吗？
我试了很久都没出来。

[jake_jo]

帮顶

[jake_jo]

有表table 字段: id class1 class2


id class1 class2
------------------------
1 aaa a1
2 aaa a2
3 bbb b1
4 aaa a3
5 ccc c1
6 bbb b2
7 bbb b3
8 ccc c2
-------------------------
输出后是如下:

aaa
-----
a1
a2
a3

bbb
-----
b1
b2
b3

c
-----
c1
c2

==========

[BitNomad]

帮你up一下 顺便做个广告 谁帮我解答一下这个问题啊，帖子地址：
http://community.csdn.net/Expert/TopicView.asp?id=4843558

为什么我的帖子老上不了问题列表呢？

[jakejo]

多谢wuye！

[jakejo]

各位前辈，帮帮忙吧？


有表table 字段: id class1 class2


id class1 class2
------------------------
1 aaa a1
2 aaa a2
3 bbb b1
4 aaa a3
5 ccc c1
6 bbb b2
7 bbb b3
8 ccc c2
-------------------------
输出后是如下:

aaa
-----
a1
a2
a3

bbb
-----
b1
b2
b3

c
-----
c1
c2

==========

[jakejo]

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("do#done.mdb")
objConn.Open()


Dim objCmd As New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText= "Select * From table_sort where sort_id in (select max(sort_id) from table_sort group by sort_one) order by sort_id desc"' asc 降序

??????????????????????????????????????????????????????????????????????????????

objConn.Close()
End Sub