大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
创新互联致力于网站建设,网站制作设计,营销网页按需设计网站,外贸网站制作,企业网站建设,小程序设计,网站SEO优化,网站设计制作案例丰富,是成都做网站公司和建站公司,欢迎咨询。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"
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
你是在问怎么做还是找人帮你做?
那你的窗体和控件什么的都创建好了吗?数据库有建立好吗?你的这个是一个完整功能的程序而不是一个功能模块。这需要很多代码的,在百度知道里我想是没法回答你,除非你把你会做的都做了比如创建好窗体和里边的控件,建立好数据库。如果登录窗体的验证密码功能你不会我可以帮助你写代码。这个样子的问题才能回答,你现在要问整个程序怎么做.....
如果你一点也不会的话,我建议你先从一些基本的VB.NET知识开始学起,不要一开始就做一个这么多功能的程序。
随机生成2-5阶方阵:
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()
n = Int(4 * Rnd() + 2)
ReDim d(n, n)
Label1.Text = ""
For i = 1 To n
For j = 1 To n
d(i, j) = Int(Rnd() + 0.5)
Label1.Text = Label1.Text d(i, j) " "
Next
Label1.Text = Label1.Text vbCrLf
Next
End Sub
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
你要做一个考试系统??这可不是小程序,不过如果是超精简的话,我倒可以写个思路给你。
在form添加一个label 和四个command1(组成一个控件组修改index属性,按顺序设置为ABCD)和一个command2(可要可不要,这个是作为跳过用的)
定义全局变量 questions() as string,questionid as integer,answers() as string
在form_load中,将问题和答案读入questions()和answers()中,然后将第一个问题显示在label中,设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较,然后显示下一题,同时更改questionid。。。大概就这样
command2_Click()就直接显示下一题和更改questionid
问题结束后就OK了,之后要加什么可以自己加上去~
如果一个程序要用Application.exit来退出,那说明太失败了。。。
一般来说,都是用close关闭就可以了。
用.NET平台开发,只要你在操作数据库或者IO的时候没有忘记关闭资源连接,一般是不需要你手动释放的。