告訴你一個(gè)方法;

創(chuàng)新互聯(lián)主要從事網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)安平,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575
在
End If
與
Form5.Text = Form5.Text " -- " sno snn
這兩行代碼當(dāng)中加一行代碼:
Msgbox(str)
看看,輸出什么,仔細(xì)檢查一下,就應(yīng)該知道什么問題了。
如下面這樣;
......
End If
Msgbox(str)
Form5.Text = Form5.Text " -- " sno snn
首先在窗體上添加Button1,ListBox1,下面是完整代碼
Public?Class?Form1
Public?Sub?BubbleSort(ByVal?arr()?As?Integer)?'冒泡法排序
Dim?temp?As?Double
Dim?i,?j?As?Integer
For?i?=?0?To?arr.GetUpperBound(0)?-?1
For?j?=?i?+?1?To?arr.GetUpperBound(0)?-?1
If?arr(i)??arr(j)?Then
temp?=?arr(j)
arr(j)?=?arr(i)
arr(i)?=?temp
End?If
Next
Next
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'調(diào)用
Dim?arr()?As?Integer?=?{55,?22,?33,?11,?77,?88}
BubbleSort(arr)?'調(diào)用排序過程
Me.ListBox1.Items.Clear()
For?i?=?0?To?arr.GetUpperBound(0)?-?1?'顯示排序后結(jié)果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End?Sub
End?Class
如果語法沒問題的話,那就看看你那個(gè)(用戶信息表)里有沒有name 和 password 字段吧.
我剛碰到和你一樣的問題,就是把表名打錯(cuò)了,那表里沒有sql語句里的字段.
看一下aa 是否傳過來值了
估計(jì)是沒得到值
strSql = "select top 1 * from userform"
改成這個(gè)就知道查詢是否出問題了!
網(wǎng)頁題目:vb.net一個(gè)參數(shù),vb中的參數(shù)是什么
URL鏈接:http://www.jbt999.com/article0/hdcoio.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、響應(yīng)式網(wǎng)站、外貿(mào)建站、面包屑導(dǎo)航、網(wǎng)站收錄、微信公眾號
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)