• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Using ActiveX Data Controls(ADO), transfering the content(records) of one table to another, this wi

Using ActiveX Data Controls(ADO), transfering the content(records) of one table to another, this wi

Using ActiveX Data Controls(ADO), transfering the content(records) of one table to another, this will be a great program.... and it will help

Rate Using ActiveX Data Controls(ADO), transfering the content(records) of one table to another, this wi

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Victor Francisco Cajarito
'STI-College Caloocan Philippines(LAN Admin, Programmer)
'Email: [email protected]
    '[email protected]
    '[email protected]
'Transfering All records to a diffent Table Name
'*********
2
Private Sub Command1_Click()
Dim icounter As Integer
Dim dtart As Double, dfinish As Double
Dim pnlstatus As Panel
Static i As Integer

Set pnlstatus = Form1.StatusBar1.Panels(1)

dstart = Timer

Adodc1.Refresh
Adodc2.Refresh
On Error Resume Next
ProgressBar1.Visible = True
    pnlstatus.Text = "Transfering data please wait...."
    StatusBar1.Refresh
    ProgressBar1.Max = Val(Text1.Text)
For icounter = 1 To Val(Text1.Text)
    If icounter Mod 10 = 0 Then ProgressBar1.Value = icounter
Next icounter

pnlstatus.Text = "Transfer Complete...."
StatusBar1.Refresh
'transfer the record to new table
For i = 0 To Adodc1.Recordset.RecordCount
      Adodc2.Recordset.AddNew
      Adodc2.Recordset("EmpNum") = Adodc1.Recordset("Empnum")
      Adodc2.Recordset("EmpName") = Adodc1.Recordset("EmpName")
      Adodc1.Recordset.MoveNext
Next i
Adodc1.Refresh
Adodc2.Refresh
'delete the record after transfering
For i = 0 To Adodc1.Recordset.RecordCount
    Adodc1.Recordset.Delete
    Adodc1.Recordset.MoveNext
Next i
'end of deletion
dfinish = Timer
pnlstatus.Text = "Ready..."
ProgressBar1.Value = 0
ProgressBar1.Visible = False
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Dim icounter As Integer
Dim dtart As Double, dfinish As Double
Dim pnlstatus As Panel
Static i As Integer

Set pnlstatus = Form1.StatusBar1.Panels(1)

dstart = Timer

Adodc1.Refresh
Adodc2.Refresh
On Error Resume Next
ProgressBar1.Visible = True
    pnlstatus.Text = "Returning data please wait...."
    StatusBar1.Refresh
    ProgressBar1.Max = Val(Text1.Text)
For icounter = 1 To Val(Text1.Text)
    If icounter Mod 10 = 0 Then ProgressBar1.Value = icounter
Next icounter

pnlstatus.Text = "Return Complete...."
StatusBar1.Refresh
'transfer the record to new table
For i = 0 To Adodc2.Recordset.RecordCount
      Adodc1.Recordset.AddNew
      Adodc1.Recordset("EmpNum") = Adodc2.Recordset("Empnum")
      Adodc1.Recordset("EmpName") = Adodc2.Recordset("EmpName")
      Adodc2.Recordset.MoveNext
Next i
Form1.Adodc1.Refresh
Form1.Adodc2.Refresh
'delete the record after transfering
For i = 0 To Adodc2.Recordset.RecordCount
    Adodc2.Recordset.Delete
    Adodc2.Recordset.MoveNext
Next i
'end of deletion
dfinish = Timer
pnlstatus.Text = "Ready..."
ProgressBar1.Value = 0
ProgressBar1.Visible = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub