Question

VB.NET如何在listbox中显示数据库的某一字段的内容(ACCESS)

比方我要显示表"凭证字"的字段,字段名"凭证字",给代码吧,代码尽量全!从private sub Form_load到end sub
已有代码
dim sqlstring as string="select 凭证字 from 凭证字"
Dim connstr as String="Provider=Microsoft.Jet.Oledb.4.0;"& "Data source=rent.mdb
dim gt as new dataTable
dim dataAdapter as new OleDb.OleDbDataAdapter(sqlstring,connStr)
之后如何写代码才能在LISTBOX中显示数据库中凭证字字段的内容

Answer 1

Private Sub frmInput_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dim sqlstring as string="select 凭证字 from 凭证字"
Dim connstr as String="Provider=Microsoft.Jet.Oledb.4.0;"& "Data source=rent.mdb"
Dim ConnTemp As New OleDb.OleDbConnection
Dim RSTemp As OleDb.OleDbDataReader
ConnTemp.ConnectionString = connstr
Dim CmdTemp As New OleDb.OleDbCommand(sqlstring, ConnTemp)
ConnTemp.Open()
RSTemp = CmdTemp.ExecuteReader
Do While RSTemp.Read
ListBox1.Items.Add(RSTemp(0))
Loop
RSTemp.Close()
conntemp.close