I do have the following code, it works, but I need to search for a server name, so if I have about 50 names start with M it goes true them one by one, how can I search that I can put more characters in it, eg. GPS...
Code:
Imports System.Data.OleDb
Imports System.Drawing.Printing
Public Class Main
Private WithEvents pd As New Printing.PrintDocument
Private Sub ServerRoom_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Using cn As New OleDb.OleDbConnection
Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = IO.Path.Combine(Application.StartupPath, "Serverroomlayout.xls"), .Provider = "Microsoft.ACE.OLEDB.12.0"}
Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=No;")
cn.ConnectionString = Builder.ConnectionString
cn.Open()
Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}
cmd.CommandText = "SELECT TOP 530 F1 As ServerName, F3 As Room, F4 As Row, F5 as Rack, F6 as Pod, F7 as Vanaf, F8 as na, F10 as Ipaddress, F11 as Vlan, F12 as Model, F13 as Type, F14 as Operating_System, F15 as Application, F16 as app_owner, F17 as Ram, F18 as ui, F19 as sw, F20 as do, F21 as info1, F22 as info2, F23 as info3, F24 as info4, F25 as Serial FROM [EveryThing$]"
Dim dr As System.Data.IDataReader = cmd.ExecuteReader
dt.Load(dr)
LstServerName.DisplayMember = "ServerName"
LstServerName.DataSource = dt
txtroom.DataBindings.Add("Text", dt, "Room")
TxtRow.DataBindings.Add("Text", dt, "Row")
txtRack.DataBindings.Add("Text", dt, "Rack")
txtPod.DataBindings.Add("Text", dt, "Pod")
txtFrom.DataBindings.Add("Text", dt, "vanaf")
txtTo.DataBindings.Add("Text", dt, "na")
TxtIPAddress.DataBindings.Add("Text", dt, "Ipaddress")
txtVlan.DataBindings.Add("Text", dt, "Vlan")
txtModel.DataBindings.Add("Text", dt, "Model")
txtType.DataBindings.Add("Text", dt, "Type")
TxtOS.DataBindings.Add("Text", dt, "Operating_System")
TxtApp.DataBindings.Add("Text", dt, "Application")
TxtAppOwner.DataBindings.Add("Text", dt, "app_owner")
TxtRam.DataBindings.Add("Text", dt, "Ram")
TxtUserid.DataBindings.Add("Text", dt, "ui")
Txtpassw.DataBindings.Add("Text", dt, "sw")
TxtDomain.DataBindings.Add("Text", dt, "Do")
txtInfo1.DataBindings.Add("Text", dt, "info1")
txtInfo2.DataBindings.Add("Text", dt, "info2")
txtInfo3.DataBindings.Add("Text", dt, "info3")
txtInfo4.DataBindings.Add("Text", dt, "info4")
txtSerial.DataBindings.Add("Text", dt, "serial")
End Using
End Using