读取MS SQL Server数据表数据,并将它保存到excel工作表中 Sub ReturnSQLrecord() 'sht 为excel工作表对象变量,指向某一工作表 Dim i As Integer, sht As Worksheet '定义数据链接对象 ,保存连接数据库信息 '使用ADODB,须在菜单的Tools->References中添加引用“Microsoft ActiveX Data Objects library 2.x” Dim cn As New ADODB.Conne
原文地址 本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用 需要首先创建一个对 Word Application 对象的引用.在VBA中,工具-引用,选取“MicroSoft Word 11.0 Object Library”. 方法一.New Word.Application Dim Wordapp As Word.Application Set Wordapp = Ne
有些工具用的久了或者有新工具出现后,就慢慢的遗忘了很多,它们从熟悉的变成陌生,当然,对于我们来说不是好事吧. 今天回顾一下ADO.NET用到的MS的基础类库,先上代码(标准的SqlServer操作) 1)一个基本的插入封装方法 using System; using System.Collections; using System.Text; using System.Data using System.Data.SqlClient; public static bool Add(Hasht
#!C:\Perl64\bin #由BCP备份和恢复SQLSERVER指定表 use 5.014; #加载用户和password型材 my $username ; my $passwd; ##得到username my $dir="c:"; $dir=$dir."/"; my $filename="config.txt"; my $keysword="username:"; my $count="50";
项目开始一般都是用word保存下数据库的文档 但是从表单一个一个的建表实在是很困难乏味,查查资料 1.可以生成一个html或者xml,检索结构生成sql.但是这个方式也蛮麻烦 2.查到vba可以操作word读取表格.所以采用这种方式写了一个小程序.这样就可以直接生成sql了,在这里做个记录. 代码很初级,意见欢迎,勿喷. Public Sub test() 'Word对象定义 Dim objWord As New Word.Application Dim objWordNew As New Wo
Sub TestShowCommand() ShowCommand "画条线" ShowPrompt "选择第一个点" ShowStatus "选择第二个点" End Sub Sub TestShowTempMessage() ShowTempMessage msdStatusBarAreaLeft, "消息左侧" ShowTempMessage msdStatusBarAreaMiddle, "消息中部"
本篇文章以 ADO.NET 访问SQL SERVER 数据库为例, 其中需用System.Data.SqlClient; 数据库连接字符串写法为:server=数据源(服务器名称);uid=用户名;pwd=密码;database=数据库名称 using System.Data.SqlClient; using System.Configuration; /// <summary> /// sql帮助类 /// </summary> public class SqlHelp { //
import pymssql #导入sqlserver连接池模块 import csv #导出csv文件使用模块 conn=pymssql.connect('服务器ip','用户名','密码','数据库名')#连接数据库 cursor=conn.cursor() #打开数据库连接池 #执行sql命令 cursor.execute('select interest from Apply where interest is not null and interest<>%s',"非微信导