在access中创建vb窗体，使文本框中内容填写到access表中解决办法

0 0

在access中创建vb窗体，使文本框中内容填写到access表中解决办法

在access中创建vb窗体，使文本框中内容填写到access表中
现在在窗体下编译到rst.open sql就出错，一直没弄明白错在哪，请各位大侠指教，谢谢

Private Sub 确定_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "select * from 商品信息 where"
sql = sql & " [货号]=" & Me![货号列表]
Set rst = New ADODB.Recordset

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
…………………

VisualBasic程序开发环境程序开发 VisualBasic

10 years, 6 months ago

Aries

Aries 10 years, 6 months ago

strSql = "select * from 商品信息 where"
strSql = strSql & " [货号]='" & Me.货号列表 & "'"
文本类型必須"'"

answered 10 years, 6 months ago

年少已不在

年少已不在 answered 10 years, 6 months ago

Me![货号列表]改为 Me.货号列表.text 试试
控件名要改用英文，中文不习惯

answered 10 years, 6 months ago

efrit

efrit answered 10 years, 6 months ago

Me![货号列表]改为 Me.货号列表

这样就不需要焦点了

answered 10 years, 6 months ago

由比ケ浜結衣

由比ケ浜結衣 answered 10 years, 6 months ago

1. [货号]可能是字符型字段
2. Me![货号列表] 的值为空

Private Sub 确定_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "select * from 商品信息 where"
sql = sql & " [货号]=" & Me![货号列表]

msgbox sql

Set rst = New ADODB.Recordset

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
…………………

answered 10 years, 6 months ago

湿润的黄瓜

湿润的黄瓜 answered 10 years, 6 months ago

Ctrl+G可以调出立即窗口。在立即窗口敲下面然后回车：

sql

然后把回车之后出现的文字拷到这里来给大家晒晒:)

answered 10 years, 6 months ago

盛夏夜的海风

盛夏夜的海风 answered 10 years, 6 months ago

改成这样试试：

　　VB code

　　Dim strSql As String '最好不要用保留字做变量名' strSql = "select * from 商品信息 where" strSql = strSql & " [货号]='" & Me.货号列表 & "'" '如果你确定[货号]字段是文本类型的话，应该前后加单引号' 'Me.货号列表表示的是你的窗体里名为“货号列表”的控件的当前值' '而Me![货号列表]有可能会引用到你的窗体的绑定字段'

answered 10 years, 6 months ago

小可爱阿德德

小可爱阿德德 answered 10 years, 6 months ago