Click here to Skip to main content
12,763,360 members (26,685 online)

Insert selected records to another table in vb6 and access

sarfarazbhat asked:

Open original thread
Dear All,

I am facing a problem in vb6 and access very badly.

I have been developing a small application in VB6 and access. I want to select 2 fields from table A (which has only two fields viz investigation and rate) and insert the selected fields from table A to table B based on a condition from table A.

I have written the following code but i am getting the following error
The code is as under
Private Sub Command4_Click()

With Form1.list1.ListItems(Form1.list1.SelectedItem.Index)
sql = "select investigation.investigation, investigation.rate" & _
"from investigation where(((investigation.investigation)=" & (Form1.list1.SelectedItem.Text) & "));"
rs.Open sql, Con, adOpenDynamic
If Not rs.EOF Then
Text3.Text = rs!investigation
Text4.Text = rs!rate
End If

Set Con = Nothing
End With
End Sub

Please help
Tags: VB


When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the The Code Project Open License (CPOL).

Advertise | Privacy | Mobile
Web02 | 2.8.170217.1 | Last Updated 26 Mar 2009
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100