Click here to Skip to main content
Rate this: bad
good
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
vb6-runtime-error-2147217900-(80040e14)
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) & "));"
Connection
rs.Open sql, Con, adOpenDynamic
If Not rs.EOF Then
Text3.Text = rs!investigation
Text4.Text = rs!rate
End If
rs.Close
Con.Close
 
Set Con = Nothing
End With
End Sub
Please help
Sarfaraz
Posted 3-Oct-12 4:43am
Edited 3-Oct-12 5:06am
RaisKazi32.9K
v2
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

80040e14 is an Access Syntax Error
 
http://www.mikesdotnetting.com/Article/76/80040E14-MS-Access-Syntax-Error-messages[^]
 
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 | :)
  Permalink  
Rate this: bad
good
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
  Permalink  

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

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 595
1 OriginalGriff 295
2 CPallini 210
3 PIEBALDconsult 150
4 Fredrik Bornander 140
0 OriginalGriff 5,835
1 Sergey Alexandrovich Kryukov 5,263
2 CPallini 4,750
3 George Jonsson 3,227
4 Gihan Liyanage 2,487


Advertise | Privacy | Mobile
Web03 | 2.8.140916.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