首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

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

2012-02-05 
关于datatable 输出数据方面的问题数据库里有个CJ(成绩表),我要建立一个datatable.列为(课程号课程名成绩)

关于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

热点排行