Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
Dim strSql As String
strSql = "select *" " from xx"
Dim oledbCommand As OleDb.OleDbCommand
oledbCommand.CommandText = strSql
oledbCommand.CommandType = CommandType.Text
oledbCommand.Connection = oleDbConnection1
oledbDataAdapter.SelectCommand = oledbCommand
oleDbConnection1.Open()
oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")
oleDbConnection1.Close()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
如果一个程序要用Application.exit来退出,那说明太失败了...
一般来说,都是用close关闭就可以了.
用.NET平台开发,只要你在操作数据库或者IO的时候没有忘记关闭资源连接,一般是不需要你手动释放的.
你要做一个考试系统?这可不是小程序,不过如果是超精简的话,我倒可以写个思路给你.
定义全局变量 questions() as string,questionid as integer,answers() as string
在form_load中,将问题和答案读入questions()和answers()中,然后将第一个问题显示在label中,设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较,然后显示下一题,同时更改questionid...大概就这样
问题结束后就OK了,之后要加什么可以自己加上去~
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d(,) As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
Randomize()
ReDim d(n, n)
Label1.Text = ""
For i = 1 To n
For j = 1 To n
Label1.Text = Label1.Text d(i, j) " "
Next
Label1.Text = Label1.Text vbCrLf
以上就是土嘎嘎小编为大家整理的vb.net小程序相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!