Skip to main content

Save, Edit and Delete Example into Access Database Using VB6.0



Save, Edit and Delete Example into Access Database Using VB6.0
‘——————————————————————-
‘ Instraction For Safe Project Load
‘ Components Add Your Project
‘ 1) Add Microsoft ADO Data Control 6.0 (OLEDB)
‘ 2) Add Microsoft Windows Commom Controls-2.6 Your Project
‘——————————————————————-
Dim db As ADODB.Connection
Dim rst As ADODB.Recordset
Dim id As Integer
Private Sub Form_Load()
‘Open Database Connection
Set db = New ADODB.Connection
db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\s4sajoy SampleCode\SampleDB.mdb;Persist Security Info=False”
Set rst = New ADODB.Recordset
rst.Open “select * from tblSample Order By SerialNo DESC”, db, adOpenStatic, adLockOptimistic, adCmdText
If rst.RecordCount = 0 Then
id = 1
Else
id = rst(“SerialNo”) + 1
End If
rst.Close
lblID.Caption = id
End Sub

Private Sub cmdAdd_Click()
If Trim(txtName.Text) = “” Then
MsgBox “input name”, vbInformation
Else
Set rst = New ADODB.Recordset
rst.Open “select * from tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText
rst.AddNew
rst(“SerialNo”) = CInt(lblID.Caption)
rst(“Date”) = DTPicker1.Value
rst(“Name”) = Trim(txtName.Text)
rst.Update
rst.Close
MsgBox “One Person Added.” & Chr(13) & “Nmae : ” & Trim(txtName.Text), vbInformation
id = id + 1
lblID.Caption = id
DTPicker1.Value = Date
txtName.Text = “”
txtName.SetFocus
End If
End Sub
Private Sub cmdUpdate_Click()
If Trim(txtID.Text) = “” Then
MsgBox “input id no”
txtID.SetFocus
Else
Set rst = New ADODB.Recordset
rst.Open “UPDATE tblSample SET tblSample.Date = #” & DTPicker1.Value & “#, tblSample.Name = ‘” & txtName.Text & “‘ WHERE tblSample.SerialNo=” & txtID.Text, db, adOpenStatic, adLockOptimistic, adCmdText
MsgBox “One Row Updated”
End If
End Sub
Private Sub cmdDelete_Click()
If Trim(txtID.Text) = “” Then
MsgBox “input id no”
txtID.SetFocus
Else: Set rst = New ADODB.Recordset
rst.Open “Delete * From tblSample Where SerialNo=” & txtID.Text, db, adOpenStatic, adLockOptimistic, adCmdText
MsgBox “Delete Successfull”
End If
End Sub
Download [Sample Code]

Comments

Post a Comment

Popular posts from this blog

UNIX/LINUX COMMAND

Unix / Linux Command cat  --- for creating and displaying short files chmod  --- change permissions cd  --- change directory cp  --- for copying files date  --- display date echo  --- echo argument ftp  --- connect to a remote machine to download or upload files grep  --- search file head  --- display first part of file ls  --- see what files you have lpr  --- standard print command (see also  print  ) more  --- use to read files mkdir  --- create directory mv  --- for moving and renaming files ncftp  --- especially good for downloading files via anonymous  ftp . print  --- custom print command (see also  lpr  ) pwd  --- find out what directory you are in rm  --- remove a file rmdir  --- remove directory rsh  --- remote shell setenv  --- set an environment variable sort  --- sort file tail  --- display last part of file ta...
Post a Comment
Read more

DIALOG BOX SHOW CODE IN SWING JAVA

import javax.swing.*; import java.awt.event.*; public class Dialog {   JFrame frame;   JPanel p;   public Dialog(){   frame = new JFrame("Show Message Dialog");   p=new JPanel();   JButton button = new JButton("Click Me");   button.addActionListener(new MyAction());     p.add(button);   frame.add(p);   frame.setSize(400, 400);   frame.setVisible(true);   frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);   }   public class MyAction implements ActionListener{   public void actionPerformed(ActionEvent e){   JOptionPane.showMessageDialog(frame,"My DialogBox");   }   }  public static void main(String[] args)  {     Dialog db = new Dialog();   } }
Post a Comment
Read more

DATABASE UPDATION CODE IN VB.NET

Private Sub BTNUPDATE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNUPDATE.Click         connetionString = " Data Source=KEERTIG-PC\SQLEXPRESS;Initial Catalog=GAURAV1;Integrated Security=True"         connection = New SqlConnection(connetionString)         sql = "UPDATE ROOM_BOOKING SET FIRST_NAME= '" & TXTBSFNAME.Text & "',MIDDLE_NAME= '" & TXTBSMNAME.Text & "',LAST_NAME= '" & TXTBSLNAME.Text & "',NUM_OF_ROOM= '" & TXTBSNOROOM.Text & "',NUM_OF_DAYS= '" & TXTBSNODAYS.Text & "',MOBILE_NO= '" & TXTBSMOBNO.Text & "',ADDERESS= '" & TXTBSADDRESS.Text & "',ROOMBK_PRICE= '" & TXTBSPRICE.Text & "' WHERE ROOMBK_ID = '" & TXTBSBID.Text & "'  "         Try             connection.Open()             MsgBox(...
Post a Comment
Read more