VB通过ADO连接ODBC数据源
<P>我在VB中想调用VF数据库。我先在控制面板的管理工具中进行了设置，然后写了下面的一些代码，但连不到数据库。但是在可视化数据管理器里可以通过ODBC打开相应的VF数据库，不知道问题出在哪里，敬请指教。</P><P>Option Explicit<BR>Dim conn As ADODB.Connection<BR>Dim rs As ADODB.Recordset<BR>Dim SqlStr As String</P>
<P>Private Sub Combo1_Change()<BR>'新建一个connection对象的实例，并将它赋给conn<BR>Set conn = New ADODB.Connection<BR>'建立到数据库“选型参数”的连接<BR>conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=选型参数"<BR>conn.Open<BR>'新建一个Recordset对象的实例，并将它赋给rs<BR>Set rs = New ADODB.Recordset<BR>SqlStr = "select * from 物料特性 where 物料名称 = " + Trim(Combo1.Text) + ""<BR>rs.Open SqlStr, conn<BR> txtdensity.Text = Trim(rs("松散密度"))<BR> txtAngle.Text = Trim(rs("安息角"))<BR> txtMoveAngle.Text = Trim(rs("动堆积角"))<BR> rs.Close<BR> Set rs = Nothing<BR>End Sub<BR></P> <P>没人会吗？</P>
页:
[1]