Wednesday, July 20, 2011

Get ip code in vb and asp .net

vb.net


Dim sam As String 'System.Net.IPAddress
        'Dim comp As Object
        'Dim rtn As Boolean

        Dim sam1 As String
        With System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
            sam = .AddressList(0).ToString
            MsgBox(sam)
            sam1 = sam.ToString
        End With

asp.net

  Dim a As String
        Dim i As System.Net.IPHostEntry
        a = System.Net.Dns.GetHostName
        i = System.Net.Dns.GetHostEntry(a)
        Response.Write("The Name of Host is :" + i.HostName)
        Response.Write("----")
        For Each b As System.Net.IPAddress In i.AddressList
            Response.Write("The Ip Address of Host is" + b.ToString)
        Next

Tuesday, July 5, 2011

SQL INNER JOIN

strSQL = "SELECT tbl_stud.id, tbl_stud.name, tbl_stud.address, tbl_course.course FROM tbl_stud INNER JOIN tbl_course ON tbl_stud.id = tbl_course.id"
 DataGridView1.DataSource = objc.GetDataTable(strSQL, CommandType.Text)


SQL INNER JOIN Syntax

SELECT column_name(s)
FROM table_name1
INNER JOIN table_name2
ON table_name1.column_name=table_name2.column_name

Multiple datatables in crystal report


 Dataset2 has two datatables - tbl_stud and tbl_course


Dim daT1, daT2 As OleDbDataAdapter
Dim DataSet2 As DataSet
connection_open()

        strSQL = "SELECT * FROM tbl_stud"
        daT1 = New OleDbDataAdapter(strSQL, con)
        DataSet2 = New DataSet
        daT1.Fill(DataSet2, "tbl_stud")

        strSQL = "SELECT * FROM tbl_course"
        daT2 = New OleDbDataAdapter(strSQL, con)
        daT2.Fill(DataSet2, "tbl_course")

        Dim rpt As New CrystalReport1
        rpt.SetDataSource(DataSet2)
        Form5.CrystalReportViewer1.ReportSource = rpt

connection_close()