13518219792
添加数据需要知道往哪张表添加，以及自己要添加的内容，然后可用insert语句执行。
创新互联公司专注于企业成都全网营销推广、网站重做改版、河曲网站定制设计、自适应品牌网站建设、H5建站、购物商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为河曲等各大城市提供网站开发制作服务。
1、以sqlserver2008r2为例，登录SQL Server Management Studio到指定的数据库。
2、登录后点击“新建查询”。
3、比如要往test表中插入数据，可先用如下语句查看一下表结构及表内数据：
1
select * from test;
4、根据自己的实际情况添加输入，比如要添加一条“16,du小小动”的数据。
1
insert into test (id,name) values (16,'du小小动');
执行成功后会有提示：
5、此时数据库中数据如下，说明添加成功。
可以通过使用insert 插入数据
语法：
INSERT INTO 表名称 VALUES (值1, 值2,....)
我们也可以指定所要插入数据的列：
INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)
Private Sub 入库_click()
'默认你的后面的textbox的名称就是前面的名称
'这里的数据类型可能要转换，比如价格可能要转换成double（CDbl()），购买日期转行成日期时间型（CDate()）
'假设你的数据表是aa，字段名和界面显示是一样的
Dim Rs As ADODB.Recordset
'在插入前建议你在aa表里查查这条记录是否已经存在，如果已经存在则给出提示（查询条件看你怎么设置的主键了）
Rs = objADO.GetRs("insert into aa (书名,定价,作者,图书类别,出版社,介质,购买日期,内容简介) values (" 书名.Text "," vbCrLf _
"定价.text ", " 作者.text ", " 图书类别.text ", " 出版社.text ", " 介质.text ", " 购买日期.text ", " 内容简介.text ")
'这里如果表aa的字段多于界面显示的也没关系，只会给你aa后面括号里的字段赋值，这里后面values的顺序必须和前面的对应
'正确插入后建议给个提示，同时看看有没有必要把界面的所有值清空（图书类别.text = ""）
'这里的objADO建议这么定义Public objADO As SqlServer，有别的查询也可以直接用，你自己怎么定义的就换成你自己的
'GetRs的定义在下面，你也可能是dim strsql as string，然后strsql = （上面的插入语句），然后用下面Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly的方法，都行的，就看你自己怎么写的了
End Sub
Public Function GetRs(ByVal strSql As String) As ADODB.Recordset '通过执行SQL语句返回记录集
Dim Rs As ADODB.Recordset
On Error GoTo Err0
If Not OpenDB Then
Exit Function
End If
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient '使用本地（客户端）游标，这样Rs.RecordCount属性才能正确返回记录集行数
DoEvents
Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly
Set GetRs = Rs
Exit Function
Err0:
If InStr(1, Err.Description, "通讯链接失败") 0 Then
Set Conn = New ADODB.Connection
LocalStat = "断开" '设置本地数据库连接状态
End If
MsgBox Err.Description
End Function
标准语法：
简写语法：（省略字段名称）
此写法在给字段赋值的时候，必须保证顺序和数据表结构中字段顺序完全一致，不推荐使用此种写法，因为数据表结构变化的时候，数据会出错或产生错误数据。
一次插入多行数据:
其中DepartmentId，RankId，PeopleSalary均为数字类型，在赋值的时候不需要添加单引号，而其它类型需要添加单引号。
