See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
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.
Connect with top rated Experts
16 Experts available now in Live!