如何往SQL SERVER 数据库里写数据

已锁定

木之字

  • 帖子

    23
  • 精华

    0
  • 被关注

    1

论坛等级:游民

注册时间:2016-12-30

普通 普通 如何晋级?

如何往SQL SERVER 数据库里写数据

377

5

2018-08-29 17:12:18

往数据库里写数据,不知道为什么怎么也写不进去,请大家帮忙!

1、我在数据库建立了一个表格 Report_table  里面就一个字段 ID 类型为 INT

2、代码如下

Sub OnClick(Byval Item)                         

Dim sCon 

Dim sSql 

Dim oRs 

Dim conn 

Dim oCom

Dim Con

Dim sPro,sDsn,sSer

Dim Data1, Data2, Data3



Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_REPORT_18_08_06_09_50_49R;Data Source=.\WINCC"

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = Con

conn.CursorLocation = 3

 conn.Open

'写入数据库

 sSql="insert into abo.Report_table VALUES (10)"

 Msgbox sSql



 Set oRs = CreateObject("ADODB.Recordset")

 Set oCom = CreateObject("ADODB.Command")

 Set oCom.ActiveConnection = conn

 oCom.CommandType = 1

 oCom.CommandText = sSql


 Set oRs = oCom.Execute

 Set oRs = Nothing

 conn.Close

 Set conn = Nothing

 

 



End Sub


如何往SQL SERVER 数据库里写数据 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有31053条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。