Coding VB 6.0 and VB.Net

Thursday, May 24, 2012

ASP.NET Web Services

click window key and + to enlarge otherwise use the link below to see a clear view....

A Simple Web Service in ASP.NET

Tuesday, May 15, 2012

VB.NET SQL Connection fill GridView

   Imports system.data.sqlclient
     Imports system.data

   Dim cn As New SqlConnection
        Dim sql As String
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter
        cn = New SqlConnection("server=localhost;database=NLAB 2012-2013;integrated security=true")
        sql = "select * from mainmaster"
        Dim cm As New SqlCommand(sql, cn)
        da = New SqlDataAdapter(cm)
        da.Fill(ds)
        GridView1.DataSource = ds.Tables(0)
        GridView1.DataBind()

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