Kumpulkan kode efek khusus halaman web paling praktis!
Function Dlookup (StrfieldName, Strtablename, Strhere, ObjConn)
'Referensi Fungsi Dlookup di Access VBA
'Karena lingkungan yang berbeda, parameter objConn ditambahkan, dan adodb.connection secara langsung ditransfer
redup strsql
Redup
Set RS = Server.CreateObject ("ADODB.OldSet")
'Mari kita panggil fungsi Kustom Eksternal CheckSQL ()
StrfieldName = checksql (strfieldname)
Jika strwhere <> "" lalu
Str where = "where" & kuat
akhiri jika
Strsql = "pilih" & strfieldname & "dari" & strtablename & "" & strhere
'Debugstop Strsql
Pada kesalahan resume berikutnya
Rs.oopen strsql, objconn, 1, 1
Jika err <> 0 lalu
response.write err.descripting
response.end ()
akhiri jika
Jika rs.eof dan rs.bof maka
dlookup = "" "
kalau tidak
'Untuk memanggil fungsi kustom NZ
'Untuk detailnya, silakan merujuk ke informasi bantuan Access VBA
Dlookup = NZ (RS (RS (StrfieldName), "")
akhiri jika
Rs.close
fungsi akhir