moddatabase.bas

本程序源码是由vb编写的

Attribute VB_Name = "modDatabase"

Public Function GetUnitName(sU As String, sTable As String) As String

 '该供应商、与客户是否存在
 'sTable区分供应商还是客户
 
  sU = Trim(sU)
  
  If sU = "" Then Exit Function
  If InStr(1, sU, "'", vbTextCompare) Then Exit Function
  
  'dim Con as Database
  'Dim rRecord As Recordset
  Dim sSql As String
  
  '
  '    set con=opendatabase(condata,0,0,constr)
  'Set rRecord = New Recordset
      sSql = "Select  * From " & sTable & " Where UnitID='" & sU & "'"
  '    rRecord.Open sSql, Con, adOpenStatic, adLockPessimistic, adCmdText
  Dim Con As Database
  Dim rRecord As Recordset
  Set Con = OpenDatabase(ConData, 0, 0, ConStr)
  Set rRecord = Con.OpenRecordset(sSql, dbOpenDynaset)
    
   If rRecord.EOF Then
      '没有查找到时
       GetUnitName = ""
    Else
       GetUnitName = rRecord.Fields("UnitName")
  End If
      rRecord.Close
      Con.Close
      Set rRecord = Nothing
      Set Con = Nothing
      
End Function