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

OOP IN VB 6.0

Visual Basic 6.0 supports object-oriented language elements and has support for objects distributed in libraries.   Object Oriented Programming is quite simple and provides way to modularize program by creating partition memory area for both data & function than can be used as template for creating copies of such module. In the world of OOP , you break a problem down into small parts and solve them individually. OOP is good for large-scale programming - As your code grows large, there are going to be more and more procedures/functions to your program, and your code is going to be so cluttered that one more look at it, you'd scream. Class In Visual Basic 6.0, a class is defined in a class module. A single class module is stored in a special type of file that has a .cls file extension. In Visual Basic 6.0, the class   Initialize   event handler named   Class_Initialize   is used to execute code that needs to be executed at the moment that an...
Post a Comment
Read more

SELECT | INSERT | UPDATE | DELETE CODE IN VB.NET WITH AUTO INCREMENT CONCEPT

Database.vb Imports System.Data.SqlClient Public Class Database     Dim con As New SqlConnection( "Data Source=G20;Initial Catalog=Me;Integrated Security=True" )     Public Sub cnopen()         If con.State = ConnectionState.Open Then             con.Close()         End If         con.Open()     End Sub     Public Sub cnclose()         If con.State <> ConnectionState.Closed Then             con.Close()         End If     End Sub     Public Function Displaygrid( ByVal query As String ) As DataTable         Dim dt As N...
Post a Comment
Read more