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
Wednesday, July 20, 2011
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)
FROM table_name1
INNER JOIN table_name2
ON table_name1.column_name=table_name2.column_name
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 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()
Subscribe to:
Posts (Atom)