Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
VB Code ******** If RadioButton1.Checked = True Then 'All servers myConnection = New SqlConnection("server=10.20.14.31;uid=user;pwd=pass;database=SCADA_DATA") 'establishing connection. you need to provide password for sql server Try myConnection.Open() 'opening the connection myCommand = New SqlCommand("Select * from serverlist", myConnection) 'executing the command and assigning it to connection dr = myCommand.ExecuteReader() While dr.Read() 'reading from the datareader Dim VobServer As String = dr(1).ToString() 'MsgBox(VobServer) 'Start loop of new sql command Try If My.Computer.Network.Ping(VobServer) Then dbProvider = "provider = sqloledb;Data Source=" & VobServer & ";Initial Catalog=Windman;User ID=user;Password=pass" sql = txtQuery.Text con = New OleDb.OleDbConnection(dbProvider) con.Open() da = New OleDb.OleDbDataAdapter(sql, con) da.Fill(ds, "QueryResult") GridView1.DataSource = ds.Tables("QueryResult").DefaultView GridView1.DataBind() Else End If Catch ex As Exception 'txtError.Text = "" 'txtDateTime.Text = "" 'txtError.Text = VobServer & " " & ex.Message 'txtDateTime.Text = Date.Now 'SqlDataSource1.Insert() End Try 'displaying the data from the table End While dr.Close() myConnection.Close() Catch ex As Exception 'txtError.Text = "" 'txtDateTime.Text = "" 'txtError.Text = ex.Message 'txtDateTime.Text = Date.Now 'SqlDataSource1.Insert() End Try End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.