Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
Set rs2 = New ADODB.Recordset rs2.Open "select * from company_name", db, adOpenKeyset, adLockBatchOptimistic rs2.AddNew If pdfpath <> "" Then Set pdffile = New ADODB.Stream pdffile.Type = adTypeBinary pdffile.Open pdffile.LoadFromFile pdfpath rs2.Fields("pdf") = pdffile.Read rs2!co_no = Val(co_no.Text) rs2!co_name = co_name.Text ''' pdffile.Close Set pdffile = Nothing rs2.Update Set rs2 = Nothing … 
|