Content Preview: rss
7 days ago
Imports System Imports Microsoft.VisualBasic Imports System.Data Imports System.Configuration Imports MySql.Data.MySqlClient Public Shared Sub BindGridView(ByRef faGV As GridView, ByVal faQry As String, Optional ByVal faIndex As Integer = 0) Dim dsPage As New DataSet If faIndex >= 0 Then faGV.PageIndex = faIndex BindDataSet(dsPage, faQry) faGV.DataSource = dsPage faGV.DataBind() End Sub Public Shared Sub BindDataSet(ByRef faDS As DataSet, ByVal faQry As String) Dim vMySqlConnection As MySqlConnection = Nothing Dim vMySqlDataAdapter As MySqlDataAdapter = Nothing Dim vMySqlCommand As MySqlCommand = Nothing Try vMySqlConnection = New MySqlConnection(ConfigurationManager.AppSettings("WebConfigMySql")) vMySqlCommand = vMySqlConnection.CreateCommand vMySqlCommand.CommandText = faQry vMySqlCommand.CommandType = CommandType.Text vMySqlConnection.Open() vMySqlDataAdapter = New ...
7 days ago
Imports System.IO Imports Microsoft.VisualBasic Imports System.Security.Cryptography Public Class clsCrypto Private Shared Function GetCryptoKey() As String Dim vRet As String vRet = "jstbhgope" Return vRet End Function Private Shared Function GetCryptoBytes() As Byte() Dim vBytes() As Byte = {&H90, &H34, &H56, &H78, &H12, &HAB, &HCD, &HEF} Return vBytes End Function Public Shared Function DoEnCrypt(ByVal vStr As String) As String Dim vRgbKEY() As Byte = {} Dim vRgbIV() As Byte = GetCryptoBytes() Try vRgbKEY = System.Text.Encoding.UTF8.GetBytes(Left(GetCryptoKey(), 8)) Dim des As New DESCryptoServiceProvider Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(vStr) Dim ms As New MemoryStream Dim cs As New CryptoStream(ms, des.CreateEncryptor(vRgbKEY, vRgbIV), CryptoStreamMode.Write) ...
7 days ago
SQL> SELECT ROWNUM, E.* FROM EMP E /*This is the table*/; ROWNUM EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ---------- ---------- ---------- --------- ---------- --------- ---------- ---------- ---------- 1 7369 SMITH CLERK 7902 17-DEC-80 -800 20 2 7499 ALLEN SALESMAN 7698 20-FEB-81 1600 300 30 3 7521 WARD SALESMAN 7698 22-FEB-81 1250 500 30 4 7566 JONES MANAGER 7839 02-APR-81 2975 20 5 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 1400 30 6 7698 BLAKE MANAGER 7839 01-MAY-81 2850 30 7 7782 CLARK MANAGER 7839 09-JUN-81 2450 10 8 7788 SCOTT ANALYST 7566 ...
7 days ago
SQL> SELECT ROWNUM, E.* FROM EMP E /*This is the table*/; ROWNUM EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ---------- ---------- ---------- --------- ---------- --------- ---------- ---------- ---------- 1 7369 SMITH CLERK 7902 17-DEC-80 -800 20 2 7499 ALLEN SALESMAN 7698 20-FEB-81 1600 300 30 3 7521 WARD SALESMAN 7698 22-FEB-81 1250 500 30 4 7566 JONES MANAGER 7839 02-APR-81 2975 20 5 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 1400 30 6 7698 BLAKE MANAGER 7839 01-MAY-81 2850 30 7 7782 CLARK MANAGER 7839 09-JUN-81 2450 10 8 7788 SCOTT ANALYST 7566 ...
7 days ago
SQL> SELECT ROWNUM, E.* FROM EMP E /*This is the table*/; ROWNUM EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO ---------- ---------- ---------- --------- ---------- --------- ---------- ---------- ---------- 1 7369 SMITH CLERK 7902 17-DEC-80 -800 20 2 7499 ALLEN SALESMAN 7698 20-FEB-81 1600 300 30 3 7521 WARD SALESMAN 7698 22-FEB-81 1250 500 30 4 7566 JONES MANAGER 7839 02-APR-81 2975 20 5 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 1400 30 6 7698 BLAKE MANAGER 7839 01-MAY-81 2850 30 7 7782 CLARK MANAGER 7839 09-JUN-81 2450 10 8 7788 SCOTT ANALYST 7566 ...
