【正文】
ng As String = Provider=SQLOLEDB。Data Source=。Initial Catalog=xx。User Id=sa。Password =xx Dim rda As SqlCeRemoteDataAccess = Nothing Try rda = New SqlCeRemoteDataAccess 39。 rda3所在位置 = = Data Source=\My Documents\“ 上傳程式碼 (II) ? 回傳資料 (a01_user, rdaOleDbConnectString, ) MsgBox(資料上傳成功 ) Catch ex As SqlCeException MsgBox() Finally () End Try End Sub sql指令的方式新增 (I) Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim localConnection As SqlCeConnection localConnection = New SqlCeConnection(Data Source=\My Documents\) Dim insertData As String Dim cmdCreateTable As SqlCeCommand 39。 此處請(qǐng)讀者自行依照您的資料表進(jìn)行 sql指令修改 insertData = “insert into member (m_name, loginid,pwd) values (?xxx?,?xxx?,?xxx?)” sql指令的方式新增 (II) () cmdCreateTable = New SqlCeCommand(insertData, localConnection) = () () localConnection = Nothing MsgBox(“新增成功 ) Call Button3_Click(0, e) 39。重新顯示 End Sub sql指令的方式新增 利用 Picturebox顯示圖片 Dim bmp As New Bitmap(\My Documents\) 39。圖檔路徑請(qǐng)自設(shè) ! = bmp 演講完畢,謝謝觀看!