Visual Basic

Dim query1 as IeQueryable(of myobj)= (From  t in context.myobjs Where vl1<5).Tolist

Dim query2= (From  t in context.myobjs.Asqueryable Where vl1<5).Tolist

Public Sub OnVerify(ByVal captureResult As CaptureResult)
        ' Check capture quality and throw an error if bad.
        If Not Me.CheckCaptureResult(captureResult) Then Return

        SendMessage(Action.SendMessage, "A finger was captured.")

        Dim resultConversion As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(captureResult.Data, Formats.Fmd.ANSI)

        If resultConversion.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
            Me.Reset = True
            Throw New Exception("" & resultConversion.ResultCode.ToString())
        End If

      
        firstFinger = resultConversion.Data
       

        'PULL FINGERPRINT RECORD FROM DATABASE
        Dim FMDDataset As New DataSet
        Dim DBconn As MySqlConnection = New MySqlConnection(connString)
        Dim sql As MySqlCommand = New MySqlCommand("SELECT * " & _
        " FROM tbl_fr ", DBconn)


        DBconn.Open()
        Dim DataAdapter As MySqlDataAdapter = New MySqlDataAdapter()
        DataAdapter.SelectCommand = sql
        FMDDataset.Clear()
        DataAdapter.Fill(FMDDataset, "tbl_fr")
        DBconn.Close()

      

        If FMDDataset.Tables("tbl_fr").Rows.Count > 0 Then
            Dim counter As Integer = 0

            Dim fp1, fp2 As String
            fp1 = Fmd.SerializeXml(resultConversion.Data)

               
                Dim byteS As Byte()
                'data from database
                byteS = FMDDataset.Tables("tbl_fr").Rows(0).Item("frp")


                'im having error on this line of code
                'DP_INVALID_PARAMETER:  Data at the root level is invalid. Line 1, position 1.
                MatchFinger = Fid.DeserializeXml(Convert.ToString(byteS))
               
                Dim resultConversionDATA As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(MatchFinger, Formats.Fmd.ANSI)
                Dim idResult As DPUruNet.IdentifyResult = DPUruNet.Comparison.Identify(firstFinger, 0, "resultConversionDATA", 2147, 2)
                If (idResult.ResultCode = DPUruNet.Constants.ResultCode.DP_SUCCESS) Then
                    If (idResult.Indexes.Length >= 1) Then  'Found potential match, dont search second collection (speed optimized)
                        MsgBox("RECORD MATCH")
                    Else
                        MsgBox("RECORD MISMATCH")
                    End If
                End If

             

                counter = counter + 1
                Me.BindingContext(FMDDataset, "tbl_fr").Position += 1
            Loop While (counter <= FMDDataset.Tables("tbl_fr").Rows.Count)
            

       End If

    End Sub

<SimpleTypeCompanion enumerates="CourtLocationTextType">
	<EnumerationValue code="MN010015J">
		<Text>Emily County</Text>
		<AssociatedValue type="MNCISNodeID">
			<Text>111</Text>
		</AssociatedValue>
		<AssociatedValue type="CountyName">
			<Text>Emily</Text>
		</AssociatedValue>
		<AssociatedValue type="PhoneNumber">
			<Text>724-820-7123</Text>
		</AssociatedValue>
	</EnumerationValue>
	<EnumerationValue code="DC19DAKDC">
		<Text>Pope County</Text>
		<AssociatedValue type="MNCISNodeID">
			<Text>112</Text>
		</AssociatedValue>
		<AssociatedValue type="CountyName">
			<Text>Pope</Text>
		</AssociatedValue>
	</EnumerationValue>
</SimpleTypeCompanion>

'CourtNCIC 
strCourtNCIC = objXmlMNCISData.DocumentElement.SelectSingleNode("Case/Court/CourtNCIC").InnerText
'Access the CourtLocationTextType simple type. 
objXmlSimpleTypeDoc = Msc.Integration.CourtXml.Library.v4.SimpleType.GetCompanionFile("CourtLocationTextType")
'Get the correct EnumerationValue node that has @code =MN010015J string value
objXmlEnumerationValueNode = objXmlSimpleTypeDoc.SelectSingleNode("/SimpleTypeCompanion/EnumerationValue[@code=" + strCourtORI + "]/@code")

Hello there,
I need help with something. I am preparing a project. I couldn't decide how to make a feature I wanted. I will be glad if you help me.

My project will be as follows;
I have 3 datagridview in Form1 and this datagridview is connected to each other with primary key. While loading the form, the data is loaded into the datagridview and I add a button with the code to the last column in the datagridview. When I click the button on any line, Form2 opens and loads the data in this form and connected to the primary key with 2 datagridview. This data is another table in the same database. I'm adding checkboxes to these datagridview. then I mark some records in datagridview, which are main and sub-table data, and when I press the close form button, it returns to Form1 and the selected data is saved to the tables to which the 2nd and 3rd datagridviews are connected by checking the duplicate records. When the installation is complete, the image in all datagridviewers is refreshed.

Note: I can't add a sample project here because I haven't started coding yet.

Thanks for your help.

How to make a "Boss Key" in Vb .Net