项目开始一般都是用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 Query() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String Set Conn = CreateObject("ADODB.Connection") Set Rst = CreateObject("ADODB.Recordset") PathStr = ThisWorkbook.Full
//清除空列 Sub ClearNullMacro1() Dim j As Integer Dim colCount As Integer colCount = Cells(2, Columns.Count).End(xlToLeft).Column For j = 1 To colCount Dim v As String v = Cells(2, j).value ' MsgBox v If v = "" Then Columns(j).Delete Dim PauseTime P
VBA的 Round采用的是银行家算法(rounds to the nearest even number) Round(1.5) = 2 Round(0.5) = 在Oracle中实现银行家算法 SQL> create or replace function bankers_round (val number, rnd_digit number := 0) return number is 2 v_rnd_digit number; 3 v_remainder number; 4 begin
access的SQL视图一次只能执行一条SQL语句,那么在VBA中调用或许可以简便一些 例如: Public Sub 批量()Dim strsql As String strsql = "INSERT INTO TEACHER(TNO,TNAME,TSEX,TBIRTHDAY,PROF,DEPART)VALUES (804,'李诚','男','1958-12-02','副教授','计算机系');"CurrentProject.Connection.Execute strsqlstr