Question

vb 连接数据库以及执行Sql语句，并且把查询结果放在DataSet中

我使用的是vb2003 怎么连接数据库和执行Sql语句呀？查询出来的结果能不能放在DataSet中，如果能，我应该怎么放，如果不能，那查询出来的结果应该存放在哪里？ 如果要使用查询结果的话，如何从存放的地方在给取出来。
我刚自学vb不久，关于连接数据库的东西一点也不明白，大家多帮帮忙哈！
我用的是SQLSERVER数据库，能不能把代码写的详细一点

Answer 1

首先要定义一个连接，如果用SQLSERVER数据库就用SqlConnection其他数据库就用OleConnection。主要是设置连接ConnectionStrng属性。
然后定义一个SqlDataAdapter对象，这个对象负责数据库和DatSet之间的通信。有了SqlDataAdapter对象还要不行，因为还没有定义通信规则就是SqlSelectCommand对象，SqlSelectCommand对象主要属性是commandText,commandType和Connection。commandText就是查询的select语句，如果commandText是SQL语句commandType要写Text，Connection就是上面建立的SqlConnection对象。
这一切都设置好以后可以用sqlconnection.open打开连接，然后用SqlDataAdapter.fill(DataSet,"表的名字")把查询结果放在DataSet中。最后别忘了sqlconnection.close关闭连接。

Dim conn As New SqlClient.SqlConnection("Data Source=服务器地址;Initial Catalog=数据库名称;User ID=账号名;Password=密码")
Dim ads As New SqlClient.SqlDataAdapter
With ads.SelectCommand
.CommandText = "select * from 表名称"
.CommandType = CommandType.Text
.Connection = conn
End With
conn.Open()
ads.Fill(DataSet, "表名称")
conn.Close()

Answer 2

首先要连接数据库：
'访问SQL Server数据库
Public Function aaa(sql As String) As ADODB.Recordset
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=**;Password=**;Initial Catalog=dbname;Data Source=(local)"
cn.Open
Set rs = cn.Execute(sql) '放sql语言执行的结果
Set aaa = rs
Exit Function

End Function

使用时只要调用aaa就行了
sqlString = "select gpsnumber,cellid,simnumber from gpsbangding"
Set rs = aaa(sqlString)
rs存放结果就是