Question

SQL select语句将结果输出到VBtextbox控件上

Answer 1

可以参考下列示例代码

先引用ADO类库

'窗体通用位置声明
Dim cn As New ADODB.Connection  '声明一个ADO连接对象变量 
Dim rs As New ADODB.Recordset  '声明一个ADO记录集对象变量

'编写下列窗体加载事件过程
Private Sub Form_Load()
Dim cnStr As String            '声明一个连接字符串变量 
Dim sqlStr As String             '声明一个SQL查询字符串变量 
'设置远程连接字符串 
cnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='\\192.168.1.100\Shared\TestDB.mdb';"
rs.CursorLocation=adUseClient '使用客户端游标
sqlStr="select sid,sname from students" '拼写数据检索SQL语句
cn.Open cnStr '打开连接 
'打开记录集 
rs.Open sqlStr,cn,adOpenKeyset,adLockOptimistic 
'将students表的第一条内容显示于文本框中 
If Not rs.Bof And Not rs.Eof then
Text1=rs!sid
Text2=rs!sname
End If
End Sub