Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Private Sub STapply_Click(sender As Object, e As EventArgs) Handles STapply.Click Dim Site = STsiteComboBox.Text Dim Team1 = STteam1ComboBox.Text Dim Team2 = STteam2ComboBox.Text Dim NDS = STndsteamComboBox.Text HL_site_View.Text = Site Dim Conn As New OleDbConnection Dim Comm As New OleDbCommand Dim DReader_T1L As OleDbDataReader Dim Str As String = "" Conn.ConnectionString = CreateConnString("c:\tempTestDB.xls") Conn.Open() Comm.Connection = Conn Comm.CommandText = "SELECT * FROM [TeamsTL$] where Teams= """ & Team1 & """" DReader_T1L = Comm.ExecuteReader(CommandBehavior.CloseConnection) Try While (DReader_T1L.Read) MessageBox.Show(DReader_T1L.Item(1)) MessageBox.Show(DReader_T1L.Item(2)) MessageBox.Show(DReader_T1L.Item(3)) MessageBox.Show(DReader_T1L.Item(4)) End While Finally DReader_T1L.Close() End Try End Sub
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.