单片机与电脑数据库

㈠ RFID卡的信息通过单片机传入PC端后的信息怎么写入到mysql数据库中求高手

基本的数据库的操作。
你可以参考如下方式一步步来：
1、先参考mysql的编程的基本例子，按照最简单的方式实现固定数据（比如说字符串“12345678”），进行基本的插入、删除、查询等操作。当然这个前提是首先建立一个数据库。
2、第一步成功实现后，将你原来的模拟数据，替换成真实的数据，重新完成第一步的操作。
3、编写一个从PC端获取RFID数据的接口，真正实现数据的对接。

个人给你的建议：
1、不要求捷径，这样即使你能很快完成任务，但是也会没有什么收获。
2、数据库的操作不难，尤其是PC端的数据库，网上有大量的资源。
3、通过这个项目的锻炼，你不仅问题会解决，你以后分析问题、解决问题和搜索资料的能力都会大大提高。

㈡ 单片机采集的数据如何即时显示在电脑显示器上并存储

1、首先做一块电路板（或者买一块带USB通讯的开发板），将PIC32的USB通讯管脚D+、D-通过USB座子引出来连接到电脑上。

㈢ 单片机与数据库通信

既然是数据库，数据肯定比较多，应该借助上位机的海量存储能力和强大运算能力及专丰富的软件，最简单的方属法就是将单片机采集到的数据经过串口传到上位机，由上位机保存到EXCEl表格中，EXCEL表格就是数据库的一部分

㈣ 如何将单片机上的数据传输到电脑上

1.
通过max232串口。将单片机的数据通过rxd和txd与pc进行通信；
2.
其实你也可以通过下载线和串口助手（或者自己写上位机界面），上传数据；
3.
买一根usb转串口线，接到电脑usb接口上，上传数据也可以；
4.
可能还有其他方式。。。

㈤ 单片机课程设计需要运用到数据库知识吗

一般情况下,单片机课程设计与数据库没有任何关系的
除非你用单片机设计一个类似电表抄表设备,这个需要后台统计的,这个就要用数据库了
但这个应该超出课设的范围了,可以作为毕业设计了(若你就是学习单片机相关专业的)

㈥ 请问一下，我想学单片机编程，就是C语言，用不用学数据库还有就是数据库到底是什么用的啊

如果要涉及数据采集，并且上位机的程序也要自己写的话，要会数据库才行；
一般来说，学会用c语言编写单片机程序，不用会数据库。

㈦ 51单片机如何读取sql数据库

你需要做个个串口通讯，将单片机的数据上载到电脑端，电脑端要写一个上位机。可讲通讯过来的数据存入 sql server的数据库中

单片机端需要写串口程序，PC 端需要些上位机软件 VB可以写用MSComm1 控件
通讯例子如下

Dim i As Integer

Dim a As Integer
Dim t() As Byte

Private Sub Command1_Click()

If Command1.Caption = "打开串口" Then
'Shape1.Visible = True
Shape1.FillColor = &HFF&
Shape1.BackColor = &HFF&
Shape1.BorderColor = &HFF&

Command2.Enabled = True
Command3.Enabled = True
Command1.Caption = "关闭串口"
'MSComm1.CommPort = 1 '设定Com1口
MSComm1.CommPort = Combo1.Text '设定Com1口
If MSComm1.PortOpen = False Then
'MSComm1.Settings = "4800,N,8,1" '4800波特率,无校验,8位数据位,1位停止位
MSComm1.Settings = Combo2.Text & "," & Combo3.Text & "," & Combo4.Text & "," & Combo5.Text '4800波特率,无校验,8位数据位,1位停止位

MSComm1.InputLen = 1 '读取接收缓冲区的所有字符
MSComm1.InputLen = 5
MSComm1.InBufferSize = 5 '设置接收缓冲区为1024字节
MSComm1.OutBufferSize = 5 '设置发送缓冲区为512字节
MSComm1.SThreshold = 0 '不触发发送事件
MSComm1.RThreshold = 1 '每一个字符到接收缓冲区都触发接收事件
MSComm1.PortOpen = True '打开串口
End If
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '清空接收缓冲区
Dim temp() As Byte
Else
'Option2.Value = False
'Option1.Value = False
'Shape1.Visible = False
Shape1.BackColor = &H808080
Shape1.BorderColor = &H808080
Shape1.FillColor = &H808080

Command2.Enabled = False
'Command3.Enabled = False
MSComm1.PortOpen = False
Command1.Caption = "打开串口"

End If

End Sub

Private Sub Command2_Click()
'Command2.Enabled = False
'Option2.Value = False
'Option1.Value = False

'Shape2.Visible = False
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '清空接收缓冲区

't(0) = "255"

' MSComm1.Output = t

MSComm1.Output = Text2.Text
End Sub

Private Sub Command3_Click()
Text1.Text = ""

End Sub

Private Sub Command5_Click() '退出
End
End Sub

Private Sub Command6_Click()
Text2.Text = ""
End Sub

Private Sub Command7_Click()
If Command7.Value Then
'Command7.Visible = False
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command6.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Combo1.Visible = True
Combo2.Visible = True
Combo3.Visible = True
Combo4.Visible = True
Combo5.Visible = True

Text1.Visible = True
Text2.Visible = True
Frame1.Visible = True
Frame2.Visible = False
'Command3.Visible = False
'Option1.Value = False
Shape1.Visible = True

Else
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Text1.Visible = False
Text2.Visible = False
Frame1.Visible = False
Frame2.Visible = False
End If
End Sub

Private Sub Form_Load()

MSComm1.InBufferCount = 0 '清除发送缓冲区数据
MSComm1.OutBufferCount = 0 '清除接收缓冲区数据
ReDim t(0)
t(0) = "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
'Combo1.Text = "1"
Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "2400"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo3.AddItem "N"
Combo3.AddItem "O"
Combo3.AddItem "E"
Combo4.AddItem "8"
Combo4.AddItem "7"
Combo4.AddItem "6"
Combo5.AddItem "1"
Combo5.AddItem "2"
Combo5.AddItem "3"

End Sub

Private Sub MSComm1_OnComm()
Dim s1 As String
Dim s2 As String
Select Case MSComm1.CommEvent

Case comEventOverrun '数据丢失
Text_SEND.Text = "" '清空发送缓冲区
Text_RECV.Text = "" '清空接收缓冲区
Text_SEND.SetFocus
Exit Sub
Case comEventRxOver '接收缓冲区溢出
Text_SEND.Text = "" '清空发送缓冲区
Text_RECV.Text = "" '清空接收缓冲区
Text_SEND.SetFocus
Exit Sub
Case comEventTxFull '发送缓冲区已满
Text_SEND.Text = "" '清空发送缓冲区
Text_RECV.Text = "" '清空接收缓冲区
Text_SEND.SetFocus
Exit Sub
Case comEvReceive '接收字符数据
Dim Buffer As Variant
MSComm1.InputLen = 1
MSComm1.InputMode = comInputModeBinary '二进制传输
Buffer = MSComm1.Input
'Text1.Text = Buffer(0)
's2 = Buffer(1)

Text1.Text = Text1.Text & (Val(MSComm1.Input)) & " "

Case Else

End Select

End Sub

Private Sub Option1_Click()

End Sub

㈧ 单片机怎样把采集的数据上传到网站的数据库中

1、直接：单片机配以太网接口，移植个tcp/ip协议站，单片机直接登陆服务器上传数据；

2、间接：单片机通过串口、USB等其他接口把数据传给有以太网的模块或设备（如电脑），在传到服务器。

㈨ atmega16单片机能添加数据库吗

不可能，单片机资源有限，还得装一个嵌入式系统。我猜你想用单片机访问数数据库的内容。想做到这一步我知道的就是单片机做下位机，电脑做上位机，通过串口通信。这样，数据库在电脑里操作，把想要的数据通过上位机利用串口发送给单片机。

另外一种就是，你把写好的数据做成一个表，把表写到EEPROM中，可以实现实时读写，就是存储嘛。

㈩ 单片机接收到的数据如何连接数据库

上位机用或VC编程，先会接收数据，会保存到TXT文本文件中。再学会保存到EXCEL中，就 算成功，EXCEL表格本身就 是数据库的一部分。至于数据库的操作，用高级语言是很简单的，它和单 片机关系不大。我整过VB编程，串口接收，先保存到TXT文本文件中， 再学会保存到EXCEL中，挺简单的，网上搜几次就 成功了。
下面是我的串口接收程序的一部分：
Select Case MSComm1.CommEvent '事件发生
Case 2
inbuff = MSComm1.Input '读入到缓冲区

ll = UBound(inbuff)
Label10.Caption = Label10.Caption + UBound(inbuff) + 1
ReDim indata(1 To (ll + 1))
For ii = 0 To UBound(inbuff)

strHex = strHex & Right("0" & Hex(inbuff(ii)), 2) & " " '如果只有一个字符，则前补0， 如F显示0F，最后补空格方便显示观察如： 00 0F FE
TextReceive = strHex ‘显示到 文本框
Next ii
Open "12.txt" For Append As #1 ‘打开 文本文件
m = (ll + 1) / 2
Print #1, Now; "收到"; m; "个数据"
Close #1
For ii = 1 To Len(strHex) Step 6
indata((ii + 5) / 6) = Val("&H" & Mid(strHex, ii, 2)) * 4 + Val("&H" & Mid(strHex, ii + 3, 2))
Next ii
n1 = Val(Text1.Text) '电源电压
n2 = Val(Text2.Text) '第一路电压衰减倍数
n3 = Val(Text3.Text) '第二路电压衰减倍数
na = n1 * n2 / 1024
nb = n1 * n3 / 1024
X = (ll + 1) / 2 - 1
For ii = 1 To X Step 2 '存入文本中,每行两个数据
V1 = indata(ii) * na
V2 = indata(ii + 1) * nb
V3 = Format(V1, "0.000")
V4 = Format(V2, "0.000")
Open "12.txt" For Append As #1
Print #1, ii & "电压 " & V3 & " v " & (ii + 1) & "电压 " & V4 & " v"
Close #1
Next
'写入EXCEL表格中
Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(App.Path & "\Book3.xls")
Set xlsSheet = xlsBook.Worksheets(1)
range = 2 '第二列为起始列,但每次写入时,range并不一定是2,而是在原有基础上另起1列
'第一列,写入奇数数据
Do Until xlsSheet.Cells(2, range) = ""
range = range + 1
Loop
xlsSheet.Cells(1, range) = Date '第1行
xlsSheet.Cells(2, range) = Time '第2行
xlsSheet.Cells(3, range) = "回路1电压(V)" '第3 行
For ii = 1 To X Step 2 '从第4行开始存数据
V1 = indata(ii) * na
V3 = Format(V1, "0.000")
xlsSheet.Cells((ii + 1) / 2 + 3, range) = V3 '第4行
Next ii
'另起一列,写入偶数数据
Do Until xlsSheet.Cells(2, range) = ""
range = range + 1
Loop

xlsSheet.Cells(2, range) = Time '第2行
xlsSheet.Cells(3, range) = "回路2电压(V)" '第3行
For ii = 2 To X + 1 Step 2 '从第4行开始存数据
V2 = indata(ii) * nb
V4 = Format(V2, "0.000")
xlsSheet.Cells(ii / 2 + 3, range) = V4
Next ii
xlsBook.Save
xlsBook.Application.Quit
strHex = "" '处理完成后清空字符串,等待下一次接收
'TextReceive = ""
End Select