vb.net的数据库导入问题,在线等
我想用vb.net导入文件,用datagridview表示出来。这个文件包括邮政编码,地名,村名,街道名谁能告诉我,从没用vb.net导入过数据库,第一次,拜托大家帮帮忙! --------------------编程问答-------------------- Imports System.Data.OleDb '引用其他数据库
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then '选择excel表
Dim name As String
name = Me.OpenFileDialog1.FileName
Me.TextBox1.Text = name '显示路径
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.TextBox1.Text.ToString.Trim() & ";Extended Properties=Excel 5.0"
'定义连接字符串
Dim conn As OleDbConnection
'定义连接命令
conn = New OleDbConnection(str)
conn.Open()
'打开连接
Dim str1 As String = "连接数据库字符串"
Dim comm As New SqlConnection(str1)
Dim moy As New SqlCommand
moy = New SqlCommand("insert tb_book select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;IMEX=1;HDR=YES;DATABASE=E:\\Book.xls',[Sheet1$])", comm)
comm.Open()
'Dim myy As SqlDataReader
'myy =
moy.ExecuteNonQuery()
comm.Close()
conn.Close()
'关闭连接
Catch ex As Exception '排除异常
MsgBox(ex.Message)
End Try
End Sub
完成后刷新你的datagridview --------------------编程问答-------------------- 我试试看
谢谢 --------------------编程问答-------------------- 出现了那么多波浪线,我却不知怎么改
补充:.NET技术 , VB.NET