设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1668|回复: 3
打印 上一主题 下一主题

[ADO/DAO] 求助:数据表连接字符串出错(已解决)

[复制链接]
跳转到指定楼层
1#
发表于 2012-7-5 17:26:13 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 cocopig 于 2012-7-6 09:41 编辑

ACCESS设有窗体,有“年号”、“编号”和“后续编号”等文本框,通过保存按钮把“年号”、“编号”文本框中的数据用字符串相加后保存到数据表中“SVNum”字段中,“后续编号”保存到“SVFollowUp”字段中,每次新建记录时首先检查表中有没重复记录。我的代码如下:
(文本框“年号”=txtYear,“编号”=txtSVsn,“后续编号”=txtSVFollowUp)
................
    Dim t1 As String
    txtSVYear.SetFocus
    t1 = txtSVYear.Text

    Dim t2 As String
    txtSVsn.SetFocus
    t2 = txtSVsn.Text

    Dim t3 As String
    txtSVFollowUp.SetFocus
    t3 = txtSVFollowUp.Text

  Dim sqlstr As String        '定义sql连接字符串

    sqlstr = "select SVNum,SVFollowUp from InfoProject where SVNum = t1 + t2"     

    '检查“编号”是否重复
    rs.Open sqlstr, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    If rs.EOF Then

        MsgBox "“编号”已分配,请重新输入!!"
        Exit Sub

    rs.Close
    'Set rs = Nothing

    Else
   
    rs.Close

    sqlstr = "select SVNum,SVFollowUp,District,ProjectName,ProjectAddress," _
                & "StructureType,ConstructionArea,Cost,OvergruandStoery,UndergruandStoery," _
                & "Status from InfoProject"
               
    rs.Open sqlstr, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   
    rs.AddNew    '添加数据
.......................

运行程序提示上面斜体字代码中至少有一个参数未定义,我估计可能是连接字符串表达错了,请教各位我应该怎样修改???
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
4#
 楼主| 发表于 2012-7-6 09:40:21 | 只看该作者
参照2楼的提示改为:me.txtYear和me.txtSVsn后测试成功,谢谢帮助!!!
3#
发表于 2012-7-5 21:07:31 | 只看该作者
楼上正解
2#
发表于 2012-7-5 18:00:30 | 只看该作者
sqlstr = "select SVNum,SVFollowUp from InfoProject where SVNum = t1 + t2"
改为:
sqlstr = "select SVNum, SVFollowUp from InfoProject where SVNum = '" & Me.t1 & Me.t2 & "'"
试试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-10 20:04 , Processed in 0.102514 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表