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

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()