（已解决）数据库问题

feicuiboy

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

运行提示如下:

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

$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[0]&") values('"$data[0]"')")
                $addfld.close
        ElseIf $i>1 then 
                $fieldtotal=$field[0]
                $Datatotal="'"&$data[0]&"'" 
        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

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

feicuiboy

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