Phoguez

Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter If (DataGridView1.RowCount > 1) And (DataGridView1.CurrentCell.Value IsNot Nothing) Then Label1.Text = DataGridView1.CurrentCell.Value.ToString End If End Sub

Sub FindEmptyCell() 'this will run on column A in Excel 'not in vb.net. 'add some text to each row on the first column 'Hit ctrl-break to stop if ever column A 'is empty. Dim i As Integer i = 1 Range("A1").Select Do Until False i = i + 1 Range("A" …

'It should be, Textbox2 = Textbox2 'copy paste this TextBox2.Text = TextBox2.Text.Replace("Kelvin.1337", TextBox1.Text)

'Set the Identity_Insert to ON first before attempting to insert new row. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cmd.Connection = cnn cmd.CommandText = "Set Identity_Insert Tmp_Agents ON" cmd.ExecuteNonQuery() cmd.CommandText = "INSERT INTO Tmp_Agents (AgentIdent, AgentCode) " & " Values (5,'JMB')" cmd.ExecuteNonQuery() End Sub

'add a button and a textbox Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox(TextBox1.Text.ToLower) End Sub

'atleast you have more than 1 row. 'this will put your number in column 0 (1st column). Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For j = 0 To DataGridView1.Rows.Count - 2 DataGridView1(0, j).Value = j + 100001 Next End Sub

Dim dpDate As DateTime = Now() MsgBox("The date is " & dpDate) Select * FROM Invoice where InvoiceDate = dpDate You cannot store a Char datatype to a datetime type.