我在一个excel电子表格中有两列数据,我想将其存储在MySQL DB(目前本地托管)上。
我将我的电子表格转换成JSON字符串,我通过XMLHTTP发送到PHP代码。下面是我的VBA代码:
Sub sendjson()
Dim json As String
Dim filed1 As String
Dim i As Integer
Dim j As Integer
Dim data As String
Worksheets("param").Range("C1").Select
data = "{" + Chr(34) + "data" + Chr(34) + ":["
j = 2
Do While Not (IsEmpty(ActiveSheet.Cells(j, 3)))
j = j + 1
Loop
i = 2
Do While Not (IsEmpty(ActiveSheet.Cells(i, 3)))
If i < j - 1 Then
data = data + ActiveSheet.Cells(i, 3) + ","
Else
data = data + ActiveSheet.Cells(i, 3) + "]}"
End If
i = i + 1
Loop
Worksheets("param").Range("D1").Value = data
json = data
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "POST", "http://localhost/test/jsontomysql.php", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send ("field1=" & json)
Set objHTTP = Nothing
End Sub
下面是jsontomysql.php代码:
<?php
try
{
$bdd = new PDO('mysql:host=localhost;dbname=test', 'root', '');
}
catch(Exception $e)
{
die('Erreur : '.$e->getMessage());
}
$data = json_decode($json);
foreach ($data as $name => $value) {
foreach ($value as $entry){
$req = $bdd->prepare('INSERT INTO param (tck, value) VALUES(:tck, :value)');
$req->execute(array(
':tck'=>$entry->tck,
':value'=>$entry->value
));
}
}
?>
和我的MySQL数据库有以下结构:
参数{tck (VARCHAR255)价值(真正的)}
当我运行代码时,什么都没有发生。我很确定这个问题是围绕:$data = json_decode($json);
为了让事情变得更容易,我直接复制JSON字符串在我的php代码,如下所示:
<?php
try
{
$bdd = new PDO('mysql:host=localhost;dbname=test', 'root', '');
}
catch(Exception $e)
{
die('Erreur : '.$e->getMessage());
}
//$phpArray = json_decode($_POST['field1']);
$data = '{
"u1":{"tck":"EUSA1 Curncy","value":0,005},
"u2":{"tck":"EUSA2 Curncy","value":0,0049},
"u3":{"tck":"EUSA3 Curncy","value":0,0048},
"u4":{"tck":"EUSA4 Curncy","value":0,0047},
"u5":{"tck":"EUSA5 Curncy","value":0,0046},
"u6":{"tck":"EUSA6 Curncy","value":0,0045},
"u7":{"tck":"EUSA7 Curncy","value":0,0044},
"u8":{"tck":"EUSA8 Curncy","value":0,0043},
"u9":{"tck":"EUSA9 Curncy","value":0,0042}
}';
$phpArray = json_decode($data, true);
foreach ($phpArray as $key => $value) {
foreach ($value as $entry) {
$req = $bdd->prepare('INSERT INTO param (tck, value) VALUES(:tck, :value)');
$req->execute(array(
':tck'=>$entry->tck,
':value'=>$entry->value
));
}
}
?>
似乎我在第一个foreach循环的第26行有一个错误…
Warning: Invalid argument supplied for foreach() in C:'wamp'www'finance'jsontomysql.php on line 26
编辑:
问题必须在VBA和PHP之间,因为,当我这样做时,SQL DB更新得很好:
<?php
try
{
$bdd = new PDO('mysql:host=localhost;dbname=test', 'root', '');
}
catch(Exception $e)
{
die('Erreur : '.$e->getMessage());
}
//$phpArray = json_decode($_POST['field1']);
$data = '{"u1":{"tck":"EUSA1 Curncy","value":0.005},"u2":{"tck":"EUSA2 Curncy","value":0.0049},"u3":{"tck":"EUSA3 Curncy","value":0.0048},"u4":{"tck":"EUSA4 Curncy","value":0.0047},"u5":{"tck":"EUSA5 Curncy","value":0.0046},"u6":{"tck":"EUSA6 Curncy","value":0.0045},"u7":{"tck":"EUSA7 Curncy","value":0.0044},"u8":{"tck":"EUSA8 Curncy","value":0.0043},"u9":{"tck":"EUSA9 Curncy","value":0.0042}}';
var_dump($data);
$phpArray = json_decode($data, true);
var_dump($phpArray);
foreach ($phpArray as $u) {
$req = $bdd->prepare('INSERT INTO param (tck, value) VALUES(:tck, :value)');
$req->execute(array(
':tck'=>$u['tck'],
':value'=>$u['value']
));
}
?>
有什么问题吗?谢谢你
您正在调用您要发布的field1
字段,因此该行可能必须是这样的:
$data = json_decode($_POST['field1']);
你还应该把你的prepare语句移出循环;你只需要准备一次。
您是否查看了json_decode($json)实际输出的内容?你是否将数据以你所期望的能够迭代它的形式返回?
简单地尝试执行print_r($json);调试输出作为快速验证。
显示json_decode失败。在我的测试中,这是因为你的"值"没有引号。
的例子:
<?php
$data = '{"u1":{"tck":"EUSA1 Curncy","value":"0,005"},"u2":{"tck":"EUSA2 Curncy","value":"0,0049"},"u3":{"tck":"EUSA3 Curncy","value":"0,0048"},"u4":{"tck":"EUSA4 Curncy","value":"0,0047"},"u5":{"tck":"EUSA5 Curncy","value":"0,0046"},"u6":{"tck":"EUSA6 Curncy","value":"0,0045"}}';
$phpArray = json_decode($data, true);
foreach ($phpArray as $key => $value) {
print "$key'n";
print "$value[tck]'n";
print "$value[value]'n";
print "'n'n";
}
?>
输出:
marks-mac-pro:~ mstanislav$ php data.php
u1
EUSA1 Curncy
0,005
u2
EUSA2 Curncy
0,0049
u3
EUSA3 Curncy
0,0048
u4
EUSA4 Curncy
0,0047
u5
EUSA5 Curncy
0,0046
u6
EUSA6 Curncy
0,0045
我终于找到了:-)。问题出在发送对象和用于我的数字的分隔符上。
在我的Excel电子表格中将","转换成"."之后,我必须弄清楚发送vba对象的问题。
工作码如下:
VBA代码:(将数据转换为JSON字符串并将字符串发送到我的PHP页面)
Sub sendjson()
Dim i As Integer
Dim j As Integer
Dim data As String
Worksheets("param").Range("D1").Select
data = "{"
j = 2
Do While Not (IsEmpty(ActiveSheet.Cells(j, 4)))
j = j + 1
Loop
i = 2
Do While Not (IsEmpty(ActiveSheet.Cells(i, 4)))
If i < j - 1 Then
data = data + ActiveSheet.Cells(i, 4) + ","
Else
data = data + ActiveSheet.Cells(i, 4) + "}"
End If
i = i + 1
Loop
Worksheets("param").Range("E1").Value = data
'data --> php
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
serverURL = "http://localhost/finance/jsontomysql.php"
objHTTP.Open "POST", serverURL, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send ("field1=" & data)
Set objHTTP = Nothing
End Sub
My PHP Code &MySQL查询:
<?php
try
{
$bdd = new PDO('mysql:host=localhost;dbname=test', 'root', '');
}
catch(Exception $e)
{
die('Erreur : '.$e->getMessage());
}
// $file = fopen("test.txt","w");
// echo fwrite($file,$_POST['field1']);
// fclose($file);
$data = $_POST['field1'];
$phpArray = json_decode($data, true);
foreach ($phpArray as $u) {
$req = $bdd->prepare('INSERT INTO param (tck, value) VALUES(:tck, :value)');
$req->execute(array(
':tck'=>$u['tck'],
':value'=>$u['value']
));
}
?>
为了确保字符串被PHP代码接收,我将结果写在一个.txt文件中(=我代码中的注释部分)。
现在,MySQL数据库很好地将值插入数据库。
谢谢大家的帮助。