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
teChie_Kar
Tuesday, September 28, 2010
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
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
Friday, July 23, 2010
vb is SICKKK
guys dont try to waste time in becoming a geek of VB....... it makes u bugged inside the Microsft recycle biNNNN
Never try 2 beat the technology,next instance u r beatenNNNNNN
All the technology in the mopdern world works with 0000000000 and 11111111111 ,m proud to be a indian who paved the way to this modern technology by inventing "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
Subscribe to:
Posts (Atom)