everyone can you traslate this to SQL... instead of ADDnew use INSERT
Private Sub Command1_Click( )
With Adodc1.Recordse t
.AddNew
!fldIDNUM = Text1
!fldDATE = tim3
!fldTIME = Time
!Name = Text2
!Position = Text3
!ShiftCode = Text4
!Line = Text5
!UpdatingOffice r = Text6
.Update
.Requery
End With
Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Adodc1.Connecti onString = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Docum ents and Settings\Maan\D esktop\AMKOR Turnstyle\db1.m db;Persist Security Info=False"
Adodc1.RecordSo urce = "SELECT * FROM Table1"
Adodc1.Refresh
End Sub>
Private Sub Command1_Click( )
With Adodc1.Recordse t
.AddNew
!fldIDNUM = Text1
!fldDATE = tim3
!fldTIME = Time
!Name = Text2
!Position = Text3
!ShiftCode = Text4
!Line = Text5
!UpdatingOffice r = Text6
.Update
.Requery
End With
Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Adodc1.Connecti onString = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Docum ents and Settings\Maan\D esktop\AMKOR Turnstyle\db1.m db;Persist Security Info=False"
Adodc1.RecordSo urce = "SELECT * FROM Table1"
Adodc1.Refresh
End Sub>
Comment