01.Private Sub Bupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bupdate.Click
02.
03. Dim objConn As New OleDb.OleDbConnection
04. Dim dtAdapter As OleDb.OleDbDataAdapter
05. Dim dt As New DataTable
06. Dim strConnString, strSQL As String
07. Dim name As String
08. Dim name1 As String
09. Dim name2 As String
10. Dim name3 As String
11. Dim name4 As String
12.
13. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\att.mdb;Jet OLEDB:Database Password=;"
14.
15. objConn.ConnectionString = strConnString
16. objConn.Open()
17. strSQL = "SELECT * FROM A"
18. dtAdapter = New OleDb.OleDbDataAdapter(strSQL, objConn)
19.
20. While dtAdapter.Fill(dt)
21. name = dt.Rows(0)("UserID")
22. name1 = dt.Rows(0)("CHECKTIME")
23. name2 = dt.Rows(0)("CHECKTYPE")
24. name3 = dt.Rows(0)("WorkCode")
25. name4 = dt.Rows(0)("UserExtFmt")
26.
27. Dim sql As String
28. sql = "insert into B(UserID,CHECKTIME,CHECKTYPE,WorkCode,UserExtFmt) values('" & name.ToString() & "','" & name1.ToString() & "','" & name2.ToString() & "','" & name3.ToString() & "','" & name4.ToString() & "')"
29. Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, objConn)
30. cmd.ExecuteNonQuery()
31.
32.
33. End While
34.
35. End Sub
