Visual Basic

Vikrant Badhai wrote:

I am Developing a software using VB6.0 as Frontend and MSAccess as Backend.

Private Sub dataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) 
    If e.ColumnIndex = 0 Then 
        For i As Integer = 0 To dataGridView1.Rows.Count - 1 
            dataGridView1.Rows(i).Cells(0).Value = dgvColumnHeader.CheckAll 
        Next 
    End If 
End Sub 

Private Sub myDataGrid_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles myDataGrid.ColumnHeaderMouseClick

IvanIT wrote:

strSelectNum = _
"SELECT * FROM tblEmployeeAllocation WHERE EmployeeNumber = '" & _
txtEmployeeNumber.Text & "'"

strSelectNum = "SELECT * FROM tblEmployeeAllocation WHERE EmployeeNumber = " & txtEmployeeNumber.Text

<br />
  Public Sub TimeAlloc(ByVal strEmployeeNumber As String)<br />
<br />
        Dim strSelectNum As String = "SELECT * FROM tblEmployeeAllocation WHERE EmployeeNumber = ?"<br />
<br />
        Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\devELOPMENT\WINTur\TurN.mdb"<br />
<br />
        Dim sda As OleDbDataAdapter<br />
<br />
        Dim dsEmployeeTime As New DataSet<br />
<br />
        Dim cmdDatabase As OleDb.OleDbCommand<br />
<br />
        Dim conDatabase As New OleDbConnection(strcon)<br />
<br />
        cmdDatabase.Parameters.Add("EmployeeNumber", strEmployeeNumber)<br />
<br />
        cmdDatabase.Connection = conDatabase<br />
<br />
        sda.SelectCommand = cmdDatabase<br />
<br />
        Dim bNewTimeAllocation As Boolean<br />
<br />
<br />
        'need to determine if this is a new allcation WHERE EmployeeNumber exists in tblTimeAllocation<br />
        'txtEmployeeNumber.Text'<br />
<br />
        Try<br />
<br />
            conDatabase.Open()<br />
<br />
<br />
            sda.Fill(dsEmployeeTime, "tblEmployeeAllocation")<br />
<br />
            If dsEmployeeTime.Tables("tblEmployeeAllocation").Rows.Count = 0 Then<br />
<br />
                bNewTimeAllocation = True<br />
            Else<br />
<br />
                bNewTimeAllocation = False<br />
<br />
            End If<br />
<br />
            conDatabase.Close()<br />
<br />
        Catch exc As OleDb.OleDbException<br />
<br />
            MsgBox(exc.Message)<br />
        End Try<br />
    End Sub<br />

IvanIT Wrote|The function I am using is outlined below

<br />
Dim recEmployee As DataRow = dsEmployeeTime.Tables(0).Rows(0)<br />
<br />
If recEmployee.IsNull("EmployeeNumber") Then<br />
<br />