Upload data til mySQL database
HeySidder og river mig selv i håret. Jeg har et VBscript, som modtager data fra en måler og sætter dataene ind i celler. Så ville jeg gerne have de tal upload til en mySQL database.
Hvordan gør jeg det? Håber virkelig at der er nogen som kan jælpe...
Mit script til at hente data se sådan ud.
Sub GetData()
Port = 1
Cells(17, "E").value = "Opening the rh02 on COM" & Port
ok = rh02_open_unit(Port)
If ok Then
Cells(17, "E").value = "rh02 er åbnet"
Else
Cells(17, "E").value = "Kan ikke åbne rh02"
Exit Sub
End If
For i = 1 To 20
ticks = GetTickCount()
While GetTickCount() < ticks + 10000
DoEvents
Wend
ok = rh02_get_value(value, Port, 1, False)
If ok Then
Cells(i + 4, "A").value = value / 100
nav = Cells(i + 4, "A").value
Else
Cells(1 + 4, "A").value = "****"
End If
ok = rh02_get_value(value, Port, 2, False)
If ok Then
Cells(i + 4, "B").value = value / 100
Else
Cells(1 + 4, "B").value = "****"
End If
Call data_lagring
Next i
Call rh02_close_unit(Port)
Cells(17, "E").value = "lukker rh02 på COM" & Port
End Sub
