Visual Basic

mebjen wrote:

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

Private Sub Control_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
       If Moving Then
           Dim ctrl As Control = CType(sender, Control)
           ' Move the control according to mouse movement
           ctrl.Left = (ctrl.Left + e.X) - cursorX
           ctrl.Top = (ctrl.Top + e.Y) - CursorY
           ' Ensure moved control stays on top of anything it is dragged on to
           ctrl.BringToFront()
       End If
   End Sub

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