第7章VB访问数据库的技术.ppt

第7章VB访问数据库的技术及相关控件 主要内容 7.1 ODBC技术 7.2 ADO技术概述 7.3 ADO对象及其数据库访问技术 7.4使用VB控件访问数据库 7.5 Data控件 7.6 ADO Data控件 7.7 Data Grid控件 7.8 DataCombo控件与DataList控件 7.9 MSFlexGrid控件与MSHFlexGrid控件 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 7.1 ODBC技术 State：RecordSet对象的当前状态： 1-AdStateOpen，表示结果集已经打开 0-AdStateClosed，表示结果集已经关闭。 AdStateFetching，表示正在打开结果集。 RecordCount：Recordset对象中记录的数目。 MsgBox 这是第一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveFirst End If End Sub = True Then MsgBox 没有记录，无法显示！ Exit Sub End If Adodc1.Recordset.MoveNext 游标移到当前记录的后面那条 If Adodc1.Recordset.EOF Then 判断其后面是否还有记录 MsgBox 这是最后一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End If End Sub Private Sub cmdrefresh_Click() “刷新”按钮的单击事件的过程 Adodc1.Recordset.Update MsgBox 数据已更新成功！ End Sub Private Sub Cmdquit_Click() “退出”按钮的单击事件的过程 Unload Me End Sub CellFontName属性：返回或设置当前单元文本的字体名称。 CellFontBold属性：返回或设置当前单元文本的粗体样式。 CellFontItalic属性：返回或设置当前单元文本的斜体样式。 CellFontSize属性：返回或设置以磅为单位的当前单元文本的大小。 CellPicture属性：返回或设置当前单个或多个单元格中显示的图像。 CellLeft和CellTop：返回以缇为单位的当前单元格的坐标。 Col和Row属性：这两个属性返回或设置MSFlexGrid中活动单元的坐标。 ColAlignment、ColAlignmentBand、ColAlignmentHeader属性：返回或者设置一个标准列或带区域中一列或标头中一列数据的对齐方式。 ColPositon 和RowPosition属性：ColPositon属性用于设置一个MSFlexGrid列的位置，并允许移动列到指定的位置 RowPosition属性用于设置一个MSFlexGrid行的位置，并允许移动行到指定的位置。 MsgBox 成功添加数据 rs.Close 在网格控件2中显示Course表中的所有记录 rs.Open select * from course, con, adOpenKeyset, adLockOptimistic Set MSHFlexGrid2.DataSource = rs rs.Close con.Close End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyEscape Then 当按下ESC键时 Text1.Visible = False MSHFlexGrid1.SetFocus Exit Sub End If Text1.Text = MSHFlexGrid1.Text Text1.SetFocus text1获得焦点 End If End Sub 本章小结 程序代码： Private Sub Cmdfirst_Click()