| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2807 人关注过本帖
标题:MSSQL新增资料的语法问题
取消只看楼主 加入收藏
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
结帖率:97.66%
收藏
已结贴  问题点数:20 回复次数:6 
MSSQL新增资料的语法问题
请问要怎么写一段SQL语法?
要新增一笔资料~但是要先查询资料后再新增~

1.我有一个表内有档案的资讯
2.另一个表要新增相关资讯

'我要先在表tblFileList内用ClassNo.Text查询SubjectNo, SubFolderNo, FileNo这三个值
Dim mySQL As String = "SELECT SubjectNo, SubFolderNo, FileNo FROM tblFileList Where FileName = '" & ClassNo.Text & "'"

'然后把上面查到的三个值塞进下面做资料新增
mySQL = "INSERT INTO tblSelectClass(UserID, ClassID, SubClassID, FileNo, StartDate, EndDate, StudyTime, StudyCount, StudyDate, Results) VALUES (" ...未完

这语法要怎么写?
能否两段合并一次处理?
搜索更多相关主题的帖子: 相关资讯 资料 
2017-05-31 11:23
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
刚在MSSQL管理介面上试是可以耶
只是后段资料都是空的

明明在数据库设计时声明栏位不得为NULL了
但是还是能只插入部分资料而不报错
真是奇怪了

所以还是要再接个
UPDATE tblSelectClass Set StartDate='', EndDate='', StudyTime='', StudyCount='', StudyDate='', Results=''
Where UserID='', SubjectNo='', SubFolderNo='', FileNo='';

插入这些栏位资料

所以这三个栏位资料怎么取出来?SubjectNo, SubFolderNo, FileNo

不要選我當版主
2017-05-31 13:08
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
感觉好像不行~真麻烦~
只好修改数据库设计~避过这问题~

不要選我當版主
2017-05-31 15:19
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
数据库查询出来的资料无法直接存到变量中?

不要選我當版主
2017-05-31 15:20
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
以下是引用wube在2017-5-31 15:20:30的发言:

数据库查询出来的资料无法直接存到变量中?


TMD~数据库改完马上找到解法...
又要再改回来...

不要選我當版主
2017-05-31 15:41
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
OK...

程序代码:
    Protected Sub btnQuery_Click(sender As Object, e As System.EventArgs) Handles btnQuery.Click
        Dim FileNo1 As String = "", FileNo2 As Integer = 0, FileNo3 As Integer = 0
        Dim mySQL As String = "SELECT SubjectNo, SubFolderNo, FileNo FROM tblFileList Where FileName = '" & ClassNo.Text & "'"
        Dim UserN As String = Mid(Mid(UserNo.Text, InStr(UserNo.Text, "(") + 1), 1, Len(Mid(UserNo.Text, InStr(UserNo.Text, "(") + 1)) - 1)
        Try
            Using mySqlDS = New SqlConnection(ConfigurationManager.ConnectionStrings(strCnnType & "DbBTA").ToString)
                Dim myCmd As SqlCommand
                myCmd = New SqlCommand(mySQL, mySqlDS)
                mySqlDS.Open()
                Using dbDRSQL = myCmd.ExecuteReader
                    While dbDRSQL.Read
                        FileNo1 = dbDRSQL("SubjectNo").ToString
                        FileNo2 = dbDRSQL("SubFolderNo").ToString
                        FileNo3 = dbDRSQL("FileNo").ToString
                    End While
                End Using
            End Using

            Using myCnn As New SqlConnection(ConfigurationManager.ConnectionStrings(strCnnType & "DbBTA").ToString)
                myCnn.Open()
                Dim myCmd As SqlCommand
                mySQL = "INSERT INTO tblSelectClass(UserID, ClassID, SubClassID, FileNo, StartDate, EndDate, StudyTime, StudyCount, StudyDate, Results, CreatorNo, CreateDate, ReviserNo, ReviseDate) VALUES ("
                mySQL += "'" & UserN & "', '" & FileNo1 & "', " & FileNo2 & ", " & FileNo3 & ", '" & starttime.Text & "', '" & endtime.Text & "', "
                mySQL += "0, 0,'','N','" & Session("LoginNo") & "', GetDate() ,'" & Session("LoginNo") & "', GetDate())"
                myCmd = New SqlCommand(mySQL, myCnn)
                myCmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            Dim strErr As String = "●●● 程式错误讯息如下 ●●●" & "\n\n" & Replace(Replace(Replace(Replace(Trim(ex.ToString()), Chr(10), ""), Chr(13), ""), "\", "\\"), "'", "\'")
            ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alert", "alert('" & strErr & "');", True)
        End Try
    End Sub


因为我这是公司内网网站所以不连外~就不做sql injection的防范了~

[此贴子已经被作者于2017-5-31 17:59编辑过]


不要選我當版主
2017-05-31 16:43
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
以下是引用mywisdom88在2017-6-1 08:29:18的发言:

我没MYSQL,我只说MSSQL的语法,MSSQL的表,有个默认值,如
create table 表1(name varchar(10),sex varchar(2) default '男')
insert into 表1(name) values('张三')
插入的数据将会是
name    sex
张三   
insert into 表1(name,sex) values('李四','女')
插入的数据将会是
name    sex
李四   


我就是用MSSQL的啊,并没有MYSQL...

不要選我當版主
2017-06-01 10:34
快速回复:MSSQL新增资料的语法问题
数据加载中...
 
   



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

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