Click here to Skip to main content
Rate this: bad
Please Sign up or sign in to vote.
See more: VB
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
Posted 3-Oct-12 4:43am
Edited 3-Oct-12 5:06am
Rate this: bad
Please Sign up or sign in to vote.

Solution 1

80040e14 is an Access Syntax Error[^]
Possibly your use of table and column names being the same (investigation.investigation), which you should avoid really - just confuses things. Try renaming your column to something else.

On a sidenote, it's 2012 - you can download Visual Studio Express, SQL Express, all for free & have some decent development tools! Why are you hurting yourself with VB6 and Access, the most painful of pairings. Smile | :)
Rate this: bad
Please Sign up or sign in to vote.

Solution 2

The solution is here
sql = "select Investigation.Investigation, Investigation.rate " & _
"from Investigation WHERE (((Investigation.Investigation) = '" & Form1.List1.SelectedItem.Text & "'));"

Thank you all guys

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 369
1 Sergey Alexandrovich Kryukov 284
2 Maciej Los 260
3 George Jonsson 195
4 King_Fisher 160
0 Sergey Alexandrovich Kryukov 10,899
1 Maciej Los 5,594
2 OriginalGriff 5,544
3 CPallini 3,819
4 BillWoodruff 3,579

Advertise | Privacy | Mobile
Web03 | 2.8.141030.1 | Last Updated 4 Oct 2012
Copyright © CodeProject, 1999-2014
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