大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
//用ADO点虐 中的Connection进行OLE连接到Access文件,连接字符串例子:
成都创新互联公司是一家专业的成都网站建设公司,我们专注网站设计制作、成都网站制作、网络营销、企业网站建设,买链接,广告投放为企业客户提供一站式建站解决方案,能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高,创新互联力求做到尽善尽美。
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"
//再发送Command命令SQL,
Select * from Student_Perfomance where Stu_No='取到的学号'
//再用DataReader取出数据,设置到窗体的控件上。
你把数据库中的数据查询出来保存在DataSet 中
DataSet 是脱机的数据集,也即与数据库断开的数据集
把DataSet绑定到GridView上,这时候你在GridView上的操作就都是与数据库断开的
VB6里,类似的控件叫 datagrid控件,需要通过菜单 [工程] -- [部件],勾选
Microdoft DataGrid Control 6.0 (SP6),完成添加到控件工具箱。
VB利用DataGrid控件显示数据库中数据信息,DataGrid在数据库数据显示的时候非常重要,它在用户操作舒适度及数据排列方面有独到之处,对于Vb数据库编程的用户来说,掌握DataGrid的使用是至关重要的事情。
参考实例如下:
Public cnn As adodb.Connection
Public rst As adodb.Recordset
Public Sub setdb()
Set cnn = New adodb.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.O"
cnn.ConnectionString = "Data Source=" App.Path "\personal.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim Strsql As String
setdb
Set DataGrid1.DataSource = Nothing
Strsql = "select * from 备忘录 order by 编号"
Set rst = cnn.Execute(Strsql)
If Err Then
MsgBox "读取数据失败"
Exit Sub
End If
If rst.EOF Then
Set DataGrid1.DataSource = Nothing
Else
Set DataGrid1.DataSource = rst
End If
End Sub