Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Private Sub frmItemSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strSql As String = "SELECT [BAR_CODE] FROM INVENTORY WHERE [USER_ID] = 12345" Dim strPath As String = "Data Source=AppDatabase1.sdf;Persist Security Info=False;" Dim sconInventory As New SqlCeConnection(strPath) Dim scmdInventory As New SqlCeCommand(strSql, sconInventory) Dim val1 As Integer() sconInventory.Open() 'This is the line telling me it can't find the database. Everything below is code I'll fix later Dim sqlReader As SqlCeDataReader = scmdInventory.ExecuteReader() Try Dim i As Integer = 0 While sqlReader.Read() val1(i) = sqlReader.GetInt32(0) i += 1 MsgBox(val1(i) & " " & i) End While Finally sqlReader.Close() sconInventory.Close() End Try For i = 0 To val1.length - 1 Next End Sub
Join the community of 500,000 technology professionals and ask your questions.