SQL in ACCESS and VB6

[OldSchool]

PLS.... Help!!!
--------------------------------------------------------------------------------

hi commnunity

i have problem with sql,
i have created a table in Access Named TABLE1 in TABLE1 i have EmployeeNumber, Section, Posotion;

i assigned EmployeeNumber as text1.text
Section as text2.text
Posotion as text3.text
i have buttons name ADDrecord,

here is my code:

Private Sub Command1_Click()
Dim EmployeeNumber As String
Dim Section As String
Dim Postion As String
 
Dim strSQL As String
Text1.Text = EmployeeNumber
Text2.Text = Section 
Text3.Text = Position
 
strSQL = "INSERT INTO TABLE1 (EmployeeNumber, Section, Position) " & _
"VALUES('" & [EmployeeNumber] & "','" & [Section] & _
"'," & [Position] & ")"
Adodc1.RecordSource = strSQL
Adodc1.Recordset.Save
Adodc1.Refresh
 
 
 
End Sub
 
 
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Maan\My Documents\db4.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM Table1"
End Sub

is this Correct? pls.. make an example for me...


thank you in advance

Julius

--------------------------------------------------------------------------------

[MMcCarthy]

Try this ...

Private Sub Command1_Click()
Dim EmployeeNumber As String
Dim Section As String
Dim Postion As String
Dim strSQL As String
 
' Wrong way around Julius, should be
   EmployeeNumber = Text1.Text
   Section = Text2.Text
   Position = Text3.Text
 
' no square brackets around EmployeeNumber, Section or Position
' as these are variables and not field or control names.
   strSQL = "INSERT INTO TABLE1 (EmployeeNumber, Section, Position) " & _
   "VALUES ('" & EmployeeNumber & "','" & Section & "','" & Position & "')"
 
   DoCmd.RunSQL strSQL
 
Adodc1.RecordSource = strSQL
Adodc1.Recordset.Save
Adodc1.Refresh
 
End Sub
 

Mary

[OldSchool]

Try this ...

Private Sub Command1_Click()
Dim EmployeeNumber As String
Dim Section As String
Dim Postion As String
Dim strSQL As String
 
' Wrong way around Julius, should be
   EmployeeNumber = Text1.Text
   Section = Text2.Text
   Position = Text3.Text
 
' no square brackets around EmployeeNumber, Section or Position
' as these are variables and not field or control names.
   strSQL = "INSERT INTO TABLE1 (EmployeeNumber, Section, Position) " & _
   "VALUES ('" & EmployeeNumber & "','" & Section & "','" & Position & "')"
 
   DoCmd.RunSQL strSQL
 
Adodc1.RecordSource = strSQL
Adodc1.Recordset.Save
Adodc1.Refresh
 
End Sub
 

Mary

Thans mary, but there an erro about Refresh, well anyway i'll try to fix eat, but if i cant , may be i'll go to you ... thanks Godbless you

julius

[MMcCarthy]

Thans mary, but there an erro about Refresh, well anyway i'll try to fix eat, but if i cant , may be i'll go to you ... thanks Godbless you

julius

Try replacing Refresh with Requery