Visual Basic

<!-- Start of BundleBalance  API -->
<!-- soap:Body of BundleBalanceRequest  message -->
<xs:element name="BundleBalanceRequest">
    <xs:complexType>
        <xs:sequence>
            <xs:element name="Interface" type="tns:InterfaceSimpleType"/>
            <xs:element name="MSISDN" type="xs:string"/>
        </xs:sequence>
    </xs:complexType>
</xs:element>
<!-- soap:Body of BundleBalanceResponse message -->
<xs:element name="BundleBalanceResponse">
    <xs:complexType>
        <xs:sequence>
            <xs:element name="ResponseCode" type="xs:integer"/>
            <xs:element name="ResponseData">
                <xs:complexType>
                    <xs:sequence>
                        <xs:element name="BundleBalanceDetails" type="tns:BundleBalanceDetailsComplexType" minOccurs="0" maxOccurs="unbounded"/>
                    </xs:sequence>
                </xs:complexType>
            </xs:element>
        </xs:sequence>
    </xs:complexType>
</xs:element>

txtName.Text = DirectCast(tRow("Name"), String)

or 

txtName.Text = DirectCast(tRow(0), String)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim dt As New DataTable
  With dt
    .Columns.Add("Name")
    .Columns.Add("Address")
    .Columns.Add("Salary")
    .Rows.Add(New Object() {"John", "123 Some Street", 1234})
    .Rows.Add(New Object() {"Frank", "15 TheOther Street", 1400})
    .Rows.Add(New Object() {"Harry", "3 No Street", 450})
  End With

  Dim dr As DataRow = GetDataRow(dt, "John")
  Label1.Text = String.Format("Name = {0}{3}Address = {1}{3}Salary = {2}",
				 dr("Name").ToString, dr("Address").ToString, dr("Salary").ToString, vbCrLf)
End Sub

Private Function GetDataRow(ByVal dt As DataTable, ByVal name As String) As DataRow
  Dim sStringTemp2 = "Name = '" + name + "'"
  Dim tRow As DataRow() = dt.Select(sStringTemp2)
  Return tRow(0)
End Function

JRHibner wrote:

I noticed you put tRow(0).

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim dt As New DataTable
		With dt
			.Columns.Add("Id")
			.Columns.Add("Name")
			.Columns.Add("Address")
			.Columns.Add("Salary")


			.Rows.Add(New Object() {1, "John", "123 Some Street", 1234})
			.Rows.Add(New Object() {Nothing, "Sally", "26 This Street", Nothing})
			.Rows.Add(New Object() {3, "Frank", "15 TheOther Street", 1400})
			.Rows.Add(New Object() {4, "Harry", "3 No Street", 450})


		End With

		Dim dr As DataRow = GetDataRow(dt, "Sally")

		Dim id As Integer = -1
		If Not TypeOf (dr("Id")) Is DBNull Then
			id = CInt(dr("Id"))
		End If

		Try
			Label1.Text = String.Format("ID = {0}{4}Name = {1}{4}Address = {2}{4}Salary = {3}", id.ToString,
                                                          dr("Name").ToString, dr("Address").ToString, dr("Salary").ToString, vbCrLf)
		Catch ex As Exception

		End Try



		Label2.Text = String.Format("Field 0 contains: {0}", dr(0).GetType)
		If (TypeOf (dr("Id")) Is DBNull) Then
			Label3.Text = "DBNull in Field 0"
		End If

	End Sub

	Private Function GetDataRow(ByVal dt As DataTable, ByVal name As String) As DataRow
		Dim sStringTemp2 = "Name = '" + name + "'"
		Dim tRow As DataRow() = dt.Select(sStringTemp2)
		Return tRow(0)

	End Function
End Class

JRHibner wrote:

I want to be able to check and make sure the Name isn't already used in the
datatable

If tRow.Count > 0 Then
  ' Name exists
Else
  ' Name doesn't exist
End If

Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                            Dim str = ExportData(carrier).ToString()
                            Using w As New StreamWriter(cryptostr)
                                w.Write(str)
                            End Using
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub

Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
           Try
               Using sha As New SHA512Managed
                   Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                   Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New MemoryStream() 'filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                       Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                           ExportData(carrier).Save(cryptostr)
                           Dim str = New String(Encoding.Default.GetChars(filestr.ToArray()))
                           Debugger.Break()
                       End Using
                   End Using
               End Using
           Catch ex As Exception
               Logging.Instance.WriteException(ex, TraceEventType.Error)
               MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
           End Try
       End Sub

Public Sub Save(ByVal carrier As DataCarrier, ByVal password As String, ByVal filename As String)
            Try
                Using sha As New SHA512Managed
                    Dim salt As Byte() = sha.ComputeHash(Encoding.Default.GetBytes(password))
                    Using pdb As New Rfc2898DeriveBytes(password, salt), aes As New RijndaelManaged, filestr As New MemoryStream() 'filestr As New FileStream(filename, FileMode.Create, FileAccess.Write)
                        Using cryptostr As New CryptoStream(filestr, aes.CreateEncryptor(pdb.GetBytes(32), pdb.GetBytes(16)), CryptoStreamMode.Write)
                            ExportData(carrier).Save(cryptostr)
                            File.WriteAllBytes(filename, filestr.ToArray())
                            Debugger.Break()
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                Logging.Instance.WriteException(ex, TraceEventType.Error)
                MessageBox.Show(String.Format(My.Resources.UnhandledExceptionExString, ex.Message, ex.ToString), My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Sub

1. Comment out the export line and perform the crypto-stream write directly.
2. Create two byte arrays for the key and IV and make sure pdb is creating a sensible key & IV, I would have thought that the if these were incorrect the encryption algorithm would throw. I've not used the derived bytes thing, so it is new to me
3. If the above isn't working, hard-code the key and IV byte arrays