在数据库中插入字段值

2006-6-30 7:58:13　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'**************************************************
'[在数据库中插入字段值]
'函数名：InterTbValue
'作  用：创建数据表
'参  数：ConnStrs    ---- 数据库链接字串
'参  数：Tabnamestr  ---- 数据表名称
'参  数：CvArrstr    ---- 字段表 (写法： Fname1#Value|Fname2#Value|...) 最后一个不要写“|”
'参  数：SqlType     ---- Sql语句类型 (0 Access 1 Mssqlserver)
' Fname,Value 说明：字段名称,字段值
'返回值：如果插入成功返回 True 否则 False
'示  例：InterTbValue(basicDB(3),"cs","fa#t|fb#c|fc#n#")
'**************************************************
Public Function InterTbValue(ByVal ConnStrs,ByVal Tabnamestr,ByVal CvArrstr,ByVal SqlType)
  InterTbValue=False
  On Error GoTo 0
  On Error Resume Next
  Dim def_kh_l,def_kh_r,Filarray,Valuearray,Temparraya,Temparrayb,TempSqlStr1
  def_kh_l  =""
  def_kh_r  =""
  Temparraya=Split(CvArrstr,"|")
  For fai = LBound(Temparraya) To UBound(Temparraya)
      Temparrayb=Split(Temparraya(fai),"#")
      If (fai<> UBound(Temparraya)) Then
         Filarray  =Filarray & "[" & Temparrayb(0) & "],"
         Valuearray=Valuearray & "'" & Temparrayb(1) & "',"
      Else
         Filarray  =Filarray & "[" & Temparrayb(0) & "]"
         Valuearray=Valuearray & "'" & Temparrayb(1) & "'"
      End If
  Next
  TempSqlStr1="INSERT INTO [" & Tabnamestr & "] (" & Filarray & ") VALUES (" & Valuearray & ")"
  set fu1_Conn=server.createobject("ADODB.Connection")
  fu1_Conn.open ConnStrs
  fu1_Conn.Execute TempSqlStr1
  fu1_Conn.Close
  Set fu1_Conn=Nothing
  If Err.Number = 0 Then
     InterTbValue=True
  End If
  On Error GoTo 0
End Function

>> 相关文章