数据匹配问题

free1024

zpy2 发表于 2018-7-5 20:48
update 库存查询 set 件装数= (select 配送规格 from 拆零商品明细 where 库存查询.商品编码=拆零商品明细. ...

能给下完整的代码吗？，SQL不是很懂。

zpy2

free1024 发表于 2018-7-6 11:59
能给下完整的代码吗？，SQL不是很懂。

<?php


function update_table(){

$file='excel.db';

$dbh= new PDO('sqlite:'.$file);
$tableName="库存查询";
$tableName2="拆零商品明细";


$sql="update $tableName";
/*$sql.=" set  件装数= (select 配送规格 from $tableName2 where $tableName.商品编码=$tableName2.商品编码)";*/
$sql.=" set  件装数=(case when (select 配送规格 from $tableName2 where $tableName.商品编码=$tableName2.商品编码) is null then $tableName.件装数 else (select 配送规格 from $tableName2 where $tableName.商品编码=$tableName2.商品编码) end) ";

$sql.=';';

print_r($sql);
//die();
$result=$dbh->query($sql);
//var_dump($result);
//$db=null;


}
update_table();

?>

free1024

zpy2 发表于 2018-7-6 12:04

老师，这是VBA用法吗？没看明白。。。

zpy2

free1024 发表于 2018-7-6 14:13
老师，这是VBA用法吗？没看明白。。。

是php的，不是vba

free1024

看见星光 发表于 2018-7-5 15:34

老师，能不能实现2个表相同编码配送规格更新到库存查询表中的件装数中，不相同的编码库存查询表中件装数维持不变？

free1024

zpy2 发表于 2018-7-6 14:18
是php的，不是vba

老师，我是想在这个表中实现更新呢？

lenghonghai601

1. Sub test()
   
2. Dim d As Object, arr, brr, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     d(brr(i, 1)) = brr(i, 9)
   
8. Next i
   
9. For i = 2 To UBound(arr)
   
10.     If d.exists(arr(i, 2)) Then
    
11.         arr(i, 17) = d(arr(i, 2))
    
12.     End If
    
13. Next i
    
14. Sheet1.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
15. End Sub

复制代码

zpy2

free1024 发表于 2018-7-6 14:20
老师，我是想在这个表中实现更新呢？

导入到sqlite数据库

zpy2

最好是直接去数据库操作，导入导出也要二步

lenghonghai601

1. Sub test()
   
2. Dim cnn As Object, sql
   
3. Set cnn = CreateObject("adodb.connection")
   
4. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
5. sql = "update ([库存查询$] as a) left join ([拆零商品明细$] as b) on a.商品编码=b.商品编码 set a.件装数=b.配送规格"
   
6. cnn.Execute (sql)
   
7. cnn.Close
   
8. End Sub
   
9. 更新查询，新学会的，今天收获不错。

复制代码