Visual Basic

mebjen wrote:

  poIncNo = My.Settings.po + 1   '----IT'S INCREMENTED HERE !

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Interval = 250
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static lHwnd As Long
    Dim lCurHwnd As Long
    Dim sText As String
 
    sText = ""
    lCurHwnd = GetForegroundWindow
    If lCurHwnd = lHwnd Then Exit Sub
    GetWindowText(lHwnd, sText, 255)
    lHwnd = lCurHwnd
    If lHwnd <> Me.Handle Then
        Me.Text = "ActiveWindow: " & Microsoft.VisualBasic.Left(sText, 255)
        Debug.Print(Me.Text)
    Else
        Me.Text = "ActiveWindow: Form1"
    End If
End Sub

  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