用ADO对象确实比较方便,我平时也只用ADO。 它需要先在“工程”->“引用”里面选中:"Microsoft ActiveX Data Objects 2.1 Library",也许你的版本更高些。 然后在程序中声明变量后就可以用了: Dim con As New ADODB.Connection ’连接对象 Dim rs As New ADODB.Recordset ’记录集对象 Dim strCon As String ’连接字符串 Dim strSQL As String ’查询语句strCon="Provider=.....;Data Source=......" con.Open strCon strSQL="Select ......" rs.Open strSQL,con,...... '这里的参数有自动提示,我记不起了 现在rs里面就包含了SQL语句查询出来的记录集,假设查询到的记录有一个叫“姓名”的字段,那么可以这样修改其值: rs("姓名")="安然" 最后可用rs.Update更新数据库。
接上面的方法,可以用 Set Me.DataGrid1.Datasource=rs 或者用程序调结果集进行显示~~
它需要先在“工程”->“引用”里面选中:"Microsoft ActiveX Data Objects 2.1 Library",也许你的版本更高些。
然后在程序中声明变量后就可以用了:
Dim con As New ADODB.Connection ’连接对象
Dim rs As New ADODB.Recordset ’记录集对象
Dim strCon As String ’连接字符串
Dim strSQL As String ’查询语句strCon="Provider=.....;Data Source=......"
con.Open strCon
strSQL="Select ......"
rs.Open strSQL,con,...... '这里的参数有自动提示,我记不起了
现在rs里面就包含了SQL语句查询出来的记录集,假设查询到的记录有一个叫“姓名”的字段,那么可以这样修改其值:
rs("姓名")="安然"
最后可用rs.Update更新数据库。
Set Me.DataGrid1.Datasource=rs
或者用程序调结果集进行显示~~