Sample Database Connection using ADODB in VB 6.0

‘First Create A Database Connection, Use A Module For DBConnection

Public db As ADODB.Connection

Public Sub DBConnection()

Set db = New ADODB.Connection

db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Persist Security Info=False”
‘For Password Protected Database
‘ db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Jet OLEDB:Database Password=yourPassword;”

End Sub

Advertisements

Show Crystal Report Using VB 6.0 and Access Database

 

Write this code in VB6.0

Private Sub Command1_Click()

CrystalReport1.WindowState = crptMaximized
CrystalReport1.DiscardSavedData = True
CrystalReport1.ReportFileName = “DatabasePath”
CrystalReport1.DataFiles(0) = “ReportPath”

If you want to pass value from vb6.0 to Crystal Report

‘CrystalReport1.Formulas(0) = “FDate='” & fromDate & “‘”

Optional If you use password protected database
‘CrystalReport1.Password = Chr$(10) & “sanjoy-pakiza”

Optional If you use Selection Formula
‘CrystalReport1.SelectionFormula = “{tblEmployeePersonalInfo.EID}=” &  1
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.Action = 1

End Sub

Excel Reading Using ADO and ACE.ADO VB6.o

Reading Excel Cell

Private Sub cmdRead_Click()

Dim xlApp As Excel.Application

Dim wb As Workbook

Dim ws As Worksheet

Dim var As Variant

Set xlApp = New Excel.Application

Set wb = xlApp.Workbooks.Open(cPath)

Set ws = wb.Worksheets(“Sheet1”) ‘Specify your worksheet name

‘    varName = ws.Range(“A2”).Value

‘    varSalary = ws.Range(“B2”).Value

‘    Text1.Text = varName

‘    Text2.Text = varSalary

‘    or

varName = ws.Cells(3, 1).Value

varSalary = ws.Cells(3, 2).Value

Text1.Text = varName

Text2.Text = varSalary

wb.Close

xlApp.Quit

Text1.Text = varName

Text2.Text = varSalary

Set ws = Nothing

Set wb = Nothing

Set xlApp = Nothing

End Sub

Continue reading

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

Featured

‘——————————————————————-

‘ 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]

Access Database Connecion and Add Edit Delete Using Vb6.0

‘First Create A Database Connection, Use A Module For DBConnection

Public db As ADODB.Connection

Public Sub DBConnection()

Set db = New ADODB.Connection

db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Persist Security Info=False”

‘    db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sample Code\SampleDB.mdb;Jet OLEDB:Database Password=yourPassword;”

End Sub

‘ Code Developed By :

‘ Sanjoy Debnath. mail:s4sanjoy@gmail.com

‘——————————————————————-

‘ Instraction For Safe Project Load

‘ Add Microsoft ADO Data Control 6.0 (OLEDB) Components Your Project

‘——————————————————————-

Dim rst As ADODB.Recordset

Private Sub Form_Load()

‘Open Database Connection

Call DBConnection

End Sub

Private Sub cmdAdd_Click()

Set rst = New ADODB.Recordset

rst.Open “select * from tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

rst.AddNew

rst(“SerialNo”) = 1

rst(“Date”) = #6/25/2010#

rst(“Name”) = “Mr.ABC”

rst.Update

rst.Close

MsgBox “One Row Added”

End Sub

Private Sub cmdUpdate_Click()

Set rst = New ADODB.Recordset

rst.Open “UPDATE tblSample SET tblSample.SerialNo = 2, tblSample.[Date] = #6/28/2010#, tblSample.Name = ‘Mr. XYZ’ WHERE tblSample.SerialNo=” & 1, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “One Row Updated”

End Sub

Private Sub cmdDelete_Click()

‘Using Delete Condition

‘This Line Delete Selected Row

Set rst = New ADODB.Recordset

rst.Open “Delete * From tblSample Where SerialNo=” & 2, db, adOpenStatic, adLockOptimistic, adCmdText

MsgBox “Delete Successfull”

‘This Line Delete All RecordFrom tblSample

‘rst.Open “Delete * From tblSample”, db, adOpenStatic, adLockOptimistic, adCmdText

End Sub

Download Sample Code