<? require "config.php"; dl("extensions/php_mssql70.dll"); if (!isset($page)) { $page=1; } if ($page<=0) { $page=1; } $db=mssql_connect($local,$user,$pass); mssql_select_db($name,$db); $query=mssql_query("select count(*) as date from news&quo...[ 查看全文 ]
Public Overloads Sub Update(ByVal authorityArr As IList) log.Debug("Update a record in table TBL_M_AUTHORITY") Dim connection As OracleConnection = New OracleConnection(OraHelper.CONN_STRING_LOCAL) Dim command As OracleCommand = New OracleCommand(PLSQL_UPDATE, connection) command.CommandType = CommandType.StoredProcedure Dim txn As OracleTransaction Dim updateParm...[ 查看全文 ]
文件拷贝实例：（Text1存放源文件位置，Text2存放目标文件位置）------------------------------------------------------------------------ Private Sub Command3_Click()Const BUFFER_SIZE = 40960 * 2 '规定缓冲区大小Dim nActual As LongDim aBuf(0 To BUFFER_SIZE - 1) As Byte '分配缓冲区Dim tmr As Single '计时变量Dim lFileLen As Long '纪录文件长度Dim iFileNum As Integer '记录文件号Dim k A...[ 查看全文 ]
<%@ Page Language="VB"% <%@ Import Namespace="System.Data" % <%@ Import Namespace="System.Data.ADO" % <script language="VB" runat="server" Sub subbtn_OnClick(Sender As Object, E As EventArgs) Dim connobj As ADOConnection ...[ 查看全文 ]
