用的是ACCESS的数据库。
[此贴子已经被作者于2006-4-11 12:24:07编辑过]
我用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编辑过]