資料庫51
Ⅰ Microsoft sql Server Management Studio 附加資料庫 對於 伺服器 (Microsoft SQL Server,錯誤: 51
附加資料庫 對於 伺服器「LENOVO-PC」失敗。 (Microsoft.SqlServer.Smo) 有解決方法:目錄(即文件夾)許可權不夠,將everyone用戶加入,改為完全控制即可
Ⅱ 51單片機中能不能建立資料庫,並根據一定的公式對這些數據進行處理再將數據取出
基本不行,這個玩意的rom和ram都太小,跑個操作系統都艱難,哪有空間來搞資料庫。當然他讀寫數據的方式你倒是可以研究研究,但意義不大,因為針對一般開發人員而言,他的地址都是直接透明的,也就是說我的數據讀寫我能清楚知道在存儲空間的那個位置,而根本不需要操作系統管理,那樣浪費我的存儲空間。
如果你真想搞一搞,換ARM+操作系統的。可以是M3(A8)+UCOS
也可以是arm9(arm11)+linux
Ⅲ 如何將資料庫的ODS版本從51降為43
CREATE_R85_DATABASES=0 Create_R8_Databases=1 如果無法停止伺服器,那麼您可以在伺服器控制台上運行以下命令: set config CREATE_R85_DATABASES=0 set config Create_R8_Databases=1 第2步.在伺服器控制台上運行如下命令: load compact -r database.nsf //第一次執行後,ODS 將從 51 回滾至 48 load compact -r database.nsf //第二次執行後,ODS 將從 48 回滾至 43 或者如果只需對單個資料庫進行操作,您可以創建資料庫的副本,後綴名為 .ns6,這個新建的副本ODS版本即為43,
Ⅳ 怎麼樣把基於51單片機的感測器數據發送到資料庫表格中
通過串口把數據傳入上位機 然後上位機寫入資料庫即可
Ⅳ 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
Ⅵ 安裝資料庫時出現「 進程 51 發生了嚴重的異常 c0000094 EXCEPTION_INT_DIVIDE_BY_ZERO」。
中毒了吧