| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1236 人关注过本帖
标题:急,贵求大侠帮助,帮我看看代码,老说FROM子句语法错误
只看楼主 加入收藏
miny007
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-12-13
收藏
 问题点数:0 回复次数:5 
急,贵求大侠帮助,帮我看看代码,老说FROM子句语法错误

 'cmbField是combo1的
  cmbName是combo2的
  cmdadd是添加(command1)的
  cmddel是删除(command2)的
  cmdedit是修改(command3)的
  cmdclear是清空(command4)的'
Private Sub cmbField_Click()
cmbName.Clear
Adodc1.RecordSource = "select * from 库存表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
cmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)
Adodc1.Recordset.MoveNext
Loop
cmbName.Text = cmbName.List(0)
End Sub


Private Sub cmbName_Click()
Dim comdition
condition = Trim(cmbField.Text)
If Adodc1.Recordset.Fields(condition).Type = 202 Then
Adodc1.RecordSource = "select * from 库存表 where" & condition & " = '" & cmbName.Text & "'"
Else
  Adodc1.RecordSource = "select * from 库存表 where" & condition & " = " & cmbName.Text
  End If
  Adodc1.Refresh
  txtno.Text = Adodc1.Recordset.Fields("货物编号")
  txtname.Text = Adodc1.Recordset.Fields("货物名称")
  txtstorenum.Text = Adodc1.Recordset.Fields("库存量")
  txtunit.Text = Adodc1.Recordset.Fields("单位")
  txtstorekeeper.Text = Adodc1.Recordset.Fields("仓管人员")
  txtbDate.Text = Adodc1.Recordset.Fields("进货日期")
  txtprice.Text = Adodc1.Recordset.Fields("进货单价")
End Sub

Private Sub cmdAdd_Click(Index As Integer)
On Error GoTo errorhandler:
If txtno.Text <> "" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("货物编号") = Val(txtno.Text)
Adodc1.Recordset.Fields("货物名称") = txtname.Text
Adodc1.Recordset.Fields("库存量") = Val(txtstorenum.Text)
Adodc1.Recordset.Fields("单位") = txtnuit.Text
Adodc1.Recordset.Fields("仓管人员") = txtstorekeeper.Text
Adodc1.Recordset.Fields("进货日期") = Val(txtbDate.Text)
Adodc1.Recordset.Fields("进货单价") = Val(txtprice.Text)
Adodc1.Recordset.Update
Adodc1.RecordSource = "select * from 库存表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
cmbName.AddItem Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
Loop
cmbField_Click
cmbclear_Click
Else
MsgBox "货物编号是主索引字段,不能为空。", , "错误提示"
End If
Exit Sub
errorhandler: MsgBox "货物编号是主索引,不能重复", , "错误提示"
End Sub



Private Sub cmdclear_Click(Index As Integer)
txtno.Text = ""
txtname.Text = ""
txtstorenum.Text = ""
txtunit.Text = ""
txtstorekeeper.Text = ""
txtbDate.Text = ""
txtprice.Text = ""
End Sub

Private Sub cmddel_Click(Index As Integer)
If txtname.Text <> "" Then
Adodc1.RecordSource = "select * from 库存表 where 货物名称 ='" & txtname.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
cmbName.Clear
cmbField_Click
cmbclear_Click
End If

End Sub



Private Sub cmdedit_Click(Index As Integer)
On Error GoTo errorhandler:
If txtno.Text <> "" Then
Adodc1.RecordSource = "select * from 库存表 where 货物编号 =" & txtno.Text
Adodc1.Refresh
Adodc1.Recordset.Fields("货物编号") = txtno.Text
Adodc1.Recordset.Fields("货物名称") = txtname.Text
Adodc1.Recordset.Fields("库存量") = txtstorenum.Text
Adodc1.Recordset.Fields("单位") = txtnuit.Text
Adodc1.Recordset.Fields("仓管人员") = txtstorekeeper.Text
Adodc1.Recordset.Fields("进货日期") = txtbDate.Text
Adodc1.Recordset.Fields("进货单价") = txtprice.Text
Else
MsgBox "货物编号是主索引字段,不能为空。", , "错误提示"
End If
Exit Sub
errorhandler: MsgBox "货物编号是主索引字段,不能重复", , "错误提示"
End Sub



Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 库存表"
Adodc1.Refresh
cmbField.Clear
For i = 0 To Adodc1.Recordset.Fields.Count - 1
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0)

End Sub
搜索更多相关主题的帖子: 子句 FROM 语法 代码 
2008-12-13 09:41
miny007
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-12-13
收藏
得分:0 
调试的时候就是出现说这个Adodc1.Refresh错误,但又不知道如何改。。。唉,都搞了一个星期了,连个作业完成不了。。。
2008-12-13 09:44
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
有错误就别Refresh了,字段名最好用[]括起来
2008-12-13 14:12
xiao173612
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2008-11-3
收藏
得分:0 
在Adodc1.Refresh面前,好像有个Adodc1.Recordset.Update的

东拼西凑学VB
2008-12-13 14:23
xiao173612
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2008-11-3
收藏
得分:0 
忘了,在Adodc1.Recordset.Update前面还有Adodc1.Recordset.AddNew的

东拼西凑学VB
2008-12-13 14:24
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
If Adodc1.Recordset.Fields(condition).Type = 202 Then
Adodc1.RecordSource = "select * from 库存表 where" & condition & " = '" & cmbName.Text & "'"
Else
  Adodc1.RecordSource = "select * from 库存表 where" & condition & " = " & cmbName.Text
  End If

你的where后面少个空格吧

[[it] 本帖最后由 wangtuan7788 于 2008-12-13 16:58 编辑 [/it]]

你笑我和你们不一样,我笑你们大家都一样~
2008-12-13 16:56
快速回复:急,贵求大侠帮助,帮我看看代码,老说FROM子句语法错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016813 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved