13518219792
Private Function getAccessConnection() As OleDbConnection
成都创新互联-专业网站定制、快速模板网站建设、高性价比名山网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式名山网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖名山地区。费用合理售后完善，十多年实体公司更值得信赖。
'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在DataGrid中显示。
Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"
'连接字符串，Provider,连接引擎，可以死记，OLEDB就用这处，Data Source,设置数据库的位置。
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
Try
dbConnection.Open()
Catch Ex As Exception
’MsgBox(Err.Description)
End Try
Return dbConnection
End Function
private Sub fillDataGridView()
Dim sqlStr As String = "select * from Table"
Dim DataAdapter As New OleDbDataAdapter
Dim dataSet As New DataSet
Dim DataGridView As New DataGridView
Dim dbConnection As OleDbConnection = getAccessConnection()
If dbConnection.State.ToString = "Closed" Then
MsgBox(Chr(13) " access 数据库连接失败 " Chr(13), , "警告")
Exit Sub
End If
DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)
'用数据适配器进行查询
Try
DataAdapter.Fill(dataSet,"Table") '将查询结果填充到数据集Dataset,有点像VB中的记录集recordset
DataGridView.DataSource = dataSet.Tables("Table").DefaultView '将数据集的内容在表格中显示出来
Catch Ex As Exception
MsgBox(Err.Description)
Finally
dataSet.Dispose
DataAdapter.Dispose
dbConnection.Close
dbConnection.Dispose
End Try
End Sub
这个是个警告，如果不负责任点的话其实可以忽略不管的。
之所以提示这个警告是因为你没有对myRow进行初始化。你可以这么定义myRow，这样就不会出现警告了。
Dim dt As DataTable = New DataTable()
dt.Columns.Add("姓名")
dt.Columns.Add("性别")
dt.Columns.Add("年龄")
dt.Columns.Add("联系方式")
dt.Columns.Add("身份证号")
dt.Columns.Add("所选科室")
dt.Columns.Add("所选医生等级")
dt.Columns.Add("病人状态")
Dim myRow As DataRow = dt.NewRow()
上面只是个简单的例子，你可以从DataTable里创建新的DataRow对象。
至于第二个问题的话你没有提供给我异常详情或者截图，在下无能为力。
这个警告说明你并非所有分支上都有return值
解决方法：如果在某个分支不需要处理 则返回默认值即可
VS2010 第一版有很多BUG，经常性内存报错。你在注册表中查一下5efc7975-14bc-11cf-9b2b-00aa00573819这个GUID对应哪一个控件。看看是com组件还是.net的组件。com组件用regsvr32重新注册一下。.net组件用regsam命令。还是不行的话给vs2010打上sp1的补丁包。再不行只有重装环境了。
我之前也遇到过类似的问题,我个人看下来,原因估计是因为低版本的.net framework没有这个东西,所以高版本导入没有问题但是低版本导入有问题,目前为止至少我是没有办法解决,3.5版本里面没有这个命名空间我也没办法...
