home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD83337292000.psc / Calls2Queries.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-29  |  4.8 KB  |  123 lines
  1. Attribute VB_Name = "basCalls2Queries"
  2. Option Explicit
  3.  
  4. Public Function Exec_qry_del_Customers(ByVal varCustomerID As Variant) As Long
  5.  Dim strSQL As String
  6.  Dim objCmd As New ADODB.Command
  7.  
  8.     On Error GoTo PROC_ERR
  9.  
  10.     strSQL = "qry_del_Customers"
  11.     With objCmd
  12.         .Commandtext = strSQL
  13.         .Commandtype = adCmdStoredProc
  14.         Set .ActiveConnection = g_objCn
  15.  
  16.         .Parameters.Append .CreateParameter("pCustomerID", adVarWChar, adParamInput, 5, varCustomerID)
  17.     
  18.         .Execute Options:=adExecuteNoRecords
  19.     End With
  20.  
  21.     Set objCmd = Nothing
  22.  
  23.     Exec_qry_del_Customers = 0
  24.     Exit Function
  25. PROC_ERR:
  26.     Exec_qry_del_Customers = Err.Number
  27. End Function
  28.  
  29. Public Function Exec_qry_sel_Customers(ByVal varCustomerID As Variant, ByRef objRs As ADODB.Recordset) As Long
  30.  Dim strSQL As String
  31.  Dim objCmd As New ADODB.Command
  32.  
  33.     On Error GoTo PROC_ERR
  34.  
  35.     strSQL = "qry_sel_Customers"
  36.     With objCmd
  37.         .Commandtext = strSQL
  38.         .Commandtype = adCmdStoredProc
  39.         Set .ActiveConnection = g_objCn
  40.  
  41.         .Parameters.Append .CreateParameter("pCustomerID", adVarWChar, adParamInput, 5, varCustomerID)
  42.         objRs.Open objCmd
  43.     End With
  44.  
  45.     Set objCmd = Nothing
  46.  
  47.     Exec_qry_sel_Customers = 0
  48.     Exit Function
  49. PROC_ERR:
  50.     Exec_qry_sel_Customers = Err.Number
  51. End Function
  52.  
  53. Public Function Exec_qry_ins_Customers(ByVal varCustomerID As Variant, ByVal varCompanyName As Variant, ByVal varContactName As Variant, ByVal varContactTitle As Variant, ByVal varAddress As Variant, ByVal varCity As Variant, ByVal varRegion As Variant, ByVal varPostalCode As Variant, ByVal varCountry As Variant, ByVal varPhone As Variant, ByVal varFax As Variant) As Long
  54.  Dim strSQL As String
  55.  Dim objCmd As New ADODB.Command
  56.  
  57.     On Error GoTo PROC_ERR
  58.  
  59.     strSQL = "qry_ins_Customers"
  60.     With objCmd
  61.         .Commandtext = strSQL
  62.         .Commandtype = adCmdStoredProc
  63.         Set .ActiveConnection = g_objCn
  64.  
  65.         .Parameters.Append .CreateParameter("pCustomerID", adVarWChar, adParamInput, 5, varCustomerID)
  66.         .Parameters.Append .CreateParameter("pCompanyName", adVarWChar, adParamInput, 40, varCompanyName)
  67.         .Parameters.Append .CreateParameter("pContactName", adVarWChar, adParamInput, 30, varContactName)
  68.         .Parameters.Append .CreateParameter("pContactTitle", adVarWChar, adParamInput, 30, varContactTitle)
  69.         .Parameters.Append .CreateParameter("pAddress", adVarWChar, adParamInput, 60, varAddress)
  70.         .Parameters.Append .CreateParameter("pCity", adVarWChar, adParamInput, 15, varCity)
  71.         .Parameters.Append .CreateParameter("pRegion", adVarWChar, adParamInput, 15, varRegion)
  72.         .Parameters.Append .CreateParameter("pPostalCode", adVarWChar, adParamInput, 10, varPostalCode)
  73.         .Parameters.Append .CreateParameter("pCountry", adVarWChar, adParamInput, 15, varCountry)
  74.         .Parameters.Append .CreateParameter("pPhone", adVarWChar, adParamInput, 24, varPhone)
  75.         .Parameters.Append .CreateParameter("pFax", adVarWChar, adParamInput, 24, varFax)
  76.     
  77.         .Execute Options:=adExecuteNoRecords
  78.     End With
  79.  
  80.     Set objCmd = Nothing
  81.  
  82.     Exec_qry_ins_Customers = 0
  83.     Exit Function
  84. PROC_ERR:
  85.     Exec_qry_ins_Customers = Err.Number
  86. End Function
  87.  
  88. Public Function Exec_qry_upd_Customers(ByVal varCustomerID As Variant, ByVal varCompanyName As Variant, ByVal varContactName As Variant, ByVal varContactTitle As Variant, ByVal varAddress As Variant, ByVal varCity As Variant, ByVal varRegion As Variant, ByVal varPostalCode As Variant, ByVal varCountry As Variant, ByVal varPhone As Variant, ByVal varFax As Variant) As Long
  89.  Dim strSQL As String
  90.  Dim objCmd As New ADODB.Command
  91.  
  92.     On Error GoTo PROC_ERR
  93.  
  94.     strSQL = "qry_upd_Customers"
  95.     With objCmd
  96.         .Commandtext = strSQL
  97.         .Commandtype = adCmdStoredProc
  98.         Set .ActiveConnection = g_objCn
  99.  
  100.         .Parameters.Append .CreateParameter("pCustomerID", adVarWChar, adParamInput, 5, varCustomerID)
  101.         .Parameters.Append .CreateParameter("pCompanyName", adVarWChar, adParamInput, 40, varCompanyName)
  102.         .Parameters.Append .CreateParameter("pContactName", adVarWChar, adParamInput, 30, varContactName)
  103.         .Parameters.Append .CreateParameter("pContactTitle", adVarWChar, adParamInput, 30, varContactTitle)
  104.         .Parameters.Append .CreateParameter("pAddress", adVarWChar, adParamInput, 60, varAddress)
  105.         .Parameters.Append .CreateParameter("pCity", adVarWChar, adParamInput, 15, varCity)
  106.         .Parameters.Append .CreateParameter("pRegion", adVarWChar, adParamInput, 15, varRegion)
  107.         .Parameters.Append .CreateParameter("pPostalCode", adVarWChar, adParamInput, 10, varPostalCode)
  108.         .Parameters.Append .CreateParameter("pCountry", adVarWChar, adParamInput, 15, varCountry)
  109.         .Parameters.Append .CreateParameter("pPhone", adVarWChar, adParamInput, 24, varPhone)
  110.         .Parameters.Append .CreateParameter("pFax", adVarWChar, adParamInput, 24, varFax)
  111.     
  112.         .Execute Options:=adExecuteNoRecords
  113.     End With
  114.  
  115.     Set objCmd = Nothing
  116.  
  117.     Exec_qry_upd_Customers = 0
  118.     Exit Function
  119. PROC_ERR:
  120.     Exec_qry_upd_Customers = Err.Number
  121. End Function
  122.  
  123.