Vb.net编译警告,写脚本vbs怎么运行出现编译器错误?

VB.NET中出现如图所示的警告如何更正，帮忙解决下 谢谢

Private Function getAccessConnection() As OleDbConnection

'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在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

相关问答

Q1: VB.net出现变量“myRow”在赋值前被使用，可能会在运行时导致null引用失常的警告

这个是个警告，如果不负责任点的话其实可以忽略不管的。

之所以提示这个警告是因为你没有对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对象。

至于第二个问题的话你没有提供给我异常详情或者截图，在下无能为力。

Q2: vb.net 中的警告

这个警告说明你并非所有分支上都有return值

解决方法：如果在某个分支不需要处理 则返回默认值即可

Q3: vb.net 警告 菜单命令“5efc7975-14bc-11cf-9b2b-00aa00573819 : 26”已经有一个命令处理程序。

VS2010 第一版有很多BUG，经常性内存报错。你在注册表中查一下5efc7975-14bc-11cf-9b2b-00aa00573819这个GUID对应哪一个控件。看看是com组件还是.net的组件。com组件用regsvr32重新注册一下。.net组件用regsam命令。还是不行的话给vs2010打上sp1的补丁包。再不行只有重装环境了。

Q4: VB.NET将.NET降到3.5后警告System.Threading.Tasks出问题了

我之前也遇到过类似的问题,我个人看下来,原因估计是因为低版本的.net framework没有这个东西,所以高版本导入没有问题但是低版本导入有问题,目前为止至少我是没有办法解决,3.5版本里面没有这个命名空间我也没办法...