在vb中如何应用 select的sql查询语句

[zhangzijing]

我用execute不能写select语句 我现在想通过select语句将数据库中指定的某一行数据，并且将这些数据显示在text框中，我不知该如何进行。希望大家给我提示，谢谢。

[junwhj]

一个很简单的例子：

dim cn as new adodb.connection
dim rs as new adodb.recordset

text1.text=""

cn.provider="SQLOLEDB"
cn.open "Driver={SQL Server};Server=Develop;UID=SA;PWD=;Database=DB"

set rs=cn.execute("select * from table1")
do while not rs.eof
text1.text=text1.text & rs(0).value & vbcrlf
rs.movenext
loop

rs.close
set rs=nothing

cn.close
set cn=nothing

[lxqlogo0]

Public objRS As ADODB.Recordset
Public objCon As ADODB.Connection
Public getConString As String
Public Sub GetCon()
If objCon.State = adStateOpen Then objCon.Close

With objCon
.ConnectionString = getConString
.Open
End With
End Sub
Sub GetRecordSet(strSource As String)
If objRS.State = adStateOpen Then objRS.Close 'If the database is open close before getting a new recordset
'On Error GoTo Errorhandler 'I take care of eventual errors


With objRS
.ActiveConnection = objCon
'.CursorLocation = adUseClient
.CursorType = 3 'Move the cursor in any direction and bookmarkable
.LockType = 1 'Editing is possible
.Source = strSource 'What Recordset to get
.Open
'.MoveFirst
End With

End Sub
-------------------------------------------------------------------
Set objCon = New ADODB.Connection
Set objRS = New ADODB.Recordset
getConString = "Provider=SQLOLEDB.1" & _
";Persist Security Info=False" & _
";User ID=sa" & _
";Password=csm@csm" & _
";Initial Catalog=xiazaijilu" & _
";Data Source=" & _
";Network Library=" 'DBMSSOCN"

GetCon '建立到数据库的连接
'GetRecordSet ("select * from table")
text1.text=objRS.Fields(0) & objRS.Fields(1) &........

[yokel]

记得先引用ADO

[MarGo]

dim cn as new adodb.connection
dim rs as new adodb.recordset



cn.provider="SQLOLEDB"
cn.open "Driver={SQL Server};Server=Develop;UID=SA;PWD=;Database=DB"
rs.Open "select * FROM Au_temp ", Cn, adOpenDynamic, adLockBatchOptimistic, adCmdText
通常要设置你的RECORDSET的游标类型不同的游标以及锁的类型


rs.movefirst
........

初始话你的TEXT
rs.next
............

[zhuoranmcsd]

先要引用ADO，在project-->references里引用ado

下面是参考代码（不包括把游标移动到某特定行的代码）：

Dim cn As New Connection
Dim rs As New Recordset

'我用的是access 2000
With cn
.ConnectionString = "Provider = microsoft.jet.oledb.4.0;user id=admin;password=" & password & ";data source =" & CommonDialog1.FileName
.Open
End With


With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from table"
End With


假设表中有一个字段名为：id
那么在text中显示此字段的代码为：

text1.text=rs!id


若要显示整行数据，即显示一行所有字段，则：

'n为字段总数
For i = 0 to n-1
text1.text = text1.text & " | " & rs.Fields(i)
rs.MoveNext
Next