VB与wincc中自带SQL SERVER2005交互数据

1、 首先用VB建立一个工程

2、 编写VB与WINCC自带的SQL SERVER2005通讯代码

Dim conn As ADODB.Connection Dim rst As ADODB.Recordset

Private Sub Command1_Click() rst.MoveFirst Call Dispdata End Sub

Private Sub Command2_Click() rst.MovePrevious If rst.BOF Then rst.MoveFirst End If Call Dispdata End Sub

Private Sub Command3_Click()

rst.MoveNext If rst.EOF Then

rst.MoveLast End If

Call Dispdata End Sub

Private Sub Command4_Click() rst.MoveLast Call Dispdata End Sub

Private Sub Form_Load()

Set conn = New ADODB.Connection

Set rst = New ADODB.Recordset conn.ConnectionString = \Server};Data Source=PC-20111203HFGW\\WINCC;UID=sa;PWD=123456;Initial Catalog=school;Persist Security Info=False\

conn.CursorLocation = adUseServer conn.Open

rst.LockType = adLockOptimistic rst.CursorType = adOpenDynamic rst.ActiveConnection = conn

rst.Open \

End Sub

Public Sub Dispdata()

Text1(0).Text = rst.Fields(0) Text1(1).Text = rst.Fields(1) Text1(2).Text = rst.Fields(2) Text1(3).Text = rst.Fields(3) Text1(4).Text = rst.Fields(4) End Sub

3测试运行