VB 6.0 SQL Query

\\VB 6.0 SQL****
Private Sub cmdAuthor_Click()

Adodc1.RecordSource = "SELECT Author FROM  book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub

For the command button cmdTitle, key in

Private Sub cmdTitle_Click()
Adodc1.RecordSource = "SELECT Title FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub

Finally for the command button cmdAll, key in

Private Sub cmdAll_Click()
Adodc1.RecordSource = "SELECT * FROM book"
Adodc1.Refresh
Adodc1.Caption = Adodc1.RecordSource
End Sub

Private Sub OK_Click()

Dim username, password As String
username = "Jun"
password = "02014611@#"
If UsrTxt.Text = username And pwTxt.Text = password Then
MsgBox ("Sucessfully Signed")
ElseIf UsrTxt.Text <> username Or pwTxt.Text <> password Then
MsgBox ("Sign in failed")
End If
End Sub 

 Private Sub cmdCalComm_Click()

Dim salevol, comm As Currency
salevol = Val(TxtSaleVol.Text)
If salevol >= 6000 And salevol < 120000 Then
comm = salevol * 0.06
ElseIf salevol >= 40000 And salevol < 11000 Then
comm = salevol * 0.4
ElseIf salevol >= 20000 And salevol < 25000 Then
comm = salevol * 0.20
ElseIf salevol >= 40000 Then
comm = salevol * 0.4
Else
comm = 0
End If
LblComm.Caption = Format(comm, "$#,##0.00")
End Sub 

Share:

Read More

SQL Basic Commands

\\SQL Oracle******

WITH  dept_costs AS (SELECT department_name, SUM(salary) dept_total FROM employees e, departments d WHERE e.department_id = d.department_idGROUP BY department_name), avg_cost AS (SELECT SUM(dept_total)/COUNT(*) avg FROM dept_costs)SELECT * FROM dept_costs WHERE dept_total > (SELECT avg FROM avg_cost) ORDER BY department_name;SELECT *FROM employees WHERE department_id = 30 ORDER BY last_name;SELECT last_name, job_id, salary, department_id FROM employees WHERE NOT (job_id = 'PU_CLERK' AND department_id = 30) ORDER BY last_name;SELECT a.department_id "Department", a.num_emp/b.total_count "%_Employees",a.sal_sum/b.total_sal "%_Salary" FROM (SELECT department_id, COUNT(*) num_emp, SUM(salary) sal_sum FROM employees GROUP BY department_id) a, (SELECT COUNT(*) total_count, SUM(salary) total_sal FROM employees) b ORDER BY a.department_id;SELECT * FROM sales PARTITION (sales_q2_2000) s WHERE s.amount_sold > 1500 ORDER BY cust_id, time_id, channel_id;SELECT * FROM orders WHERE order_date < TO_DATE('2000-06-15', 'YYYY-MM-DD');SELECT COUNT(*) * 10 FROM orders SAMPLE (10); COUNT(*)*10SELECT salary FROM employees WHERE last_name = 'Langa'; SALARY ---------- 3800 UPDATE employees SET salary = 4000 WHERE last_name = 'Langa'; 1 row updated. SELECT salary FROM employees WHERE last_name = 'Langa';SELECT salary FROM employees AS OF TIMESTAMP (SYSTIMESTAMP - INTERVAL '1' MINUTE) WHERE last_name = 'Langa';SELECT salary FROM employees VERSIONS BETWEEN TIMESTAMP SYSTIMESTAMP - INTERVAL '10' MINUTE AND SYSTIMESTAMP - INTERVAL '1' MINUTE WHERE last_name = 'Langa';

UPDATE employees SET salary =
 (SELECT salary FROM employees
AS OF TIMESTAMP (SYSTIMESTAMP - INTERVAL '2' MINUTE)
WHERE last_name = 'Langa')
 WHERE last_name = 'Langa';
1 row updated.
SELECT salary
FROM employees
WHERE last_name = 'Langa';

Share:

Read More

VB.Net - Basic Syntax

VB.Net - Basic Entry Modules**//
 Imports System  
Public Class Rectangle
Private length As Double
Private width As Double 
'Public methods 
Public Sub 
AcceptDetails() 
length = 4.5 
width = 3.5
End Sub 
Public Function
GetArea() As Double GetArea = length * width End Function Public Sub Display() Console.WriteLine("Length: {0}", length) 
Console.WriteLine("Width: {0}", width) 
 Console.WriteLine("Area: {0}", GetArea()) 
End Sub 
 Shared Sub Main()
 Dim r As New Rectangle() r.Acceptdetails() r.
Display() Console.ReadLine()
 End Sub
 End Class 
Shared Sub Main() 
 Dim r As New Rectangle() 
 r.Acceptdetails() 
 r.Display() 
 Console.ReadLine()  
End Sub
  
Module DataTypes  
Sub Main() 
 Dim b As Byte  
Dim n As Integer 
 Dim si As Single 
 Dim d As Double  
Dim da As Date  
Dim c As Char  
Dim s As String
 Dim bl As Boolean 
b = 1 
 n = 1234567
  si = 0.12345678901234566 
d = 0.12345678901234566 
da = Today 
 c = "U"
 c s = "Me" 
 If ScriptEngine = "VB" 
 Then bl = True 
 Else bl = False  
End If  
If bl Then 
 'the oath taking Console.Write(c & " and," & s & vbCrLf) 
 Console.WriteLine("declaring on the day of: {0}", da) 
Console.WriteLine("We will learn VB.Net seriously") 
Console.WriteLine("Lets see what happens to the floating point variables:") 
Console.WriteLine("The Single: {0}, The Double: {1}", si, d) 
 End If
 Console.ReadKey()
 End Sub
 End Module

Share:

Read More

C# - Basic Syntax

C# -Basic Flow of Program **\\
using System; 
 namespace RectangleApplication 
{class Rectangle 
{ // member variables  
double length; 
 double width; 
 public void Acceptdetails()  
{  length = 4.5; 
width = 3.5;  
}  public double GetArea()  
{  return length * width; 
 }  public void Display()  
{  Console.WriteLine
 ("Length: {0}", length); Console.WriteLine 
("Width: {0}", width); Console.WriteLine("Area: {0}", 
 GetArea()); } } class ExecuteRectangle 
 { static void Main(string[] args) 
 { Rectangle r = new Rectangle(); 
 r.Acceptdetails(); 
 r.Display();
  Console.ReadLine(); 
 }  }  }/* This program demonstrates 
The basic syntax of C# programming Language *
   using System; 
 namespace DataTypeApplication { 
 class Program { 
 static void Main(string[] args) { 
 Console.WriteLine("Size of int: {0}", sizeof(int)); 
 Console.ReadLine();
  }  } } 
using System; 
 namespace TypeConversionApplication 
 { class ExplicitConversion  
{ static void Main(string[] args)  
{ double d = 5673.74; int i; // cast double to int. 
i = (int)d; Console.WriteLine(i);  
Console.ReadKey(); } } } 
using System; 
 namespace TypeConversionApplication  
{ class StringConversion  
{ static void Main(string[] args)  
{ int i = 75; 
 float f = 53.005f;  
double d = 2345.7652; 
 bool b = true;  
Console.WriteLine(i.ToString()); 
 Console.WriteLine(f.ToString()); 
 Console.WriteLine(d.ToString());  
Console.WriteLine(b.ToString()); 
 Console.ReadKey(); 
 } } }

Share:

Read More

C - Basic Syntax

Basic Code With Keywords **// 
"Declare variables" 
int age;
printf("Hello, World! \n")
printf("Hello, World! \n"); return 0;/* my first program in C */ 
fruit = apples + oranges; // get the total fruit
 #include <stdio.h> #include  
<float.h> int main() 
{ printf("Storage size for float : %d \n", 
 sizeof(float)); 
 printf("Minimum float positive value: %E\n", FLT_MIN ); 
 printf("Maximum float positive value: %E\n", FLT_MAX ); 
 printf("Precision value: %d\n", 
FLT_DIG ); return 0; }
extern int d = 3, f = 5; // declaration of d and f.
 int d = 3, f = 5; // definition and initializing d and f.
 byte z = 22; // definition and initializes z.
 char x = 'x'; // the variable x has the value 'x'.
#include <stdio.h> // Variable declaration: 
 extern int a, b; extern int c; extern float f; int main () { /* variable definition: */ 
 int a, b; int c; float f; /* actual initialization */ 
 a = 10; b = 20; c = a + b; 
printf("value of c : %d \n", c); 
 f = 70.0/3.0; 
 printf("value of f : %f \n", f);
  return 0; }
// function declaration
  int func(); int main()  
{ // function call int i = func(); } 
 // function definition int func() 
 { return 0; }
 int g = 20; // valid statement 10 = 20; //
invalid statement; would generate compile-time error
 #include <stdio.h>
  #define LENGTH 10  
#define WIDTH 5 
 #define NEWLINE '\n' 
 int main()  
{ int area; 
 area = LENGTH * WIDTH; 
 printf("value of area : %d", area); 
 printf("%c", NEWLINE); 
 return 0; }
 #include <stdio.h>  
int main() 
{ const int LENGTH = 10;  
const int WIDTH = 5;  
const char NEWLINE = '\n'; 
 int area; area = LENGTH * WIDTH; 
 printf("value of area : %d", area); 
 printf("%c", NEWLINE);
  return 0; }

Share:

Read More

VB.net String Functions

 Syntax String Functions with Description
Asc, AscW   -> Returns an Integer value representing the char code corresponding to a char.
Dim codeInt As Integer ' The following line of code sets codeInt to 65. codeInt = Asc("A") ' The following line of code sets codeInt to 97. codeInt = Asc("a") ' The following line of code sets codeInt to 65. codeInt = Asc("Apple")
 
Chr, ChrW   -> Returns the character associated with the specified character code.
Dim associatedChar As Char ' Returns "A". associatedChar = Chr(65) ' Returns "a". associatedChar = Chr(97) ' Returns ">". associatedChar = Chr(62) ' Returns "%". associatedChar = Chr(37)
 
Filter       -> Returns a zero-based array containing a subset of a String array 
Dim TestStrings(2) As String TestStrings(0) = "This" TestStrings(1) = "Is" TestStrings(2) = "It" Dim subStrings() As String ' Returns ["This", "Is"]. subStrings = Filter(TestStrings, "is", True, CompareMethod.Text) ' Returns ["This"]. subStrings = Filter(TestStrings, "is", True, CompareMethod.Binary) ' Returns ["Is", "It"]. subStrings = Filter(TestStrings, "is", False, CompareMethod.Binary)

Format ->  According to instructions contained in a format String expression.
Dim TestDateTime As Date = #1/27/2001 5:04:23 PM# Dim TestStr As String ' Returns current system time in the system-defined long time format. TestStr = Format(Now(), "Long Time") ' Returns current system date in the system-defined long date format. TestStr = Format(Now(), "Long Date") ' Also returns current system date in the system-defined long date ' format, using the single letter code for the format. TestStr = Format(Now(), "D") ' Returns the value of TestDateTime in user-defined date/time formats. ' Returns "5:4:23". TestStr = Format(TestDateTime, "h:m:s") ' Returns "05:04:23 PM". TestStr = Format(TestDateTime, "hh:mm:ss tt") ' Returns "Saturday, Jan 27 2001". TestStr = Format(TestDateTime, "dddd, MMM d yyyy") ' Returns "17:04:23". TestStr = Format(TestDateTime, "HH:mm:ss") ' Returns "23". TestStr = Format(23) ' User-defined numeric formats. ' Returns "5,459.40". TestStr = Format(5459.4, "##,##0.00") ' Returns "334.90". TestStr = Format(334.9, "###0.00") ' Returns "500.00%". TestStr = Format(5, "0.00%")
 
FormatCurrency  ->Returns an expression formatted as a currency value 
Dim TestDebt As Double = -4456.43 Dim TestString As String ' Returns "($4,456.43)". TestString = FormatCurrency(TestDebt, , , TriState.True, TriState.True)
 
FormatDateTime      -> Returns a string expression representing a date/time value.
Dim TestDate As DateTime = #3/12/1999# ' FormatDateTime returns "Friday, March 12, 1999". ' The time information is neutral (00:00:00) and therefore suppressed. Dim TestString As String = FormatDateTime(TestDate, DateFormat.LongDate)

FormatNumber-> Returns an expression formatted as a number.
Dim TestNumber As Integer = 45600 ' Returns "45,600.00". Dim TestString As String = FormatNumber(TestNumber, 2, , , TriState.True) 

FormatPercent->Returns an expression formatted as a percentage with a trailing % character.
Dim TestNumber As Single = 0.76 ' Returns "76.00%". Dim TestString As String = FormatPercent(TestNumber)

InStr->Returns an integer specifying the start position of the first occurrence of one string within another.
' String to search in. Dim SearchString As String = "XXpXXpXXPXXP" ' Search for "P". Dim SearchChar As String = "P" Dim TestPos As Integer ' A textual comparison starting at position 4. Returns 6. TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text) ' A binary comparison starting at position 1. Returns 9. TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary) ' If Option Compare is not set, or set to Binary, return 9. ' If Option Compare is set to Text, returns 3. TestPos = InStr(SearchString, SearchChar) ' Returns 0. TestPos = InStr(1, SearchString, "W")   

Share:

Read More