怎么不能上传附件
我想在VB中操作VF数据库,按书指导写了以下的一段代码,字符串是用ADO控件生成的,书上也是这样说的,可就是出不来结果,也不知道是哪里的问题,怎么调试是否连接上.
     因为我是初学VB,摸不清门路,所以用ADO控件想试一下和文本框绑定显示,按书上的做了,也不行,提示说无法绑定.就为这已经耽误好多天了,我真的很发愁,是不是应该放弃VF数据库呢.这种例子太少了.Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SqlStr1 As String
Dim constr As String
Private Sub Combo1_Change()   
'新建一个connection对象的实例,并将它赋给conn
Set conn = New ADODB.Connection
'建立到数据库“选型参数”的连接
constr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=选型参数"
conn.Open constr
'新建一个Recordset对象的实例,并将它赋给rs
Set rs = New ADODB.Recordset
SqlStr1 = "select * from 物料特性 where 物料名称 =" + 'trim(combo1.text) + "'"
rs.Open SqlStr1, conn, adOpenDynamic, adLockOptimistic
    txtdensity.Text = Trim(rs.Fields("堆积密度"))
    txtAngle.Text = Trim(rs.Fields("静堆积角"))
    txtMaxAngle.Text = Trim(rs.Fields("最大倾角"))
    
End Sub

解决方案 »

  1.   

    装 vfpoledb.exe 
    ------------------------------------
    Function OpenDBFConn(WorPath As String) As ADODB.Connection        Dim DBFConn As New ADODB.Connection
            Dim ConnStr As String
            
            ConnStr = "DSN=Visual FoxPro Tables;SourceDB=" & WorkPath & ";SourceType=DBF"
            DBFConn.Open ConnStr
            Set OpenDBFConn = DBFConn
            
    End Function
      

  2.   

    sqlstr="select * from ctrl.dbf"   '//表名是文件全称
      

  3.   

    装 vfpoledb.exe 是什么意思?
    vfpoledb.exe是什么?
      

  4.   

    我已经下载了vfpoledb.exe,但是FV9.0的,没有6.0的.装了以后先用ADO控件绑定文本框试了一下,recordesource和datafield设置时都很正常,但执行后提示:无法绑定字段"图号",不知为什么.