bskotu555
Active Member
B4A:
ar=ReadFile(Dir,FileName) '转成二进制
Dim cx As String = phone.GetSettings ("android_id")'获取设备ID
Dim tx As String=EditText1.Text'价格
Dim tt As String=DateTime.Date(DateTime.Now)'时间
sqlstr = "insert into 记录表(设备ID,账单图片,账单价格,记录日期) values('" & cx & "','" & ar & "','" & tx & "','" & tt & "')"
Starter.Mysql_Jdbc.ExecNonQuery(sqlstr)