Visual Basic

  USE BDNAME
GO

CREATE PROCEDURE SelectByGeneName(
  @GeneName VarChar(100)
)
AS
BEGIN
  SET NOCOUNT ON;

  SELECT Gene, FindMethod, TDiscovery, TReplicate, AA_A, AA_T, AA_G, AA_C, ImageFileName, Description, SpxReplicationItem, IconFileName, Complete, Image, Icon, Type,
           UniqueID, Chromosome, Rarity, ParentGene, Name
  FROM PlazimorphGenes
    WHERE Gene = @genename

  RETURN;

END
GO

Public Function GetByGeneName(name as String) As DataTable
  Dim cn as New SqlConnection(ConnStr) ' Your connection string
  Dim cmd as New SqlCommand
  Dim dt as New DataTable("PlazimorphGenes")
  Try
    cn.Open()
    With cmd
      .Connection = cn
      .CommandType = CommandType.StoredProcedure
      .CommandText = "SelectByGeneName"             ' The StoredProcedure Name 
      .Parameters.AddWithValue("@GeneName", name)   ' Set the input parameter
      Dim da as New SqlDataAdapter(cmd)
      da.Fill(dt)                                   ' This fills your DataTable
    End With
Catch ex as Exception
  ...
Finally
  If cn.State <> ConnectionState.Closed Then cn.Close()
End Try

Return dt

End Function

Dim tRow As PlazimorphDBDataSet.PlazimorphGenesRow
Dim genename As String
genename = MTBGeneLabel.Text.ToString()
tRow = Me.PlazimorphGenesTA.FillByGene(Me.PlazimorphDBDataSet.PlazimorphGenes, genename)
tRow.Delete()
Me.PlazimorphGenesTA.Update(Me.PlazimorphDBDataSet.PlazimorphGenes)

tRow = Me.PlazimorphGenesTA.FillByGene(Me.PlazimorphDBDataSet.PlazimorphGenes, genename)

...
Dim cn As New SqlConnection("myConnectionStringHere")
Dim cmd As New SqlCommand()
Try
  cn.Open()
  With cmd
    .Connection = cn
    .CommandType = CommandType.Text
    .CommandTExt = "your SELECT query here"
    .Parameters.AddWithValue("@genename", yourGeneNameVariable)
    Dim dt As New DataTable("PlazimorphGenes")
    Dim da As New SqlDataAdapter(cmd)
    da.Fill(dt)

    plazimorphGenesDataGrid.DataSource = dt

  End With
...

...
Dim dr as DataRow = tRow(0)
Dim queryString as String = "DELETE PlazimorphGenes WHERE Id = @Id"  ' Correct synatax escapes me
Dim cn As New SqlConnection("yourConectionString")
Dim cmd As New SqlCommand
Try
  cn.Open()
  With cmd
    .Connection = cn
    .CommandType = CommandType.Text
    .CommandText = queryString
    .Parameters.AddWithValue("@Id", CInt(dr("Id")))
    .ExecuteNonQuery()
  End With

  UpdateDataGrid(...)

alirezamansoori wrote:

I need to use the RegQueryInfoKey API