在.net里是不對(duì)的。
創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時(shí)代的江干網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
服務(wù)器控件里面你要讀取表里面的東西,你需要是使用例如gridview之類的數(shù)據(jù)控件。然后用gridview.rows(i).cells(j)取值。
加了單引號(hào)就是一個(gè)常量字符串了,對(duì)于每一行都是一樣的
像這種放在最前面的字段,order by 1 就可以了
Visualbasic代碼編輯器沒(méi)有這個(gè)功能,但可以用第三方的編輯軟件Emedit來(lái)實(shí)現(xiàn)這個(gè)功能。
1、用Emedit打開*.frm文件。
2、點(diǎn)工具,當(dāng)前配置屬性,然后勾選顯示行號(hào)即可。
可以先對(duì)數(shù)據(jù)庫(kù)中的表數(shù)據(jù)進(jìn)行正序排列,然后打印結(jié)果的時(shí)候?qū)rint放在循環(huán)外。
如:test表中有如下數(shù)據(jù)
現(xiàn)在要用游標(biāo)取出最后一條,也就是“5,孫七”這條。
代碼如下:
declare?@id?int?--定義變量
declare?@name?varchar(10)?--定義變量
declare?cur_c?cursor?for?select?*?from?test?order?by?id?--定義游標(biāo)
open?cur_c?--打開游標(biāo)
fetch?next?from?cur_c?into?@id,@name?--取游標(biāo)值到變量
while?@@fetch_status?=?0?--循環(huán)退出條件
begin?--循環(huán)開始
fetch?next?from?cur_c?into?@id,@name??--繼續(xù)取游標(biāo)值到變量
end?--循環(huán)結(jié)束
print?cast(@id?as?varchar)+','+@name?--打印最后一條結(jié)果
close?cur_c?--關(guān)閉游標(biāo)
deallocate?cur_c?--釋放游標(biāo)
結(jié)果如圖:
改為:
sql = "insert into 表1 values(用戶名='" TextBox1.Text "' ,密碼='" TextBox2.Text "')"
一般,我都不喜歡做這樣報(bào)上一條下一條,太專業(yè)的數(shù)據(jù)庫(kù)操作不適合終端用戶。
如果必須要做,你可以這樣:按排序規(guī)則,取到健列表。保存到list中,上下條,只是改變一索引而已。
Imports System.Data.OleDb
Class BindNavigate
Dim cnn As OleDb.OleDbConnection '打開連接略
Dim lst As New List(Of Integer)
Sub New()
lst = New List(Of Integer)
index = -1
Using da As New OleDbDataAdapter("select id from mytable order by abc,def", cnn), tb As New DataTable
da.Fill(tb)
For Each row As DataRow In tb.Rows
Dim n As Integer = row(0)
lst.Add(n)
Next
If tb.Rows.Count 0 Then CurrentIndex = 0
End Using
End Sub
Dim index As Integer Event CurrentIndexChanged()
Property CurrentIndex As Integer
Get
Return index
End Get
Set(ByVal value As Integer)
Dim b As Boolean = value index
index = value
If b Then RaiseEvent CurrentIndexChanged()
End Set
End Property
'當(dāng)前的鍵值
ReadOnly Property CurrentValue As Integer
Get
Return lst(index)
End Get
End Property
Sub MoveFirst()
CurrentIndex = 0
End Sub
Sub MovePrevious()
CurrentIndex -= 1
End Sub
Sub MoveNext()
CurrentIndex += 1
End Sub
Sub MoveLast()
CurrentIndex = lst.Count - 1
End Sub
ReadOnly Property BOF
Get
Return CurrentIndex = 0
End Get
End Property
ReadOnly Property EOF
Get
Return CurrentIndex = lst.Count - 1
End Get
End Property
Private Sub Text_CurrentIndexChanged() Handles Me.CurrentIndexChanged
'綁定過(guò)程
End Sub
End Class