vb.net导入数据 vb怎么导入数据库

vb.net 将csv 数据导入datagridview

本例子在窗体上添加一个按钮，一个空的DataGridView控件；

在按钮的单击事件里编写代码如下：

        '读取CSV文件到DataGridView控件

        Dim r As New StreamReader("C:\工作簿1.csv", System.Text.Encoding.Default) '用StreamReader打开文件

        Dim MyRows(0) As String

        Dim d() As String

        Dim i As Integer = -1

        Dim j As Integer = 0

        Do While r.Peek  -1 '是否到文件尾

            i = i + 1

            ReDim Preserve MyRows(i)

            MyRows(i) = r.ReadLine      '从打开的文件中读取一行内容

        Loop

        r.Close()      '关闭对象

        '获得数据的列数

        d = Split(MyRows(1), ",")

        '首先在DataGridView控件中添加列

        DataGridView1.ColumnCount = UBound(d) + 1

        '然后在DataGridView控件中添加行

        DataGridView1.Rows.Add(UBound(MyRows))

        '在DataGridView控件中添加数据

        For i = 0 To UBound(MyRows)

            d = Split(MyRows(i), ",")

            For j = 0 To UBound(d)

                DataGridView1.Item(j, i).Value = d(j)

            Next

        Next

相关问答

Q1: vb.net向数据库添加数据（在线等待）

第一个问题，存储数据：

使用SqlCommand（如果是Sql的）：

Using

cmd

As

New

SqlCommand()

cmd.Connection

=

new

SqlConnection("server=.;database=数据库名;integrated

security=sspi")

cmd.Connection.Open()

cmd.CommandText=string.Format("Insert

into

表名字

Values('{0}','{1}'",您的第一个字符串变量，第二个字符串变量【如果是数值类型的，不要在索引前加单引号了】)

cmd.NonExecuteQuery();

'获取数据

SqlDataAdapter

adapter

=

new

SqlDataAdapter(cmd);

cmd.CommandText="select

*

from

表"

DataTable

dt

=

new

DataTable()

adapter.Fill(dt)

DataGridView.DataSource

=

dt

End

Using

Q2: vb.net怎样把excel内容导入到datagridview

解题思路：

把EXCEL看做数据源来连接。

用一个list来显示EXCEL中的所有表，选择指定表名，打开EXCEL到DG

——————————如下：

引用ADODB 2.8

导入：

Imports System.Data

Imports System.Data.Odbc

Imports System.Data.OleDb

申明

Private Excelpath As String

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

创建conn

Public Sub connDB(ByVal filePath As String)

On Error Resume Next

Dim strConnString As String = "Provider=microsoft.ace.oledb.12.0;Data Source=" filePath ";Extended Properties='Excel 12.0; HDR=yes;IMEX=1';"

conn.ConnectionString = strConnString

conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient

conn.Open()

End Sub

Public Function 获取电子表集合(filePath) As List(Of String)

Dim ConnStr As String = "Provider=microsoft.ace.oledb.12.0;Data Source=" filePath ";Extended Properties='Excel 12.0; HDR=no;IMEX=1';"

Dim list As New List(Of String)()

Dim Conn2 As New OleDbConnection(ConnStr)

Try

If Conn2.State = ConnectionState.Closed Then

Conn2.Open()

End If

Dim dt As DataTable = Conn2.GetSchema("Tables")

For Each row As DataRow In dt.Rows

If row(3).ToString() = "TABLE" Then

list.Add(row(2).ToString())

End If

Next

Catch e As Exception

'Throw e

Finally

If Conn2.State = ConnectionState.Open Then

Conn2.Close()

End If

Conn2.Dispose()

End Try

Return list

End Function

//////////////////

开始打开指定EXCEL到DG

Call connDB(Excelpath)

Dim sqlstr As String = "select * from [" Me.ListBox1.Text "]"

With rs

If rs.State 0 Then rs.Close()

.CursorLocation = ADODB.CursorLocationEnum.adUseClient

.Open(sqlstr, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

If Not rs.EOF And Not rs.BOF Then

Dim da As New System.Data.OleDb.OleDbDataAdapter

Dim ds As New DataSet

da.Fill(ds, rs, "注册表")

DG.DataSource = Nothing

DG.DataSource = ds.Tables(0)

DG.Refresh()

End If

End With

Q3: vb.net中怎么批量的导入数据

先将excel中vb.net导入数据的数据读入到 DataTable中

然后用一个For循环vb.net导入数据，逐条Insert 到对应数据库vb.net导入数据的表中

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