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

LECTURE BREAKUP OF PHP MYSQL

PHP+MYSQL Introduction Basic Syntax Variable & it's Scope I/O & Comment   String & it's Function Operator & Expression Decision Control Case Control Loop Control Arrays & Function Form Handling State Management - Cookies State Management - Session Mail Concept Working with File Date/Time Functions Introduction MySQL Environment Database Concept Datatype Query processing Statements  Query processing based on condition Database Connectivity Database Operation With GUI Import/Export Database
Post a Comment
Read more

SCRIPT CODE FOR VALIDATION

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>form</title> <style type="text/css"> <!-- .style1 {color: #FF0000} --> </style> <script> function valid() { tname=document.frm.name.value; teid=document.frm.email.value; tmno=document.frm.phone.value; tmsg=document.frm.comment.value; if(tname=="") { alert("Pls. Fill Name"); document.frm.name.focus(); return false; } else if(teid=="") { alert("Pls. Fill Email"); document.frm.email.focus(); return false; } else if(tmno=="") { alert("Pls. Fill Mobile no"); document.frm.phone.focus(); return false; } else if(isNaN(tmno)) { alert(...
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