读书人

关于datatable 输出数据方面的有关问题

发布时间: 2012-02-05 12:07:15 作者: rapoo

关于datatable 输出数据方面的问题
数据库里有个CJ(成绩表),我要建立一个datatable.列为 (课程号 课程名 成绩)这三列。然后建立2个TEXTBOX,一个BUTTON。要求可以按照用户名查询成绩或者按照课程号查询成绩(成绩表里面都有这些字段),跪求高手指点。。。看了好多帖子。思维越看越乱。。偶是新手。所以最好给我代码。这样更能让我直观点。谢谢。。。题解揭帖

[解决办法]
Public Class Form1

Dim conn As Data.OleDb.OleDbConnection
Dim da As Data.OleDb.OleDbDataAdapter
Dim ds As Data.DataSet

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

conn = New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb ")
conn.Open()

da = New OleDb.OleDbDataAdapter( "SELECT * FROM 表1 ", conn)
ds = New Data.DataSet
da.Fill(ds)

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtUser.Text <> " " And txtCourse.Text = " " Then
da.SelectCommand = New OleDb.OleDbCommand( "SELECT 课程号,课程名,成绩 FROM CJ WHERE 用户名= ' " & txtUser.Text & " ' ", conn)
ElseIf txtUser.Text = " " And txtCourse.Text <> " " Then
da.SelectCommand = New OleDb.OleDbCommand( "SELECT 课程号,课程名,成绩 FROM CJ WHERE 课程名= ' " & txtCourse.Text & " ' ", conn)
ElseIf txtUser.Text <> " " And txtCourse.Text <> " " Then
da.SelectCommand = New OleDb.OleDbCommand( "SELECT 课程号,课程名,成绩 FROM CJ WHERE 用户名= ' " & txtUser.Text & " ' AND 课程名= ' " & txtCourse.Text & " ' ", conn)
End If
Dim dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt ' 显示在DataGridView中
End Sub

End Class

读书人网 >VB Dotnet

热点推荐