锐客网

  1. 首页 > 睿知 > it技术 > >

包含vb.net实现ole的词条

excelIT技术

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 = qc.AddressvbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Addressp
End If
End With
MsgBox "查找数据在以下单元格中："vbCrLfvbCrLf _
q, vbInformationvbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格，右击按钮 ， 选择“编辑文字”，修改按钮名称为“查找按钮” 。
7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色 。
vb.net操作excel中的记录试vb.net实现ole了好久vb.net实现ole，终于试出来了，把代码发给你分享：
首先，我建了个窗体 ， 放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动 。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=E:\myexl.xls;"_
"Extended Properties=Excel 8.0;"
’这里面，E：\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接")’这句我用来测试能不能连接的，
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名，你换成你自己的，注意格式
'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建
'立查询条件
'下面将根据查询条件打开连接 。
Dim objAdapter1 As New OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
'下面将打开的数据放在dataset中
【包含vb.net实现ole的词条】Dim objDataset1 As New DataSet()
objAdapter1.Fill(objDataset1, "XLData")
’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView
' Clean up objects.
objConn.Close()
End Sub
vb.net2012如何连接excel2010?使用 ADO 连接到 Excel
ADO 使用 MDAC 中以下两个 OLE DB 提供程序中的任何一个都可以连接到 Excel 数据文件 。
Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers
使用 Microsoft Jet OLE DB Provider
Jet 提供程序只需要两条信息就可以连接到 Excel 数据源：路径（包括文件名），和 Excel 文件版本 。
Jet 提供程序使用连接字符串
Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;"_
"Extended Properties=Excel 8.0;"
.Open
End With
提供程序版本：必须使用 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序 。如果指定了 Jet 3.51 提供程序 ， 在运行时会出现以下错误信息：
Couldn't find installable ISAM.
Excel 版本：对于 Excel 95 工作簿（Excel 版本 7.0），应指定 Excel 5.0；对于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿（Excel 版本 8.0、9.0 和 10.0），应指定 Excel 8.0 版本 。
使用“数据链接属性”对话框的 Jet 提供程序
如果在应用程序中使用“ADO 数据控件”或“数据环境”，就会出现数据链接属性对话框来收集必要的连接设置 。
在提供程序选项卡上，选择 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序 。如果指定了 Jet 3.51 提供程序，在运行时会出现以下错误信息：
Couldn't find installable ISAM.
在连接选项卡上，浏览到工作簿文件 。忽略“用户 ID”和“密码”项，因为这些不适用于 Excel 连接 。（无法打开受密码保护的 Excel 文件作为数据源 。）
在所有选项卡上 ， 从列表中选择扩展属性，然后单击编辑值 。输入 Excel 8.0;，用分号 (;) 将其与任何其他已有的项分隔 。如果忽略此步骤 ， 测试连接时将出现一条错误信息 。这是因为如果不另行指定，Jet 提供程序期望 Microsoft Access 数据库 。返回到连接选项卡，并单击测试连接 。将出现一个消息框，通知测试已成功完成即可 。
vb.net2010从ACCESS的OLE字段读出图片显示到PictureBox控件上这是vb2005的代码，你试一下 ， 这是我以前做的一段代码，从库中读取到显示 。
olecon = New OleDbConnection(constr)
olecon.Open()
Dim comm As New OleDbCommand("select 照片 from 表 where name='李三', olecon)
Dim reader As OleDbDataReader = comm.ExecuteReader
reader.Read()
Dim photofile() As Byte
photofile = reader.GetValue(0)
Dim streamph As New MemoryStream(photofile)
PictureBox1.Image = Image.FromStream(streamph)
这段代码是我从我做的小软件中截出来的，我在2005中就用着，2005是通过的，不知道加到2010中能否执行 。
-------------------------------
根据你的发的图，我看了，好像你从库中取出的不是一条记录呀，我的代码只能取一条记录的情况 ， 你的明显取出多条记录，代码只认最后一条，你的文件长度为0，当然不行了
select 照片 from 表 where name='李三' ， 这条语句只能取出单条记录，且ole字段中确定有文件存在的，而且是图片格式才能显示
-------------------------------------------------------
Dim streamph As New MemoryStream(photofile)
你的是 Dim streamph = New MemoryStream(photofile)
这句你的和我的不一样，是不是这里的问题，2010没用过，要是还不行，我也不知道了
VB.net为什么取消了“lenb”“midb”这些函数，.net又如何通过变通方法来实现？include QtCore/QCoreApplication
#include QAxObject
#include Windows.h
int main(int argc, char *argv[])
{
//OleInitialize(0);
//CoInitialize(0);
QCoreApplication a(argc, argv);
QAxObject *asdfg = new QAxObject("Excel.Application");
return a.exec();
}
vb.net实现ole的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、vb.net实现ole的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：redis6 多线程 redis版本6支持多线程

    下一篇：如何使用腾讯云服务器？ 腾讯云服务器怎么用的