VB数据库编程实用源码
VBnet连接各类数据库源码
程序代码:
--------------------------------------------------------------------------------
using System.Data.OracleClient;
using System.Data;
请求权
1.C#连接连接Access
程序代码:
-------------------------------------------------------------------------------
using System.Data;
using System.Data.OleDb;
程序代码:
--------------------------------------------------------------------------------
using System.Data;
using System.Data.SqlClient;
..
string strConnection="user id=sa;password=;";
首先,连接SQL Server使用的命名空间不是"System.Data.OleDb",而是"System.Data.SqlClient".
其次就是他的连接字符串了,我们一个一个参数来介绍(注意:参数间用分号分隔):
"user id=sa":连接数据库的验证用户名为sa.他还有一个别名"uid",所以这句我们还可以写成"uid=sa".
VB编写计算Access数据库密源代码
VB编写破解Access程序源代码1、首先是窗体代码Option ExplicitPrivate Sub cmdOpenFile_Click()Dim sFile As StringDim sPasswd As StringDim sVersion As StringcmdOpenFile.Enabled = FalsesFile = INNER_GetFileName(True, "mdb (*.mdb)|*.mdb", "MDB", txtFileName.Text, "请选择数据库文件")If Len(sFile) > 0 ThenShape1.Width = 0txtFileName = sFiletxtVersion = ""txtPassword = ""sPasswd = INNER_GetAccessPwd(sFile, sVersion)txtVersion = sVersiontxtPassword = sPasswdEnd IfcmdOpenFile.Enabled = TrueEnd SubPrivate Sub Form_Load()Shape1.Width = 0End Sub2、接着是模块代码Option Explicit#Const USE_DAO = 0#If USE_DAO ThenPublic gDAO As DAO.Database#ElsePublic gADO As ADODB.Connection#End IfPublic Function INNER_GetFileName(ByVal fbOpen As Boolean, _Optional ByVal fsFilter As String, _Optional ByVal fsDefaultExt As String, _Optional ByVal fsDefFile As String, _Optional ByVal fsDialogTitle As String) As String On Error GoTo ErrLabelDim iReplace As IntegerWith monDialog1If fsFilter = "" Then.Filter = "所有文件(*.*)|*.*"Else.Filter = fsFilterEnd If.Flags = cdlOFNHideReadOnly Or cdlOFNExplorer.CancelError = True.DefaultExt = fsDefaultExtIf fsDialogTitle <> "" Then .DialogTitle = fsDialogTitleIf fsDefFile <> "" Then .FileName = fsDefFileDoIf fbOpen Then.ShowOpenElse.ShowSaveEnd IfIf Len(.FileName) = 0 ThenExit FunctionEnd IfIf Not fbOpen ThenIf Len(Dir(.FileName)) > 0 TheniReplace = MsgBox("代替存在的" + .FileName + " 吗?", vbYesNoCancel + vbQuestion)ElseiReplace = 0End IfIf iReplace = vbCancel ThenExit FunctionEnd IfElseIf Not (Len(Dir(.FileName)) > 0) Then Exit FunctionEnd IfLoop While iReplace = vbNoIf Not fbOpen ThenIf iReplace = vbYes ThenKill .FileNameEnd IfEnd IfINNER_GetFileName = .FileNameEnd WithErrLabel:Select Case Err.NumberCase 75MsgBox Err.Description & ",请重新选择文件路径!", vbExclamationEnd SelectEnd FunctionPublic Function INNER_GetAccessPwd(fsDBsee As String, fsRetVer As String) As String Dim sTemp As StringDim bytVer(2) As ByteDim bytDB_ID As ByteDim byt2 As ByteDim bytSecret(19) As ByteDim bytEncrept(19) As ByteDim l As LongDim n As LongDim lMax As LongDim iFreeFile As IntegeriFreeFile = FreeFileOpen fsDBsee For Binary As #iFreeFileGet #iFreeFile, &H9D, bytVerIf bytVer(0) = 0 ThenfsRetVer = "3.51"ElsefsRetVer = Chr(bytVer(0)) & Chr(bytVer(1)) & Chr(bytVer(2))End IfGet #iFreeFile, &H15, bytDB_IDfsRetVer = IIf(bytDB_ID = 0, "Access97 V er:", "Access200? Ver:") & fsRetVer If bytDB_ID = 1 ThenlMax = 20bytSecret(0) = (&H49)bytSecret(1) = (&HEC)bytSecret(2) = (&H92)bytSecret(3) = (&H9C)bytSecret(4) = (&H9)bytSecret(5) = (&H28)bytSecret(6) = (&HDC)bytSecret(7) = (&H8A)bytSecret(8) = (&H9B)bytSecret(9) = (&H7B)bytSecret(10) = (&H3A)bytSecret(11) = (&HDF)bytSecret(12) = (&HB8)bytSecret(13) = (&H13)bytSecret(14) = (&H0)bytSecret(15) = (&HB1)bytSecret(16) = (&HFB)bytSecret(17) = (&H79)bytSecret(18) = (&H5D)bytSecret(19) = (&H7C)ElseIf bytDB_ID = 0 ThenlMax = 13bytSecret(0) = (&H86)bytSecret(1) = (&HFB)bytSecret(2) = (&HEC)bytSecret(3) = (&H37)bytSecret(4) = (&H5D)bytSecret(5) = (&H44)bytSecret(6) = (&H9C)bytSecret(7) = (&HFA)bytSecret(8) = (&HC6)bytSecret(9) = (&H5E)bytSecret(10) = (&H28)bytSecret(11) = (&HE6)bytSecret(12) = (&H13)ElseClose #iFreeFileMsgBox "你怎么打开我不知道的文件?", vbQuestionGoTo ErrLabelEnd IfOn Error GoTo ErrLabelFor l = 1 To lMaxGet #iFreeFile, &H43 + (l - 1) * (bytDB_ID + 1), bytEncrept(l - 1)Next lClose #iFreeFileFor n = -1 To 255sTemp = ""DoEventsIf (n > -1) Or (bytDB_ID = 0) Then= * (n + 1) / 255For l = 1 To lMaxn = n * bytDB_IDIf l Mod 2 = 1 ThensTemp = sTemp & Chr(bytEncrept(l - 1) Xor bytSecret(l - 1) Xor n) ElsesTemp = sTemp & Chr(bytEncrept(l - 1) Xor bytSecret(l - 1))End IfNext lsTemp = Replace(sTemp, Chr(0), "")If (bytDB_ID = 0) Then GoTo EndlabelIf sTemp <> "" ThenIf INNER_CanOpenDateBase(fsDBsee, sTemp) ThenExit ForElsesTemp = ""End IfEnd IfElseIf INNER_CanOpenDateBase(fsDBsee, sTemp) ThenMsgBox "根本就没有密码，何必劳我大架呢?", vbQuestionExit ForEnd IfEnd IfNext nEndlabel:INNER_GetAccessPwd = sTempExit FunctionErrLabel:INNER_GetAccessPwd = Err.DescriptionEnd FunctionPublic Function INNER_CanOpenDateBase(fsFilename As String, fsPasswd As String) As BooleanOn Error GoTo ErrLabelDim sConn As String#If USE_DAO ThenSet gDAO = DAO.OpenDatabase(fsFilename, False, 0, ";pwd=" & fsPasswd)If Not gDAO Is Nothing ThenINNER_CanOpenDateBase = TrueSet gDAO = NothingEnd If#ElseSet gADO = New ADODB.ConnectionsConn = "PROVIDER=;Data Source=" & fsFilename & _";Jet OLEDB:Database Password =" & fsPasswd & ";"gADO.Open sConnIf Not gADO Is Nothing ThenINNER_CanOpenDateBase = TrueSet gADO = NothingEnd If#End IfErrLabel:End Function。
VB实例源码(完整资料).doc
【最新整理，下载后即可编辑】课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = "请输入您的名字: "msg2$ = "输入后按回车键"msg3$ = "或单击“确定”按钮"msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$name$ = InputBox(msg$, "InputBox 函数示例", "张三")Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()msg$ = "请确认此数据是否正确"Title$ = "数据检查对话框"x = MsgBox(msg$, 19, Title$)If x = 6 ThenPrint x * xElseIf x = 7 ThenPrint "请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print: PrintFontName = "隶书"FontSize = 16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";Print Tab(24); "单位"; Tab(32); "籍贯"PrintPrint "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"End Sub【例3-6】Private Sub Form_Click()X = InputBox("请输入成绩", "学生成绩录入", "00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
vb编程代码大全
vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。
在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。
一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。
定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。
定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。
定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。
例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。
例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。
例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。
VB编程程序代码
VB编程程序代码1、求100以内的素Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit For Next jIf j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()Dim a$, I%, c$, d$, n%a = InputBox$("输入字符串")n = Len(a)For I = 1 To Int(n \ 2)c = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1, 1)Mid(a, n - I + 1, 1) = cNext IPrint aEnd Sub3、计算0~200之间所有能被11或5整除的数之和Private Sub Form_Click()Dim n%, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 Thenn = n + iEnd IfNext iPrint nEnd Sub4、输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then MsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End IfEnd Sub5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。
VB常见20道编程代码
哈哈哈20道编程代码1.1000以内的全部完数Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim s As LongFor n = 1 To 1000s = 1For i = 2 To n - 1If n Mod i = 0 Then s = s + iNext iIf s = n ThenText1 = Text1 & n & " "If k Mod 5 = 0 Then Text1 = Text1 & vbCrLfEnd IfNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub2.百元买百鸡Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 20For j = 0 To 33If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 ThenText1 = Text1 & "买" & CStr(i) & "只公鸡" & CStr(j) & "只母鸡" & CStr(100 - i - j) & "只小鸡"Text1 = Text1 & Chr(13) & Chr(10)End IfNext jNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub3.不靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As Integer, s%For i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jPrintNext ik = SumSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next iSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - SumEnd SubPrivate Sub Command2_Click()EndEnd Sub4.递归函数求斐波拉契数列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox("显示数列的前N项")a1 = 1For i = 1 To nb = a1 + a2Text1.SelText = b & " "a1 = a2a2 = bNext iEnd SubPrivate Sub Command2_Click() EndEnd Sub5.各位数之和Private Sub Command1_Click() Dim i As StringDim j%Dim s%i = Text1For j = 1 To Len(i)st = Mid(i, j, 1)s = s + Val(st)Next jText2 = sEnd SubPrivate Sub Command2_Click() EndEnd Sub6.回文数Private Sub Command1_Click() Dim x$, y$, c$, i%x = Text1For i = 1 To Len(x)c = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = "x是回文数"ElseText2 = "x不是回文数"End IfEnd Sub。
vb数据库编程实例
VB编程实例4(单个数据库表应用程序) 1.打开工程vblx,添加一个窗口Form1,修改Form1的属性,名称(Nam e)为:fxs,Caption(窗口标题)为: 学生档案,保存在你的目录下.在fm ain中添加水平菜单(m3):数据库,添加下拉菜单(m31): 学生档案,其单击代码为:fxs.Show 2.准备好access数据库xs.m db,有两个表xs,cj,在数据源中添加系统DSN,选择驱动程序为Microsoft Access Driver,名称为lx,数据库指向你的xs.m db 添加ADO部件(Mi crosoft ADO Data Control 6.0)和DataGrid 部件(Microsoft DataGrid Control 6.0). 3.在窗体上放一个框架Fram e1,去掉Caption,设BorderStyle为0-None,在Fram e1上放一个Fram e2, 去掉Caption,设BorderStyle为0-None,在Fram e2上放置Adodc1,设其ConnectionString属性为DNS=lx, RecordSource的命令类型为2-adCm dTable,表名为xs,在Fram e2上放置命令按钮数组Comm and1(0~3),Caption分别为:添加,保存,删除,关闭在Fram e1上放一个Fram e3,去掉Caption,在Fram e3上放置标签数组zdm(0~7),设置字体,颜色, Caption分别为序号,登录名,姓名,性别,生日,电子邮件,电话,住址,放置文本框数组zdz(0~7), DataSource为Adodc1,DataField分别为xh,dlm,xm,xb,sr,eml,dh,dz 4.在窗体上放一个DataGrid1,设其DataSource为Adodc1,右击DataGrid1选择检索字段, 再右击调出属性页,在通用页设置允许添加,删除,更新,在列页设置各列的标题分别为: 序号,登录名,姓名,性别,生日,电子邮件,电话,住址,在布局页设置各列的宽和对齐方式5.响应Form的Load事件,添加如下代码: Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2'窗口居中 Fram e1.Left = 0: Fram e1.Top = 0 Fram e1.Width = ScaleWidth Fram e1.Height = ScaleHeight / 4 Fram e2.Left = (ScaleWidth -Fram e2.Width) \ 2 Fram e3.Left = (ScaleWidth - Fram e3.Width) \ 2 DataGrid1.Top = ScaleHeight / 4: DataGrid1.Left = 0 DataGrid1.Width = ScaleWidth DataGrid1.Height = ScaleHeight * 3 / 4 Adodc1.Refresh 响应Form的Resize事件,添加如下代码: If WindowState = 1 Then Exit Sub'最小化时不执行代码If WindowState = 0 Then Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2'正常窗口居中End If Fram e1.Left = 0: Fram e1.Top = 0 Fram e1.Width = ScaleWidth Fram e1.Height = ScaleHeight / 4 Fram e2.Left = (ScaleWidth - Fram e2.Width) \ 2 Fram e3.Left = (ScaleWidth - Fram e3.Width) \ 2 DataGrid1.Top = ScaleHeight / 4: DataGrid1.Left = 0 DataGrid1.Width = ScaleWidth DataGrid1.Height = ScaleHeight * 3 / 4 响应Form的Unload事件,添加如下代码: Adodc1.Recordset.Close 响应Comm and1的Click事件Select Case Index Case 0 Adodc1.Recordset.AddNew Case 1 Adodc1.Recordset.Update Case 2 Adodc1.Recordset.Delete Case 3 Unload fxs End Select。
vb常用程序代码
1、求半径为r的圆的面积，要求用户从键盘输入半r。
程序代码：Private Sub Form_click()Const PI = 3.14Dim r%Dim s!r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * rForm1.FontSize = 16Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub2、输入三个整数，从小到大顺序输出。
程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a > b Then t = a: a = b: b = tIf a > c Then t = a: a = c: c = tIf b > c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub3、输入三个整数，从大到小顺序输出。
程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a <b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub4、输入x的值，输出对应的值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
使用ADO编程模型需添加ADO对象类库的“引用”----“Microsoft ActiveX Data Objects 2.x Library”ADO之VB数据库操作主要包括读、写、修改及删除等操作，不论是进行什么数据库操作都必须首先连接到数据库。
一、连接到数据库1、连接到SQL数据库：通过ADO的Connection对象可实现VB与SQL数据库的连接。
一般方法如下：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" '指定提供者，设置数据源cnn.Open …打开到数据库的连接……..cnn.Close …关闭到数据库的连接或者：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" …打开到数据库的连接……..cnn.Close …关闭到数据库的连接2、连接到ACCESS数据库：通过ADO的Connection对象可实现VB与ACCESS数据库的连接。
一般方法如下：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" '指定提供者，设置数据源cnn.Open …打开到数据库的连接……..cnn.Close …关闭到数据库的连接或者：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接……..cnn.Close …关闭到数据库的连接二、读数据库操作读数据库操作一般可通过recordset对象实现。
方法如下—以ACCESS数据库为例：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接Dim rs As New Recordset '声明一个记录集对象rs.Open [记录源, cnn, 游标类型, 锁定类型, 命令类型] …也可先设置记录集相关属性text1.text= rs("字段名称1或索引") …假设读取出来的字段信息显示在文本框中，三种读取方法等价text2.text=rs.fields("字段名称2或索引")text3.text= rs!字段名称3…….rs.close …关闭记录集对象cnn.Close …关闭与数据库的连接set rs=Nothing …释放rs对象实例set cnn=Nothing …释放Connection对象实例l 记录源一般为一条SQL查询语句，以实现查询目的。
l Recordset对象还保持查询返回的记录的位置，它返回第一个检索到的记录，并允许你一次一项逐步扫描其他结果。
Recordset对象的部分属性及方法如下Rs（i）：读取第i个字段的数据，i从0开始Rs（字段名）：读取指定字段的数据Rs.EOF：记录指针指到记录的尾部Rs.BOF：记录指针指到记录的头部Rs.RecordCount：游标中的数据记录总数Rs.PageSize：当对象设有分页时，用于指定逻辑页中的记录个数Rs.PageCount：返回记录集中的逻辑分页数Rs.MoveNext：将记录指针移到下一个记录Rs.MovePrev：将记录指针移到上一个记录Rs.MoveFirst：将记录指针移到第一个记录Rs.MoveLast：将记录指针移到最后一个记录rs.Delete：将当前记录删除rs.addnew：添加一条新记录（行）l 如果要读取满足条件的数据库记录，只要在SELECT语句中增加WHERE子句即可（例如：WHERE 性别=”男”），如果要读取多条满足条件的数据库记录，可通过循环语句来实现，并且每读取一条记录后使用Rs.MoveNext移动记录指针以读取下一条记录。
三、写数据库操作方法1：使用recordset对象（此方法一般初学者使用较多）。
方法如下—以ACCESS数据库为例：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接Dim rs As New Recordset '声明一个记录集对象rs.Open [记录源, cnn, 游标类型, 锁定类型, 命令类型] …也可先设置记录集相关属性rs.addnew …告诉rs我们要添加一行rs("字段名称1或索引") =值1 …给要添加的行的一个字段赋值，三种方法等价rs.fields("字段名称2或索引") =值2rs!字段名称3 =值3…….rs.update …通知rs我们要把这个行写入数据库rs.close …关闭记录集对象cnn.Close …关闭与数据库的连接set rs=Nothing …释放rs对象实例set cnn=Nothing …释放Connection对象实例l addnew使用方法后，如果要放弃添加的结果,应调用记录集的CancelUpdate方法放弃。
方法2：使用Connection对象的Execute方法对表进行SQL记录插入操作（要求要熟悉SQL 命令）Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接strSQL = "Insert Into 数据表(字段1, 字段2…..) Values(值1, 值2…..)…拼写Insert插入语句cnn.Execute strSQL '执行Insert语句实现添加…….cnn.Close …关闭与数据库的连接set cnn=Nothing …释放Connection对象实例四、修改数据库操作方法1：使用recordset对象（此方法一般初学者使用较多）。
方法如下—以ACCESS数据库为例：Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接Dim rs As New Recordset '声明一个记录集对象rs.Open [记录源, cnn, 游标类型, 锁定类型, 命令类型] …也可先设置记录集相关属性…….rs("字段名称1或索引") =新值1 ……给要修改的行的一个字段赋一个新值，三种方法等价rs.fields("字段名称2或索引") =新值2rs!字段名称3 =新值3…….rs.update …通知rs，我们要把修改好的记录行写入数据库rs.close …关闭记录集对象cnn.Close …关闭与数据库的连接set rs=Nothing …释放rs对象实例set cnn=Nothing …释放Connection对象实例l 如果放弃修改结果,应调用记录集的CancelUpdate方法放弃更新数据库。
方法2：使用Connection对象的Execute方法对表进行SQL记录更新操作（要求要熟悉SQL 命令）Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接strSQL = "Update 数据表Set 字段1=新值1, 字段2=新值2….. …拼写Update语句,以便进行修改cnn.Execute strSQL '执行Insert语句实现添加…….cnn.Close …关闭与数据库的连接set cnn=Nothing …释放Connection对象实例五、删除数据库操作方法1：使用recordset对象（此方法一般初学者使用较多）。
方法如下—以ACCESS数据库为例方法1：通过Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" …打开到数据库的连接Dim rs As New Recordset '声明一个记录集对象rs.Open [记录源, cnn, 游标类型, 锁定类型, 命令类型] …也可先设置记录集相关属性…….rs.Delete …删除当前记录…….rs.update …通知rs，我们要把修改好的记录行写入数据库rs.close …关闭记录集对象cnn.Close …关闭与数据库的连接set rs=Nothing …释放rs对象实例set cnn=Nothing …释放Connection对象实例l 删除数据库记录前应先找到（查询）待删除的记录项（通过rs.Open来实现)。