Re: [belajar-access] Tolooong: ODBC--update on a linked table 'namatabel' failed

Mon, 04 Aug 2008 21:11:55 -0700

Saya sendiri juga belum mahir di SQL, kalo saya liat running SQL pakai Docmd.runsql pakai DAO connection ? dan saya juga liat koq kayanya bentuk SQLnya ribet ya sql= sql + ..., sudah coba debug ? 

Maaf kalo tidak membantu

Yohanes Kurniawan wrote:


Teman-teman, ini syntax-nya:
If DCount("EmployeeNo", "EmployeeEmployment", "EmployeeNo='" & Me.EmployeeNo & "'") = 0 Then
SQL = "insert into EmployeeEmployment (EmployeeNo,JointDate,FinishDate,Reason,EmployeeCategoryCode"
SQL = SQL + ",FileNo,EmployeeTypeCode,TermOfProbationID,TermOfContractID,DueDateOfContract"
SQL = SQL + ",MarriageStatusID,MarriageDate,NoOfChildren,BadgeNo,PointOfHire,Occupation_RPTKA"
SQL = SQL + ",JamsostekYN,JamsostekNo,HeadYN,OfficeEmailAddress,Remarks,MarriageStatusID2"
SQL = SQL + ",NoOfChildren2,TaxNo,OrgPositionID,OrgReportTo,SalaryGroupID,JobDescInd"
SQL = SQL + ",IDP,LOA,JobProfile,JobAnalyse,JobDescIndFN,JobDescEngFN,IDPFN,LOAFN"
SQL = SQL + ",JobProfileFN,JobAnalyseFN,EmpSkill,EmpAttitude,EmpRecommended) "
SQL = SQL + "values('" & EmployeeNo & "', #" & JointDate & "#,#" & FinishDate & "#,"
SQL = SQL + "'" & Reason & "','" & EmployeeCategoryCode & "','" & FileNo & "',"
SQL = SQL + "'" & EmployeeTypeCode & "','" & TermOfProbationID & "','" & TermOfContractID & "',"
SQL = SQL + "#" & DueDateOfContract & "#,'" & MarriageStatusID & "',#" & MarriageDate & "#,"
SQL = SQL + "'" & NoOfChildren & "','" & BadgeNo & "','" & PointOfHire & "',"
SQL = SQL + "'" & Occupation_RPTKA & "','" & JamsostekYN & "','" & JamsostekNo & "',"
SQL = SQL + "'" & HeadYN & "','" & OfficeEmailAddress & "','" & Remarks & "',"
SQL = SQL + "'" & MarriageStatusID2 & "','" & NoOfChildren2 & "','" & TaxNo & "',"
SQL = SQL + "'" & OrgPositionID & "','" & OrgReportTo & "','" & SalaryGroupID & "',"
SQL = SQL + "'" & JobDescInd & "','" & IDP & "','" & LOA & "','" & JobProfile & "',"
SQL = SQL + "'" & JobAnalyse & "','" & JobDescIndFN & "','" & JobDescEngFN & "',"
SQL = SQL + "'" & IDPFN & "','" & LOAFN & "','" & JobProfileFN & "','" & JobAnalyseFN & "',"
SQL = SQL + "'" & EmpSkill & "','" & EmpAttitude & "','" & EmpRecommended & "')" 

    Else

        SQL = "Update EmployeeEmployment set "

        SQL = SQL + "JointDate = #" & JointDate & "#"

        SQL = SQL + ",FinishDate = #" & FinishDate & "#"

        SQL = SQL + ",Reason = '" & Reason & "'"
SQL = SQL + ",EmployeeCategoryCode = '" & EmployeeCategoryCode & "'" 

        SQL = SQL + ",FileNo = '" & FileNo & "'"

        SQL = SQL + ",EmployeeTypeCode = '" & EmployeeTypeCode & "'"

        SQL = SQL + ",TermOfProbationID = '" & TermOfProbationID & "'"

        SQL = SQL + ",TermOfContractID = '" & TermOfContractID & "'"

        SQL = SQL + ",DueDateOfContract = #" & DueDateOfContract & "#"

        SQL = SQL + ",MarriageStatusID = '" & MarriageStatusID & "'"

        SQL = SQL + ",MarriageDate = #" & MarriageDate & "#"

        SQL = SQL + ",NoOfChildren = '" & NoOfChildren & "'"

        SQL = SQL + ",BadgeNo = '" & BadgeNo & "'"

        SQL = SQL + ",PointOfHire = '" & PointOfHire & "'"

        SQL = SQL + ",Occupation_RPTKA = '" & Occupation_RPTKA & "'"

        SQL = SQL + ",JamsostekYN = '" & JamsostekYN & "'"

        SQL = SQL + ",JamsostekNo = '" & JamsostekNo & "'"

        SQL = SQL + ",HeadYN = '" & HeadYN & "'"

        SQL = SQL + ",OfficeEmailAddress = '" & OfficeEmailAddress & "'"

        SQL = SQL + ",Remarks = '" & Remarks & "'"

        SQL = SQL + ",MarriageStatusID2 = '" & MarriageStatusID2 & "'"

        SQL = SQL + ",NoOfChildren2 = '" & NoOfChildren2 & "'"

        SQL = SQL + ",TaxNo = '" & TaxNo & "'"

        SQL = SQL + ",OrgPositionID = '" & OrgPositionID & "'"

        SQL = SQL + ",OrgReportTo = '" & OrgReportTo & "'"

        SQL = SQL + ",SalaryGroupID = '" & SalaryGroupID & "'"

        SQL = SQL + ",JobDescInd = '" & JobDescInd & "'"

        SQL = SQL + ",IDP = '" & IDP & "'"

        SQL = SQL + ",LOA = '" & LOA & "'"

        SQL = SQL + ",JobProfile = '" & JobProfile & "'"

        SQL = SQL + ",JobAnalyse = '" & JobAnalyse & "'"

        SQL = SQL + ",JobDescIndFN = '" & JobDescIndFN & "'"

        SQL = SQL + ",JobDescEngFN = '" & JobDescEngFN & "'"

        SQL = SQL + ",IDPFN = '" & IDPFN & "'"

        SQL = SQL + ",LOAFN = '" & LOAFN & "'"

        SQL = SQL + ",JobProfileFN = '" & JobProfileFN & "'"

        SQL = SQL + ",JobAnalyseFN = '" & JobAnalyseFN & "'"

        SQL = SQL + ",EmpSkill = '" & EmpSkill & "'"

        SQL = SQL + ",EmpAttitude = '" & EmpAttitude & "'"
SQL = SQL + ",EmpRecommended = '" & Me.EmpRecommended & "' where EmployeeNo='" & Me.EmployeeNo & "'" 

    End If

    SQL = Replace(Replace(SQL, "##", "Null"), "''", "Null")

    SQL = Replace(SQL, "'True'", "1")

    SQL = Replace(SQL, "'False'", "0")

    'CurrentDb.Execute SQL

    DoCmd.RunSQL (SQL)


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

*From*





---------------------------------------------------------------------------
This message contains confidential information and is intended only for the 
individual named. If you are not the named addressee you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this e-mail by mistake and delete 
this e-mail from your system. E-mail transmission cannot be guaranteed to be 
secure or error-free as information could be intercepted, corrupted, lost, 
destroyed, arrive late or incomplete, or contain viruses. The sender therefore 
does not accept liability for any errors or omissions in the contents of this 
message, which arise as a result of e-mail transmission. If verification is 
required please request a hard-copy version.

Kirim email ke