怎么不能上传附件
我想在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
解决方案 »
- 如何利用WebBrowser控件点击连接
- 庆祝北京疫情好转!
- 为什么我用FINDWINDOW和POSTMESSAGE可以关闭Lotus的客户端窗体,却不能关闭服务器端窗体呢?
- 怎么删除一个字符串里面的换行符???
- 把程序生成exe文件的问题
- Distinct关键词的问题,急.....高分奉送.
- Dim table As New DataTable 为定义 怎么处理啊 谢谢 高分在线等待
- modbus rtu通讯问题
- 杀毒软件是如何对比特征码以发现病毒的;有没有成熟的算法呢?
- commandbutton的caption
- 求 X=SIN(角度)求X 用VB 怎么写
- 请问VB中如何将文字类容保存为doc文档,并且打开这个文档的时候不会弹出WORD需要转换器以正确显示改文档?
------------------------------------
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是什么?