vb.net数据读取器 vbnet读取文件内容

vb.net 中GridView1读取数据

Dim tbl As New Data.DataTable

Dim DS As New DataSet '*************************这是新定义的

Dim adapte As New OleDbDataAdapter("select * from information ,"provider=Microsoft.jet.OLEDB.4.0;Data Source=" Server.MapPath("app_data\fdy.mdb")

adapte.Fill(DS，"information")

GridView1.DataSource = DS.Tables("information")

GridView1.DataBind()

以上的代码我没有经过编译器调试，但结构是正确的，你先测试看，如果不行再追问吧。

相关问答

Q1: 使用VB.NET读取数据

孩子，如果你从你单击事件上下手，就好办了，先弄明白，点击了什么，datagridview点击，可以获取单击的值，好办，用SQL语句去查询单击的这个值，把查到的结果再交给你要处理的地方，我常这么干。我从来不晓得什么表与表之间的关联，或者关系表什么鬼东西，但是我也可以操作很多张表，把它们的结果集一起显示出来。

Dim 表1 As New DataSet

Dim 对象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 数据源)

对象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

对象1 = Nothing

如果写成这样，还嫌不够，一定要按你的意思去写，那我真的要疯了。

这个例子，就是把表格1点击的值查一个结果集，在表格2上显示，不知有没有你想要的表达式？

Q2: vb.net如何与excel建立连接，并从里面查询并读取数据？

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

 2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

  Dim jieguo As String, p As String, q As String

  Dim c As Range

  jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

  If jieguo = "False" Or jieguo = "" Then Exit Sub

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  With ActiveSheet.Cells

      Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

      If Not c Is Nothing Then

          p = c.Address

          Do

              c.Interior.ColorIndex = 4

              q = q c.Address vbCrLf

              Set c = .FindNext(c)

          Loop While Not c Is Nothing And c.Address p

      End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

      q, vbInformation + vbOKOnly, "查找结果"

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

Q3: VB.net怎样从网络中逐个读取数据

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据

On Error Resume Next

Dim Str_WebContent As String = "请输入查找网站地址."

Dim wb As WebClient = New WebClient() '//创建一个WebClient实例

If mWebsiteUrl.IndexOf("://") 0 Then

'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）

wb.Credentials = CredentialCache.DefaultCredentials

'//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//转换字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '

End Function

Q4: VB.net 如果读取txt数据(或十进制dat数据)

vb.net虽也有input语句vb.net数据读取器，但一次只能读取到一个变量中vb.net数据读取器，可以用TextFieldParser类代替vb.net数据读取器，但似乎没以前vb.net数据读取器的方便。不过比以前的更灵活。写入文件Write还是可以用，在Microsoft.VisualBasic.FileIO中。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fileName As String = "E:\User Documents\Master\My Documents\电子阅读\股票\table2.csv"

        Using Recrods As New Microsoft.VisualBasic.FileIO.TextFieldParser(fileName) '建立TextFieldParser对象

            'MyReader.TextFieldType = FieldType.Delimited

            Recrods.SetDelimiters(",") '把字段分隔符设置为","

            Dim curRow() As String

            Do Until Recrods.EndOfData

                curRow = Recrods.ReadFields() '读取记录行，返回字符串数组，所以不同字段类型需要自己转换。

                Debug.Print(Join(curRow, vbTab))

            Loop

        End Using

    End Sub

Q5: VB.NET连接ACCESS数据库，读取查询并显示

给你写个例子，不明白，再问！！

'引入OLEDB命令空间

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

'定义一个OLEDB连接并实例化它

Dim con As New OleDbConnection

'定义一个OLEDB命令并实例化他

Dim cmd As New OleDbCommand

'定义一个OLEDBReader方法来读取数据库

Dim dr As OleDbDataReader

'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"

'打开OLEDB数据连接

con.Open()

'初始化OLEDB命令的连接属性为con,这个需要你理解下

cmd.Connection = con

'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容

cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""

'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr

dr = cmd.ExecuteReader()

'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值

If dr.Read() Then

t2.Text = dr(0)

End If

'完成后关闭dr.con等释放资源

dr.Close()

con.Close()

End Sub

End Class

vb.net数据读取器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet读取文件内容、vb.net数据读取器的信息别忘了在本站进行查找喔。