大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进

概述  大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进 下面有源代码 Imports System.Data.OleDb Imports System.Net.Mime.MediaTypeNames Public Class Form1     Dim excelapp As System.Windows.Forms.Application     '声明一个application对象

大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进

下面有源代码

imports System.Data.oleDb imports System.Net.Mime.MediaTypenames Public Class Form1 Dim excelapp As System.windows.Forms.Application '声明一个application对象 Dim excelworkbook As Excel.Workbook '声明一个工作簿对象 Dim excelsheet As Excel.Worksheet '声明一个工作表对象 Dim excelrange As Excel.Range '声明一个范围对象 Public Shared keywords As String '查询关键字 Public Shared len As Integer Public Sub TextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TextBox1.TextChanged keywords = TextBox1.Text DataGrIDVIEw1.DataSource = GetExcelToDatatableBySheet("E:\coperator\KXL.xlsx","Sheet1$") End Sub Public Shared Function GetExcelToDatatableBySheet(ByVal fileFullPath As String,ByVal Sheetname As String) As Datatable 'string strConn = "ProvIDer=Microsoft.Jet.oleDb.4.0;" + "data source=" + fileFullPath + ";Extended PropertIEs='Excel 8.0; HDR=NO; IMEX=1'"; //此连接只能 *** 作Excel2007之前(.xls)文件 Dim strConn As String = ("ProvIDer=Microsoft.Ace.oleDb.12.0;" & "data source=") + fileFullPath & ";Extended PropertIEs='Excel 12.0; HDR=NO; IMEX=1'" '此连接可以 *** 作.xls与.xlsx文件 Dim conn As New oleDbConnection(strConn) conn.open() Dim ds As New DataSet() Dim strsql = "SELECT * FROM [{0}] WHERE F1 liKE '" & keywords & "%'" & "OR F2 liKE '" & keywords & "%'" & "OR F3 liKE '" & keywords & "%'" & "OR F4 liKE '" & keywords & "%'" Dim odda As New oleDbDataAdapter(String.Format(strsql,Sheetname),conn) odda.Fill(ds,Sheetname) conn.Close() Return ds.tables(0) End Function Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click DataGrIDVIEw1.DataSource = GetExcelToDatatableBySheet("E:\coperator\KXL.xlsx","Sheet1$") End Sub Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load DataGrIDVIEw1.DataSource = GetExcelToDatatableBySheet("E:\coperator\KXL.xlsx","Sheet1$") End Sub Private Sub button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button2.Click TextBox1.Text = "" End Sub End Class 请各位大侠赐教。

总结

以上是内存溢出为你收集整理的大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进全部内容，希望文章能够帮你解决大家好这是我写的词典。很简单。我初学VB.NET请大家帮忙改进所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。