Database

DECLARE @position int, @string char(8)
-- Initialize the current position and the string variables.
SET @position = 1
SET @string = 'New Moon'
WHILE @position <= DATALENGTH(@string)
   BEGIN
   SELECT ASCII(SUBSTRING(@string, @position, 1)), 
      CHAR(ASCII(SUBSTRING(@string, @position, 1)))
   SET @position = @position + 1
   END
GO

declare @myTestString varchar(50)

set @myTestString = char(10)+char(13)+char(10)+char(10)+char(13)+char(13)+char(13)+char(10)

set @myTestString = replace( @myTestString, char(10), char(13)+char(10) )
set @myTestString = replace( @myTestString, char(13)+char(13)+char(10), char(13)+char(10) )

<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