怎么不能上传附件
我想在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
我想在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
------------------------------------
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
vfpoledb.exe是什么?