Database

<br />
Imports System.Xml<br />
<br />
Dim xdTemplate As New XmlDocument<br />
Dim xnRoot As XmlNode<br />
<br />
xdTemplate.Load("c:\temp\FP_TAK.xml")<br />
<br />
xnRoot = xdTemplate.SelectSingleNode("/myPath/mySub/etc")<br />
<br />
'  This code show some simple code to loop through an XML file<br />
'  you will need to modify this based on your layout, but at least it shows some<br />
'  functionality.<br />
<br />
While (Not (IsNothing(xnRoot))<br />
  If (xnRoot.Name = "FSFORMULATPALL") Then<br />
    If (xnRoot.Item("PARAM_CODE").InnerText = "R.B.D_SOY_ALLERGEN") Then<br />
      Debug.Print(CStr(i) + ") " + xnRoot.Item("PARAM_CODE").InnerText)<br />
      xnRoot.Item("PVALUE_LABEL").InnerText = "No"<br />
    End If<br />
  End If<br />
<br />
  xnRoot = xnRoot.NextSibling<br />
End While<br />
<br />
xdTemplate.Save("c:\temp\dave.xml")<br />
<br />

SelectedImage = ("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text)        
conImage = GetDBConnection()        
Try            
   commImage = New Data.SqlClient.SqlCommand(SelectedImage, conImage)            
   recordsAffected = commImage.ExecuteNonQuery()            
   MsgBox("Deleted count: " & recordsAffected)
   MsgBox("Image successfuly deleted from database", MsgBoxStyle.Information)

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim RecordAffected As Integer

        SelectedImage = ("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text)
        conImage = GetDBConnection()
        Try
            commImage = New Data.SqlClient.SqlCommand(SelectedImage, conImage)
            RecordAffected = commImage.ExecuteNonQuery()
            MsgBox(CStr(RecordAffected) & "  Image successfuly deleted from database", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        commImage.Dispose()
        commImage = Nothing
        conImage.Close()
        conImage.Dispose()
        Call LoadImages()
    End Sub

Private Function GetDBConnection()
        ' Compose the database file name.
        ' Modify this if the database is somewhere else.
        Dim DBname As String = Application.StartupPath()
        DBname = DBname.Substring(0, DBname.LastIndexOf("\bin"))
        DBname = DBname & "\Images.mdf"
        ' Compose the connect string. 
        Dim connect_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & _
        DBname & ";Integrated Security=True;User Instance=True"
        ' Open a database connection.
        Dim SqlConn As New Data.SqlClient.SqlConnection(connect_string)
        SqlConn.Open()
        ' Return the connection.
        Return SqlConn
    End Function

RecordAffected = commImage.ExecuteNonQuery()
         MsgBox(CStr(RecordAffected) & "Image successfuly deleted from database", MsgBoxStyle.Information)

Private Function GetDBConnection()        
   Static SqlConn = Nothing

   If SqlConn Is Nothing Then
      ' Compose the database file name.        
      ' Modify this if the database is somewhere else.        
      Dim DBname As String = Application.StartupPath()        
      DBname = DBname.Substring(0, DBname.LastIndexOf("\bin"))        
      DBname = DBname & "\Images.mdf"        
      ' Compose the connect string.         
      Dim connect_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & _        
      DBname & ";Integrated Security=True;User Instance=True"        
      ' Open a database connection.        
      SqlConn = New Data.SqlClient.SqlConnection(connect_string)        
      SqlConn.Open()        
   End If
   ' Return the connection.        
   Return SqlConn    
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        Button3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
        Button1.Enabled = True
        TextBox1.Enabled = True : TextBox2.Enabled = True
        TextBox1.BackColor = Color.Aquamarine : TextBox2.BackColor = Color.Aquamarine
        Try
            Me.StudentBindingSource.EndEdit()
            Me.StudentBindingSource.AddNew()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End 

Me.StudentBindingSource.EndEdit()
      Me.StudentBindingSource.AddNew()

btnSave.Enabled = False
     'get sql connection
     Dim ImageAdd As Integer

     Try
         conImage = GetDBConnection()
         dsImage.BeginInit()

         Dim sSQL As String = "INSERT INTO Images (Pic,Title, IType, Height, Width) VALUES(" & _
                        "@pic, @title, @itype, @iheight, @iwidth)"
         commImage = New Data.SqlClient.SqlCommand(sSQL, conImage)
         Call GetImage()
         ImageAdd = commImage.ExecuteNonQuery()
         Me.daImage.Update(Me.dsImage, "Images")

         dsImage.AcceptChanges()
         MessageBox.Show(ImageAdd.ToString & "  Image successfuly saved in database", "Image Load")
         dsImage.EndInit()

     Catch ex As Exception
         MsgBox(ex.Message)

     End Try
     commImage.Dispose()
     ' commImage = Nothing
     conImage.Close()
     conImage.Dispose()
     Call LoadImages()
 End Sub

Private Sub TestMethod()
   Dim imageCount As Integer = dsImage.Images.Rows.Count

   MsgBox("Original image count in dataset: " & CStr(imageCount))
   conImage = GetDBConnection()        
   commImage = New Data.SqlClient.SqlCommand("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text, conImage)            
   If commImage.ExecuteNonQuery() <> 1 Then
      MsgBox("Delete failed", MsgBoxStyle.Information)
   End If
   dsImage.Images.Clear()            
   dsImage.Images.AcceptChanges()
   If dsImage.Images.Rows.Count <> 0 Then
      MsgBox("Datatable not empty", MsgBoxStyle.Information)
   End If
   Me.ImagesTableAdapter.ClearBeforeFill = True            
   Me.ImagesTableAdapter.Fill(Me.dsImage.Images)            
   If (imagecount - 1 <> dsImage.Images.Rows.Count) Then
      MsgBox("Delete not done, rows in datatable: " & CStr(dsImage.Images.Rows.Count), MsgBoxStyle.Information)
   End If
End Sub