摘要： Changed the print date format to HH/yy/MM/mm/SS/dd (For Example:2014/01/23 16:30:45= 161430014523) ：iif(Hour(CurrentTime)<10,left('0'+totext(Hour(CurrentTime)),2),left(totext(Hour(CurrentTime)),2))+right(left(totext((Year(CurrentDate))),5),2)+iif(Minute(CurrentTime)<10,left('0' 阅读全文

摘要： 出处：http://blog.sina.com.cn/s/blog_407d47e60100d8ig.html前段时间写Oracle存储过程就遇到问题.原来写成这样if 1=2 thennull;elseif 1=3 thennullend if;在PL/SQL编辑环境下elseif没有变色，说明不是关键字。后来改成if 1=2 thennull;else if 1=3 thennullend if;编译时报异常。去goole上百度了下，很多人都说是 elseif。又试了N边，编译总不能通过。怒了，直接写成if 1=2 thennull;else if 1=3 thennullend if;e 阅读全文

摘要： 物理上存放于网络的多个ORACLE数据库，逻辑上可以看成一个单一的大型数据库，用户可以通过网络对异地数据库中的数据进行存取，而服务器之间的协同处理对于工作站用户及应用程序而言是完全透明的，开发人员无需关心网络的链接细节、数据在网络节点中的具体分布情况和服务器间的协调工作过程。数据库之间的链接建立在DATABASE LINK上。要创建一个DATABASE LINK，必须首先在建立链接的数据库上设置链接字符串，即配置一个远程数据库的本地网络服务名。链接字符串的配置参见《客户端连接服务器》一节。数据库全局名称可以用以下命令查出：SELECT * FROM GLOBAL_NAME;修改可以用以下语句来 阅读全文

摘要： 含义解释：decode(条件,值1,返回值1,值2,返回值2,...值n,返回值n,缺省值)该函数的含义如下：IF 条件=值1 THEN RETURN(翻译值1)ELSIF 条件=值2 THEN RETURN(翻译值2) ......ELSIF 条件=值n THEN RETURN(翻译值n)ELSE RETURN(缺省值)END IFdecode(字段或字段的运算，值1，值2，值3） 这个函数运行的结果是，当字段或字段的运算的值等于值1时，该函数返回值2，否则返回值3当然值1，值2，值3也可以是表达式，这个函数使得某些sql语句简单了许多使用方法：1、比较大小se... 阅读全文

摘要： 变量的声明，赋值，打印（declare是pl/sql里面的用法 variable是sql*plus里面的用法，variable相当于一个sql*plus环境的全局变量,declare里定义的是pl/sql中的局部变量）declare job1 nvarchar2(10):='12154';begindbms_output.put_line(job1);end;在pl/sql里面执行存储过程，不需要关键字exec，所有执行语句必须在begin....end里面，每条语句要有分号分隔。create table a(a date);select * from acreate or r 阅读全文

摘要： 出处：http://www.how2y.com/mini/Default.asp?61-1161-0-0-0-0-0-a-.htmMySQL 连接方式-----------MySQL Connector/ODBC 2.50 (MyODBC 2.50)连接方式本地数据库连接Driver={mySQL};Server=localhost;Option=16834;Database=myDataBase;远程数据连接：Driver={mySQL};Server=myServerAddress;Option=131072;Stmt=;Database=myDataBase; User=myUserna 阅读全文

摘要： Private Function Save() As Boolean Try Dim dschgs As DataSet = ds.GetChanges(DataRowState.Added + DataRowState.Deleted + DataRowStat... 阅读全文

摘要： vb：xSheet.Range("A3").Resize(1, 3).Insert(Shift:=Excel.XlDirection.xlDown)xSheet.Range("A3").Resize(1, 3).Delete()xSheet.Range("A2").Resize(ds.Tables(i).Rows.Count + 1, 3).Value = datac#：((Excel.Range)xSheet.Cells[4, 4]).EntireRow.Insert(null, null); //添加行((Excel.Range) 阅读全文

摘要： Private Sub btnExprot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExprot.Click If Not T Is Nothing Then If T.ThreadState = ThreadState.Running Then Exit Sub End If T = New Thread(AddressOf Export) T.Start() End Sub Private... 阅读全文

摘要： Private Sub ExportCostSheetData() InsertRow("") InsertRow("Run 2:Export CostingSheet=========================") InsertRow("Status:System Connectting DataBase!") If ConnJWeb() = False Or ConnJWeb2() = False Then InsertRow("Status:System Connectting DataBase fial... 阅读全文