form1.frm

VB连接SQL实例,对初学者很有帮助,帮助大大滴有

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "更新记录"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5460
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   5460
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "更新记录"
      Height          =   615
      Left            =   1560
      TabIndex        =   0
      Top             =   960
      Width           =   2415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub UpdateX()
   '定义ADO对象及相关变量
   Dim rstEmployees As ADODB.Recordset
   Dim strOldFirst As String
   Dim strOldLast As String
   Dim strMessage As String
   '使用雇员表中的姓名打开记录集
      strCnn = "Provider=sqloledb;Data Source=mynetserver;Initial Catalog=pubs;User Id=sa;Password=12345678; "
   '生成记录集
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "SELECT fname, lname " & _
      "FROM Employee ORDER BY lname", strCnn, , , adCmdText
   '将第一条记录的原始数据保存在临时变量中以便恢复
   strOldFirst = rstEmployees!fname
   strOldLast = rstEmployees!lname
   '更改缓冲区中记录集中的数据
   rstEmployees!fname = "Linda"
   rstEmployees!lname = "Kobara"
   '显示缓冲区的内容并获取用户输入
   strMessage = "编辑过程:" & vbCr & _
      "原数据=" & strOldFirst & " " & _
      strOldLast & vbCr & "缓存区的数据=" & _
      rstEmployees!fname & " " & rstEmployees!lname & vbCr & vbCr & _
      "选择是否用Update方法更新原数据？ "
   If MsgBox(strMessage, vbYesNo) = vbYes Then
      rstEmployees.Update
   Else
      rstEmployees.CancelUpdate
   End If
   '显示结果数据
   MsgBox "记录集中的数据= " & rstEmployees!fname & " " & _
      rstEmployees!lname

   '恢复原始数据，因为这只是演示
   If Not (strOldFirst = rstEmployees!fname And _
         strOldLast = rstEmployees!lname) Then
      rstEmployees!fname = strOldFirst
      rstEmployees!lname = strOldLast
      rstEmployees.Update
   End If
   rstEmployees.Close
End Sub


Private Sub Command1_Click()
 Call UpdateX
End Sub