Fungsi kustom ASP, meniru fungsi domain DLookup di VBA
Penulis：Eve Cole
Waktu Pembaruan：2009-06-24 16:47:28
Fungsi dlookup(strFieldName, strTableName, strWhere, objConn)
'参考Akses VBA melalui Dlookup函数
'ObjConn', 'Adodb.connection', 'ObjConn', 'Adodb.connection'
Redupkan strsql
Redupkan rs
Setel rs = server.CreateObject("adodb.recordset")
'melakukan checksql() pada checksql()
strFieldName = checksql(strFieldName)
Jika strWhere <> "" Lalu
strWhere = " di mana " & strWhere
Akhiri Jika
strsql="pilih "&strfieldname&" dari "&strtablename&" " & strwhere
'debugstop strsql
Pada Kesalahan Lanjutkan Berikutnya
rs.Buka strsql, objConn, 1, 1
Jika Err <> 0 Lalu
respon.tulis Err.Deskripsi
respon.akhir()
Akhiri Jika
Jika rs.EOF Dan rs.BOF Lalu
pencarian = ""
Kalau tidak
'要调用一个自定义函数 NZ
'详细内容请参考 ACCESS VBA 帮助中的资料
dlookup = Nz(rs(strNamaBidang), "")
Akhiri Jika
rs.Tutup
Fungsi Akhir
