| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1679 人关注过本帖
标题:请帮忙看一下这个错误怎么改,希望尽快
只看楼主 加入收藏
湘妃竹
Rank: 1
来 自:湖南
等 级:新手上路
帖 子:24
专家分:4
注 册:2016-4-20
结帖率:71.43%
收藏
已结贴  问题点数:20 回复次数:2 
请帮忙看一下这个错误怎么改,希望尽快
Option Explicit
Dim sqlstr As String
Private Sub Command1_Click()
Call PP
= adCmdText  //这部分错误
Adodc1.RecordSource = sqlstr    //等号附近有错误
Adodc1.Refresh
Adodc2.Refresh
With Adodc2.Recordset
.AddNew
 Adodc2.Recordset.Fields("Carno") = Trim(Adodc1.Recordset.Fields("Carno"))//这部分希望实现adodc1部分连接的记录源中Carno的数据传递到adocdc2中的Car,怎么实现
 Adodc2.Recordset.Fields("Carin") = Trim(Text2.Text)
 Adodc2.Recordset.Fields("Carout") = Trim(Text3.Text)
 Adodc2.Recordset.Fields("Alltime") = Trim(Text4)
Adodc2.Recordset.Fields("Money") = Trim(Text5)
 Adodc2.Recordset.Update
 End With
Unload Me
Form9.Show
S = S - 1
End Sub

Private Sub Command2_Click()
Form9.Show
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Text2.Text = DataCombo1.BoundText
Text4.Text = DateDiff("n", CDate(Text2.Text), CDate(Text3.Text))
Text5.Text = Format(Val(Text4.Text / 60) * 2, "0.00")
End Sub

Private Sub Form_Load()
Text3.Text = Now()
End Sub

Private Sub PP()
If Trim(Text2.Text) <> "" Then
sqlstr = " select * from tingchejilu2 Carin='" & Trim(Text2) & "'"
End If
End Sub
搜索更多相关主题的帖子: 记录 
2016-11-26 10:28
梦幻倩影
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:162
专家分:352
注 册:2016-8-19
收藏
得分:20 
sqlstr = " select * from tingchejilu2 Carin='" & Trim(Text2) & "'" 差了关键字 where
2016-11-26 13:47
梦幻倩影
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:162
专家分:352
注 册:2016-8-19
收藏
得分:0 
Adodc1 对象定义了吗?
2016-11-26 13:51
快速回复:请帮忙看一下这个错误怎么改,希望尽快
数据加载中...
 
   



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

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