在combobox中显示数据库中指定的时间时前面总出系统时间，怎么办啊？

[liaoqiufan]

我在数据库中加入了一些时间，比如：07：30，09：30。要在一个combobox中显示这些时间，可是前面总会出来当前时间，如：2004-5-8 07：30：00 数据库中的时间字段该设置什么类型啊？我用char和text都不行，用datetime显示时间更不对了，如：1899-12-30 7:30:00。该怎么设置啊？

[liaoqiufan]

TO:LoveEgg(我很菜)
我用你的方法时，dt = 你数据库中的字段 这一句怎么写啊？我怎么写都是出错，具体的格式是怎么样的啊？是要写数据库名.字段名，还是要怎么写？

[LoveEgg]

“你数据库中的字段”代指的是你从数据库中读出来的日期型字段的值。

假设你的C盘下有个MDB数据库：db1.mdb,里面有个表叫Table1,里面的第一个字段是日期时间型（DateTime）的：

Dim cn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\db1.mdb;user id=admin;password=")
Dim da As New OleDb.OleDbDataAdapter("select * from table1", cn)
Dim dt As New DataTable
Try
da.Fill(dt)
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try

Dim dr As DataRow
For Each dr In dt.Rows
Dim theDate As Date = dr.Item(0) '取出日期型字段的值
ComboBox1.Items.Add(theDate.ToShortTimeString) '只加入时间值
Next

[Vsnetlx]

dim dRow as DataRow
dim dtime as Datetime
for each dRow in ds.able("表名").Rows
dtime=dRow("日期字段名")
ComboBox1.Items.Add(dtime.ToShortTimeString)
next

[Vsnetlx]

ComboBox1.Text = DateTime.Now.ToShortTimeString

[liaoqiufan]

不是要显示系统时间啊，我是想显示数据库中设定好的时间，是数据库中要显示时间的那个字段的数据类型该怎么设置啊？

[lk_cool]

数据库中的时间字段该设置什么类型啊？ datetime

直接赋值就可以 combox1.text=....

要显示的格式与系统日期设定有关系。

可以在显示的时候设定一下格式。

[CMIC]

<%# DataBinder.Eval(Container.DataItem, "你的数据库中字段名称", "{0:HH:mm:ss}") %>

[LoveEgg]

这样看来你数据库中的字段应该是日期时间型的。
dim dt as Date
dt = 你数据库中的字段
Combox1.text=dt.toshorttimestring