SANJAY26

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim OleDbConnection1 As New System.Data.OleDb.OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Testing\DATABASE\TESTING.MDB;PERSIST SECURITY INFO=FALSE;") OleDbConnection1.Open() Dim OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand() OleDbSelectCommand1.CommandText = "Select h1_img from lock_img1 where lockerno='" & TextBox1.Text & "'" '"select ID,Name,Description,Image from MASTER where ID like '" & Trim(cmbID.Text) …

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick frmDisplayLockerInfo.Show() frmDisplayLockerInfo.TextBox2.ReadOnly = False frmDisplayLockerInfo.TextBox3.ReadOnly = False frmDisplayLockerInfo.TextBox4.ReadOnly = False frmDisplayLockerInfo.TextBox5.ReadOnly = False frmDisplayLockerInfo.TextBox6.ReadOnly = False frmDisplayLockerInfo.TextBox7.ReadOnly = False frmDisplayLockerInfo.TextBox8.ReadOnly = False frmDisplayLockerInfo.TextBox9.ReadOnly = False frmDisplayLockerInfo.TextBox10.ReadOnly = False frmDisplayLockerInfo.TextBox11.ReadOnly = False frmDisplayLockerInfo.TextBox12.ReadOnly = False frmDisplayLockerInfo.TextBox13.ReadOnly = False frmDisplayLockerInfo.TextBox15.ReadOnly …

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call ImageRetrieve() End Sub Private Sub ImageRetrieve() imgsave2.Update() Dim OleDbConnection1 As New System.Data.OleDb.OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Testing\DATABASE\TESTING.MDB;PERSIST SECURITY INFO=FALSE;") OleDbConnection1.Open() Dim OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand() Dim OleDbReader1 As System.Data.OleDb.OleDbDataReader 'Access (OleDb) OleDbSelectCommand1.CommandText = "Select h1_img,h2_img,h3_img,h1_sign,h2_sign,h3_sign from vLOCKER WHERE lockerno …

rivate Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call ImageRetrieve() End sub Private Sub ImageRetrieve() imgsave2.Update() Dim OleDbConnection1 As New System.Data.OleDb.OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Testing\DATABASE\TESTING.MDB;PERSIST SECURITY INFO=FALSE;") OleDbConnection1.Open() Dim OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand() Dim OleDbReader1 As System.Data.OleDb.OleDbDataReader 'Access (OleDb) OleDbSelectCommand1.CommandText = "Select h1_img,h2_img,h3_img,h1_sign,h2_sign,h3_sign from vLOCKER WHERE lockerno …

Public Sub imgsave2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgsave2.Click Dim path As String Static InitialSize As Size = imgsave2.Size ' Save original ctrl size imgsave2.Size = InitialSize ' Reset the control size With OpenFileDialog1 ' Initialize the file dialog .Filter = "Bitmap (*.BMP)|*.bmp|Icon (*.ICO)|*.ICO|GIF (*.GIF)|*.GIF|Metafile (*.WMF)|*.WMF|JPEG (*.JPG)|*.JPG" …

[CODE]Imports System.Data.OleDb Public Class Form1 Public con As New OleDbConnection Public cmd As New OleDbCommand Public da As New OleDbDataAdapter Public dr As OleDbDataReader Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oOLE As String Try con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\BOND\BOND\bin\database\RBIBOND.mdb;Persist security info=False;" con.Open() oOLE = …

Imports System.Data.OleDb Public Class Form1 Public con As New OleDbConnection Public cmd As New OleDbCommand Public da As New OleDbDataAdapter Public dr As OleDbDataReader Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oOLE As String Try con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\BOND\BOND\bin\database\RBIBOND.mdb;Persist security info=False;" con.Open() oOLE = …