网站制作最新技术的百度品牌专区怎么收费
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
第一:数据库之对比:
相对于,ifix中的过程数据库,.net更偏向于sqlserver,orcle,mysql,db2类型的关系数据库。ifix之向关系数据库中更多的是向access数据啼中传送相关报警的历史数据。
更多的涉及到,数据的传送,报警数据的配置。
然而从程序的角度考虑,ifix界面下能否实现关系型数据库的增删改查,是我们比较关心的。
下面便是一段,关系数据库中单个表在ifix平台下的展示。
画面截图:
后台编码:
'公共变量声明
Dim strSql As String
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
'窗体加载调用方法
Private Sub CFixPicture_Initialize() Set Cn = New ADODB.Connection '实例化ADO连接对象
Set Rs = New ADODB.Recordset '实例化ADO记录集对象 'Cn.ConnectionString = "provider=microsoft ole db provider for odbc drivers;dsn=tdtk;uid=;pwd=;"
Cn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=.\sql08;UID=sa;PWD=.sa123;DATABASE=zmjdsb;Connect Timeout=900;"
Cn.Open
'sql语句
strSql = "select * from DV_accstorage" Rs.CursorLocation = adUseClient
Rs.Open strSql, Cn, adOpenDynamic, adLockUnspecified, -1
'对执行情况进行分析
If Rs.RecordCount = 0 Then
MsgBox "您所查询的数据不存在"
End If
'vxdata绑定数据库连接和执行sql语句
'Me.vxData1.AutoConnect = Cn.Open
Me.vxData1.SQLCommand = strSql
'画面加载时,自动加载
Me.vxData1.AutoRefresh = True
'手动绑定控件的值
Me.vxData1.Refresh
Me.vxGrid1.Refresh
Me.vxCombo1.Refresh
'Me.vxList1.Refresh
End Sub
Private Sub vxCombo1_DblClick(Area As Integer)
'弹出当前选中的数据item
'MsgBox Me.vxList1.Text
'弹出要编辑的数据form
UserForm1.Show
End Sub Private Sub vxData1_DataChanged() End Sub Private Sub 刷新数据_Click()
Me.vxData1.DBDisconnect
Me.vxData1.DBConnect
End Sub
这个时候,vxdata便绑定上了关系数据库的数据。