Tuesday, September 28, 2010

CHANGING LETTERS IN TXTBOX TO LOWER CASE ONLY ALPHABETS

CHANGING LETTERS IN TXTBOX TO LOWER CASE ONLY ALPHABETS
Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles EMAIL.KeyDown
'MsgBox(e.KeyCode)
'MsgBox(Chr(e.KeyCode))


Dim k As String
If Not e.Shift And Not e.Alt And Not e.Control Then
If Chr(e.KeyData) Like "[A-Z]" Or Chr(e.KeyData) Like "[a-z]" Then

k = Chr(e.KeyData)


EMAIL.Text = EMAIL.Text + k.ToLower()
e.SuppressKeyPress = vbAbort
SendKeys.Send("{END}")
End If
End If

End Sub
kaar3k@gmail.com

Sunday, September 26, 2010

run time data grid in vb.net

Connecting to the datagrid at run time
Imports System.Data.OleDb
Imports System.Data

Dim ad As New DataSet
Dim con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=employee.mdb;Jet OLEDB:Database Password=12345"
Dim dset As New DataSet

Dim adap As New OleDbDataAdapter("select * from custdetails where jobno='" & TextBox1.Text & "'", con)
adap.Fill(dset, "cdet")
DataGridView1.AutoGenerateColumns = True

DataGridView1.DataSource = dset.Tables("cdet")

use the specific driver in the connection and specific database



-kaar3k@gmail.com