国外喷灌机发展概况跟趋势资料.pptVIP

sql指令的方式修改 (I) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim localConnection As SqlCeConnection localConnection = New SqlCeConnection(Data Source=\My Documents\dc.sdf) Dim insertData As String Dim cmdCreateTable As SqlCeCommand 此處請讀者自行依照您的資料表進行sql指令修改 insertData = update a01_user set U_Name=11111 where U_ID=34” sql指令的方式修改(II) localConnection.Open() cmdCreateTable = New SqlCeCommand(insertData, localConnection) cmdCreateTable.CommandType = CommandType.Text cmdCreateTable.ExecuteNonQuery() localConnection.Close() localConnection = Nothing MsgBox(修改成功) Call Button3_Click(0, e) 重新顯示 End Sub 上傳程式碼 (I) Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim rdaOleDbConnectString As String = Provider=SQLOLEDB;Data Source=xx.xx.xx.xx;Initial Catalog=xx;User Id=sa;Password =xx Dim rda As SqlCeRemoteDataAccess = Nothing Try rda = New SqlCeRemoteDataAccess rda3所在位置 rda.InternetUrl = http://xx.xx.xx.xx/RDA3/sqlcesa30.dll rda.LocalConnectionString = Data Source=\My Documents\dc.sdf“ 上傳程式碼 (II) ‘ 回傳資料 rda.Push(a01_user, rdaOleDbConnectString, RdaBatchOption.BatchingOn) MsgBox(資料上傳成功) Catch ex As SqlCeException MsgBox(ex.Message.ToString) Finally rda.Dispose() End Try End Sub sql指令的方式新增 (I) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim localConnection As SqlCeConnection localConnection = New SqlCeConnection(Data Source=\My Documents\dc.sdf) Dim insertData As String Dim cmdCreateTable As SqlCeCommand 此處請讀者自行依照您的資料表進行sql指令修改 insertData = “insert into member (m_name, loginid,pwd) valu