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

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

ABOUT VB6.0

Introduction Þ Visual Basic is a tool that allows you to develop Windows (Graphic User Interface – GUI ) applications. The applications have a familiar appearance to the user. Þ Visual Basic is event-driven ; event driven meaning code remains idle until called upon to respond to some event (button pressing, menu selection). Visual Basic is governed by an event processor. Þ The original Visual Basic for DOS and Visual Basic for Windows were introduced in 1991. Steps in Developing Application There are three primary steps involved in building a Visual Basic application: 1. Draw the user interface 2. Assign properties to controls 3. Attach code to controls Rule for Variable Variables are used by Visual Basic to hold information. Þ No more than 40 characters Þ They may include letters, numbers, and underscore (_) Þ The first character must be a letter Þ You cannot use a reserved wor...
Post a Comment
Read more