Insert into select表复制语句

Insert是SQL中常用的语句，主要用途就是向表中添加数据。下面说说Insert子句的几种形式：

1、Insert Into Table（field1，fields2,……）values(value1,value2,……)

这种语法形式的Insert语句，一般用于向表中所有字段或者部分字段添加字符串。

如果是向表中部分字段添加数据，table后面的括号内容就不能省略。形式就是上面的形式Insert Into Table（field1，fields2,……）values(value1,value2,……)；

如果是向表中所有字段添加数据，table后面的括号就可以省略。就是这样：Insert Into Table values(value1,value2,……)

2、Insert Into Table1 Select value1,value2,value3,…… from table2 where ……

这种语法形式的Insert语句，主要用于表复制。它能将Table2中的部分或者全部数据复制到Table1中。

如果我们要实现的功能是复制Table2中的一部分数据，和一部分字符串，我们只需要将Table2中所需数据和所需字符串放在Select后面。Insert语句会自动识别。

下面来个例子：

今日做收费系统的时候，我想实现这样一个功能：就是将卡表中的部分数据（最新余额）连同BLL层传过来的字符串一起复制到充值记录表中，这是就要用到上面讲的Insert Into Select 表复制语句了。

我们来看下面的实现：

 ''' <summary>
    ''' 向充值表中增加充值记录,添加时为True
    ''' </summary>
    ''' <param name="chargeRec">AddChargeRecord</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function AddChargeRecord(ByVal chargeRec As Entry.ChargeRecord) As Boolean
        Dim sql As String = "Insert Into ChargeRecordset select  '" &
            chargeRec.CardID & "'," & "card.newestcash" & ",'" &
            chargeRec.ChargeDate & "','" & chargeRec.ChargeTime & "','" &
            chargeRec.Actor & "'" & " from card where card.cardnumber='" & chargeRec.CardID & "'"
        Dim sqlcmd As SqlCommand = New SqlCommand(sql, con)
        Try
            con.Open()
            sqlcmd.ExecuteReader()
            Return True
        Catch ex As Exception
            con.Close()
            con = Nothing
            Return False
        End Try
        If Not IsNothing(con) Then
            con.Close()
            con = Nothing

        End If
    End Function