Coding VB 6.0 and VB.Net: 2011

Wednesday, November 23, 2011

VB.NET Access connectionstring with database password & server.mappath

Imports System.Data.OleDb
Imports System.Data

Dim oConn As OleDbConnection
        Dim oComm As OleDbDataAdapter
        Dim sConn As String
        Dim sComm As String
        Dim oDataSet As New DataSet
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ivashi2011.mdb") & ";Jet OLEDB:Database Password=k12i07s2002s;"

        oConn = New OleDbConnection(sConn)
        sComm = "select * FROM mainmaster"
        oComm = New OleDbDataAdapter(sComm, oConn)
        oComm.Fill(oDataSet, "mainmaster")

        DataGrid1.DataSource = oDataSet.Tables("mainmaster").DefaultView
        DataGrid1.DataBind()

VB.NET OPEN any Type of file

Imports System.Diagnostics

Dim p As New System.Diagnostics.Process
        Dim s As New System.Diagnostics.ProcessStartInfo("d:\report1.rpt")
        s.UseShellExecute = True
        s.WindowStyle = ProcessWindowStyle.Normal
        p.StartInfo = s
        p.Start()

Tuesday, November 22, 2011

VB.NET READ TEXT FILE

Imports System.IO.File

Dim fileText As String = My.Computer.FileSystem.ReadAllText("c:\sample.txt")
Console.WriteLine(fileText)
OR
Button1.Text = System.IO.File.ReadAllText("c:\sample.txt")

Monday, September 5, 2011

CAST in VB6

dim date1 as date
date1=datetimepicker1.value

CAST('" & Format(date1, "mm/dd/yyyy") & "')

Wednesday, May 18, 2011

Print Web Page

//Copy and Paste this into <body> section
<SCRIPT Language="Javascript">

/*
This script is written by Eric (Webcrawl@usa.net)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/

function printit(){
if (window.print) {
    window.print() ;
} else {
    var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
    WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box    WebBrowser1.outerHTML = "";
}
}
</script>

<SCRIPT Language="Javascript">
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
    document.write('<form><input type=button value="Print this Page" name="Print" onClick="printit()"></form>');
}
</script>

Disable Right Click on Web Page

//insert this script into <BODY> tag or<asp:contentPlaceHolder> tag

<script language=JavaScript>

</script>

Monday, May 16, 2011

VB.NET Image SlideShow

//For 3 images
<head runat="server">
<script type="text/javascript">
var image1=new Image()
image1.src="images/lab/DSC_0024.jpg"
var image2=new Image()
image2.src="images/lab/DSC_0018V.jpg"
var image3=new Image()
</script>
</head>
//default image
<img alt="" src="~images/class/DSC_0223G.jpg" name="slide" width="333" height="140"/>
<script type="text/javascript" >
var step=1
function slideit(){
if (!document.images)
return
document.images.slide.src=eval("image"+step+".src")
if (step<3)
step++
else
step=1
setTimeout("slideit()",2000)     //for 2 seconds
}
slideit()
</script>

Sunday, May 15, 2011

Auto Redirect from HTML page to ASPX page in 3 seconds

Monday, May 9, 2011

VB.NET Vertical Marquee

//go to source from design then paste this in<td> tag
<marquee direction="up" onmouseover=this.stop() onmouseout=this.start() scrollDelay="100">
kapiil chaudhary
</marquee>

Thursday, March 17, 2011

VB.NET OnmouseOver GridView Rowcolor Change [With RowdataBound]

//Open GridView RowDataBound Property

If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.Attributes.Add("onmouseover", "this.style.cursor='pointer';this.style.backgroundColor='orangered'")
            e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='white'")
            e.Row.Attributes.Add("onclick", "window.open('Default3.aspx');")

        End If

//write on source code

<asp:GridView ID="GridView2" OnRowDataBound="GridView2_RowDataBound" runat="server">

VB.NET OnmouseOver GridView Rowcolor Change [With CSS]

//CSS Class Used to Highlight GridView Row

.rowStyle {
background-color:#AAFFEE;
cursor:pointer;
}

//VB.Net Code for GridView Highlight Row onmouseover

GridView1.DataSource = myDataSet
GridView1.DataBind() For Each rowItem As GridViewRow In GridView1.Rows
rowItem.Attributes.Add("onmouseover", "javascript:this.className = 'rowStyle'")
rowItem.Attributes.Add("onmouseout", "javascript:this.className = ''")
Next

Coding VB 6.0 and VB.Net