| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1336 人关注过本帖
标题:如何让一个组合框显示数据库中的相应内容?
只看楼主 加入收藏
hongxue
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-4-9
收藏
 问题点数:0 回复次数:4 
如何让一个组合框显示数据库中的相应内容?
怎样才能让组合框显示数据库中某一列中不重复的内容?急!急!请各位帮帮忙。
用的是ACCESS的数据库。

[此贴子已经被作者于2006-4-11 12:24:07编辑过]

搜索更多相关主题的帖子: 数据库 ACCESS 
2006-04-11 12:20
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

我用SQL的数据库做了一个,给你做一下参考吧,具体用ACCESS做的话只要把连接的数据库改为ACCESS的连接即可!~
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
'窗体设计器代码
Dim conn As New SqlConnection("server=.;database=Student(你的数据库名称);integrated security=sspi")
Dim comm As New SqlCommand
Dim sqlda As New SqlDataAdapter
Dim sqlds As New DataSet
Dim i As Integer
在load事件中加入如下代码
If conn.State = ConnectionState.Closed Then '打开连接
conn.Open()
End If
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = "select * from 学生信息(你要显示的数据库中的表)"
sqlda.SelectCommand = comm
sqlda.Fill(sqlds, "学生信息")
For i = 0 To sqlds.Tables("学生信息").Columns.Count - 1
ComboBox1.Items.Add(sqlds.Tables("学生信息").Columns(i).ColumnName)
Next
If conn.State = ConnectionState.Open Then '关闭连接
conn.Close()
End If

[此贴子已经被作者于2006-4-11 15:02:10编辑过]


爱上思考,爱上编程,爱上.net!
2006-04-11 15:01
hongxue
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-4-9
收藏
得分:0 
在下初次学习vb对access数据库尚没有完全明白,sql就更加看不懂了,请2楼的好事做到底,改成access数据库的吧。不盛感激。
2006-04-11 18:24
jackboy
Rank: 2
等 级:论坛游民
帖 子:163
专家分:27
注 册:2005-10-9
收藏
得分:0 
Dim Sql
Set conn = New ADODB.Connection
conn.Provider = "MSDataShape"
conn.ConnectionString = "Provider=MSDataShape;Data Source=" & App.Path & "数据库地址; Data Provider=Microsoft.Jet.OLEDB.4.0"
conn.Open
定义成这样就是连接ACEESS数据库了,然后根据定义修改一下就行了

[此贴子已经被作者于2006-4-11 18:39:43编辑过]


2006-04-11 18:34
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
谢谢四楼及时的解答

爱上思考,爱上编程,爱上.net!
2006-04-11 19:20
快速回复:如何让一个组合框显示数据库中的相应内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011949 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved