【转帖】vb通过ado连接odbc数据源
 

vb通过ado连接odbc数据源
www.dimcax.com
vb通过ado连接odbc数据源
我在vb中想调用vf数据库。我先在控制面板的管理工具中进行了设置，然后写了下面的一些代码，但连不到数据库。但是在可视化数据管理器里可以通过odbc打开相应的vf数据库，不知道问题出在哪里，敬请指教。
option explicit
dim conn as adodb.connection
dim rs as adodb.recordset
dim sqlstr as string
private sub combo1_change()
'新建一个connection对象的实例，并将它赋给conn
set conn = new adodb.connection
'建立到数据库“选型参数”的连接
conn.connectionstring = "provider=msdasql.1;persist security info=false;user id=sa;data source=选型参数"
conn.open
'新建一个recordset对象的实例，并将它赋给rs
set rs = new adodb.recordset
sqlstr = "select * from 物料特性 where 物料名称 = " + trim(combo1.text) + ""
rs.open sqlstr, conn
txtdensity.text = trim(rs("松散密度"))
txtangle.text = trim(rs("安息角"))
txtmoveangle.text = trim(rs("动堆积角"))
rs.close
set rs = nothing
end sub
没人会吗？