Friday 14 June 2013

Save Record on php server

Hi....

I spend lot of time to achieve this. I Searched many website but didn’t find a proper way which help me to do this. Then I use php manual which help me to find my solution.
Mostly we use  mysql_connect("localhost","root","") this will work on client side where you develop your application. You just have to change the format of  mysql_connect()  function and rest of the thing will be same as you used to on your client.
mysql_connect("localhost","Girfa","12345")
Girfa is your user name and 12345 is password of your website. Which you got when launch your website.

<html>
<head>

<title>Girfa Saving Record on PHP Server</title>
<?php
    if($_GET['name1'])
        demo();
    function demo()
    {
        $con=mysql_connect("localhost","girfa","12345") or die("Could not open the database ");
        mysql_select_db("basant_bsw",$con);
        $roll=$_GET['roll'];
        $nm=$_GET['name'];
        $ct=$_GET['city'];
        $quary="insert into stu values('$roll','$nm','$ct')" or die("error in making sql");
        mysql_query($quary,$con) or die("unable to run sql quary");     
       

    }
?>
</head>
<body>
<form name="form1" method="get" action="<?php $_PHP_SELF ?>">
     Roll :  <input type="text" name="roll" /><br />
    Name : <input type="text" name="name" /><br />
    City : <input type="text" name="city" /><br />
   <input type="submit" value="save" name="name1" />
</form>
</body>
</html>

Friday 3 May 2013

File Read/Write Using VB 6.0

 Dim filenm As Integer
    filenm = FreeFile
    Open "d:\demo.txt" For Input As filenm
    Dim str As String
    Do While Not EOF(filenm)
        Input #filenm, str
        Label1.Caption = Label1.Caption + vbCrLf + str
    Loop

   Open "d:\readme.txt" For Output As #1
    Print #1, Text1.Text
    Close 1

Appending text in a file without overwriting content


Open "d:\readme.txt" For Append As #1
    Print #1, Text1.Text
    Close 1 

Wednesday 10 April 2013

Connect VB 6.0 with Oracle and SQL Server

Hi...
Database is the heart of any business application. When we make any software then most of the  things floats near of database. As we know oracle is the most popular database in the world connecting oracle to your VB application is very simple simple. take a look on following and please don't tell me thanks..

  • Import a class reference for Project > References
  • Add Microsoft ActiveX Data Objecs 2.8 Library from references
  • Make an object of ADODB.Connection
  • Open DB Connection Consider the connection string
  • Rest of the things are same as you do with access database

Dim con As New ADODB.Connection
    con.Open "Provider=MSDAORA.1;User id=scott;password='tiger';Persist Security Info=False"
    con.BeginTrans
    con.Execute "insert into vb values(110,'niraj','lanka')"
    con.CommitTrans
    MsgBox "Saved"

SQL Server

Table Name Stu(Roll number,Name varchar2(20),City varchar2(20)), Import Microsoft Active Data Objects 2.0 from Project>References

Save Button Code


 con.Open "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bsw"
con.BeginTrans
    con.Execute "insert into stu values(" & Text1.Text & ",'" & Text2.Text & "','" & Text3.Text & "')"
    con.CommitTrans

Friday 5 April 2013

Photo Shop Tutorial


Hi there....
I love photoshop because its provide wing to my imagination. I am taking lots of advantage of powerful tools of photoshop.You can enhance quality of your designing using this tutorial . I do not have any specific degree about photoshop I just make this tutorial which help you to make some type innovative graphics.Now Get start.....
Text Effect
  
Photoshop provide separate tool for text which create a separate layer when you write text.

Text Effect with hole
Develop By Raj Kumar
  • Type your text
  • Add a layer up side of text layer
  • Click on text layer and newly added layer border with alt key. It’ll merge text and normal layer. Now you can use brush tool for color (Because brush tool can not be apply directly on text layer)
  • Apply shadow  and other effect using Layer style by double click on text layer
  • Apply mask on text layer
  • Choose brush make high percentage of hardness and opacity
  • Move brush on text