Public Shared Function GetLocs() As DataSet ' Return set of locations based on search criterion entered on LocInqScreen ' Create a connection to the Mobile SQL database Dim PAConnection As New SqlCeConnection PAConnection.ConnectionString = "Data Source =""Program Files\HTE_Apps\CT Database.sdf""" ' Define a Query and Adapter to select this screen's controls from the database 'Define select string Dim SelectLocs As String = "SELECT STR_DIR as DIR, STR_NUM as NUM, STR_NAM as STREET, STR_SFX as SFX, CITY, STATE, ZIP, LOC_ID From LocID Where" 'Define select string for each search criteria entered 'Street Name If LocInqScreen.gSTR_NAM > "" Then SelectLocs = Trim(SelectLocs) + " STR_NAM like '%" + Trim(LocInqScreen.gSTR_NAM.ToString) + "%' " End If Dim adapter As SqlCeDataAdapter = New SqlCeDataAdapter(SelectLocs, PAConnection) ' Initiate a Dataset to contain the table returned Dim result As New DataSet 'Fill the dataset PAConnection.Open() adapter.Fill(result, "LocID") PAConnection.Close() ' Return the dataset Return result End Function
|Hangfire / asp.net sample||3||28|
|help with issues with ReportViewer in VS2015||5||23|
|i try to run a .bat file with a specific user even if restarts,log off with nssm,help!||13||38|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!