论坛 › 已解决问题区 › （已解决）数据库问题

feicuiboy 发表于 2010-7-1 01:15:35

（已解决）数据库问题

本帖最后由 feicuiboy 于 2010-7-3 22:05 编辑

问题是
$addfld.Execute("insert into "& $tabname &"("&$field&") values('"$data"')")
这里的引号问题，帮俺看看

运行提示如下:


dim $mdb_data_path, $mdb_data_pwd,$tabname,$field_1,$data_1,$i ;注意数组3 其实只用到数组$field,$data和$field,$data

$mdb_data_path="data.mdb"
$tabname="huosai"

accesswrite($mdb_data_path, $mdb_data_pwd,$tabname,1)


func accesswrite($mdb_data_path, $mdb_data_pwd,$tabname,$i);用法accesswrite(数据库地址,数据库密码，表名，字段名数组，需要录入的数据数组),数组从1开始计数好了
      dim $field[$i+1],$data[$i+1]
      for $mm=0 to $i-1
      $field[$mm]="A"&$mm; 表名
      $data[$mm]=$mm+1 ;读取数据
   next

      $addfld = ObjCreate("ADODB.Connection") ;设置数据库连接组件
      $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd);打开数据库，;$mdb_data_path数据库路径      $mdb_data_pwd数据库密码   
      if $i=1 then
                $addfld.Execute("insert into "& $tabname &"("&$field&") values('"$data"')")
                $addfld.close
      ElseIf $i>1 then
                $fieldtotal=$field
                $Datatotal="'"&$data&"'"
      for $accesswrite_number=1 to $i-1   ;循环读取字段及相应的 数据并写入,从数组【1】开始至N数组
            $fieldtotal&=","&$field[$accesswrite_number] ;循环读取字段总数
                $Datatotal&=","&"'"&$data[$accesswrite_number]&"'"   ;读取数据总数
                next
                $addfld.Execute("insert into "& $tabname &"("$fieldtotal") values("$Datatotal")")
                $addfld.close
      else
                msgbox("","出错啦","数据库函数出错，请检查格式")
                EndIf
EndFunc

MakeFire 发表于 2010-7-1 09:10:11

帮不上忙，还得问问，内置INI是怎么弄的。

feicuiboy 发表于 2010-7-3 22:04:09

采用这个即可，原来已有人编写了函数，
方法就是
采用_accessAddRecord($adSource, $adTable, $rData, $adCol = 0)
就可以写入数据库了，已解决，请斑竹移动，谢谢

查看完整版本: （已解决）数据库问题