给你一个直接在Excel内上传数据到SqlServer的代码:
在做网站、成都网站建设中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手,突出企业的产品/服务/品牌,帮助企业锁定精准用户,提高在线咨询和转化,使成都网站营销成为有效果、有回报的无锡营销推广。创新互联专业成都网站建设十年了,客户满意度97.8%,欢迎成都创新互联客户联系。
可适当修改,
FormName为数据库内的表格,
DBString为数据库连接字段,
Sub UploadData()
If FormName = "" Then Exit Sub
Dim a As New ADODB.Connection
Dim b As New ADODB.Recordset
a.Open DBString
RowCount = Application.CountA(Rows("1:1"))
For i = 2 To application.counta(range("a:a"))
sql = ""
Set b = Nothing
For j = 1 To RowCount - 1
sql = sql "'" Cells(i, j) "', "
Next
sql = "insert into " FormName " values(" sql "'" Cells(i, RowCount) "')"
b.Open Source:=sql, ActiveConnection:=a
Next
MsgBox "OK!"
End Sub
方法是多样的,找到一个适合的即可,
要想完成你的任务,你需要了解数据库的连接属性,如下为连接字段,可根据你的实际情况来修改,基本参数的设置要靠自己,
Provider=SQLOLEDB.1;Persist Security Info=False;User id=md-inspection;PWD=mdOL20!31)25;Initial Catalog=Online_Inspection;Data Source=Cduvmdb01,1433
另外需要在VBE页面添加相关引用:
装好IIS,,,
装好MS SQL
把你的源码放到IIS设置好的根目录,把你的数据库导入到MSSQL,
可按如下方法查询,以sqlserver2008为例:
1、登录SQL
Server
Management
Studio。
2、展开左边的树,先在数据库中找到自己创建自定义函数的库,如数据库-系统数据库-master。
3、依次点击可编程性-函数-标量值函数,如曾经创建过一个叫“fn_myget”的自定义函数,就能看见。
4、右键此函数,点击编辑,就能看到这个函数的源代码。
5、代码如图,红框部分即为源代码。
进入“查询分析器”后,在左边“对象浏览器”中找到“公共对象”,里面就有数据库对应的函数。找到“系统函数”,在函数名上右键“在新窗口中编写对象脚本”选择“执行”就可以浏览函数了。有些函数有带参数,必须输入正确的数据才能执行。还有SUM()和AVG()是“聚合函数”。