Tag: vb.net

VB – 连接到本地SQL服务器并从Excel中加载数据到表中

我想连接到我的本地SQL Server的VB代码，并从我的Excel文件加载数据到表中。 这是我迄今为止与我的代码是不完整的。 我在SQL数据库中创build的表（me_table）的字段是z，ad，ag，retd，to，wg，并且在sheet1中是具有反映表中字段的数据的列。 谢谢 请指教 Imports System.Data Imports System.Data.SqlClient Module Module1 Dim myconnection As SqlConnection Dim mycommand As SqlCommand Dim dr As SqlDataReader Dim dr1 As SqlDataReader Dim ra As Integer Sub Main() Dim connectionString As String = "Server=DER7D;Database=testDB;User Id=DER7D\Der;Password=" myconnection = New SqlConnection("server=DER7D;uid=root;pwd=;database=simple") 'you need to provide password for sql server myconnection.Open() End […]

VB表单 – 允许用户交互从SQL Server中select数据

我是VB新手，不久前刚刚起步，我很高兴能够取得进展。 但是，当连接到SQL服务器时，我对VB表单更加陌生，并且允许用户与它进行交互以查询他们想要的任何数据到excel中。 它开始是这样的，我已经创build了一个用户窗体，它有checkbox（> than，<than），一个文本框（input一个数字）和另外两个checkbox（男，女）和一个combobox（状态）。 我也已经在SQL Server数据库中有数据。 我正在尝试做的事情仍然是尝试让用户通过选中checkbox，在combobox中select并在文本框中input一个数字，然后点击一个button来运行VB程序来导出请求数据导入到Excel中（我的挑战是 – 它可以将其导出到已经创build并保存在目录中的Excel文件中，或者将其导出到新创build的尚未保存的Excel文件中（有点像popup窗口）。 例如 – 用户检查>比，并input数字25（顺便说一句，这是年龄），并检查女性，并在combobox中select纽约，并点击一个button。 在这种情况下，程序应查询出现在纽约州的25岁以上的女性，并将其导出到Excel中，作为popup窗口或已保存在目录中的Excel文件。 我一直在做这方面的研究，但是由于我对forms，连接和提取都很陌生，所以没有取得太多的进展。 我的代码在下面的目录中创build一个Excel文件，并试图将数据查询到保存Excel文件。 我的查询也在下面。 请指教 ！ Imports System.IO Imports excel = Microsoft.office.interop.Excel Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Module module1 Dim myconnection As SqlConnection Dim mycommand As SqlCommand Sub main() Dim xlapp = New excel.application xlapp.visible = True Dim xlwb As excel.workbook Dim […]

exception：从string“<text>”转换为“整数”types无效

编辑：我有一段代码曾经几乎像它应该，突然间，它开始抛出一个dbnullexception（这是以前没有）。 现在，感谢@david sdot，我再次得到程序内部的着色代码。 这是工作着色代码 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 'If Not IsNothing(DataGridView2.Rows("As (Arsen)")) Then 'Kategorier i kolonner (vanlig) 'As Dim UL1As As Double = 8 Dim UL2As As Double = 20 Dim UL3As As Double = 50 Dim Ul4As As Double = 600 Dim Ul5As As Double = […]

导出到Excel时更改date格式

我已经在我的程序中编写了一个导出到excel的函数，这与导入程序一致。 导入程序正在运行一些validation检查，但其中一些validation检查失败，因为Excel工作表正在将它们格式化为MM / dd / yyyy，但其中大多数都以dd / MM / yyyy格式存储。 查看我的导出程序后，我可以看到，在导出之前，date都格式化为dd / MM / yyyy，所以问题不在这里。 打开导出的Excel文件时，可以看到有些date存储为MM / dd / yyyy。 在我的电脑上的区域设置是正确的，设置为英国，甚至在检查列的Excel格式后，我可以看到它设置为dd / MM / yyyy。 那么，有什么可能会出错？ 为什么有些导出不同？ 在网格中看到的值（正确的格式 – 请参阅顶部2行'率先开始'，01/06/2016） 代码在导出例程中 Dim formatRange As Excel.Range formatRange = xlWorksheet.Range("F2", "F99000") formatRange.NumberFormat = "dd/MM/yyyy" formatRange = xlWorksheet.Range("I1", "I99000") formatRange.NumberFormat = "dd/MM/yyyy" formatRange = xlWorksheet.Range("J1", "J99000") formatRange.NumberFormat = […]

从datagridview vb.net导出到Excel时的颜色单元格

我有代码，在一个datagridview基于条件的颜色的单元格。 这工作，因为它应该。 下面显示的代码检查标题“As（Arsen）”下的值，并将它们与为ULxAS定义的限定值和相应的颜色进行比较。 结果是正确的，如上所示。 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 'If Not IsNothing(DataGridView2.Rows("As (Arsen)")) Then 'Kategorier i kolonner (vanlig) 'As Dim UL1As As Double = 8 Dim UL2As As Double = 20 Dim UL3As As Double = 50 Dim Ul4As As Double = 600 Dim Ul5As As Double = […]

如何使用VB.NET从上传的Excel表单中加载数据到Oracle数据库表中

我不能满足标题的全部要求。 所以，在这里。 我有一个非常古老的VB.NET Web应用程序，它从上传的Excel工作表读取每一行，并发送到数据库进行检查。 excel可以包含数千条logging。 这导致这么多的数据库调用，导致非常差的性能。 为了避免这种情况，我将每个excel行的关键字列都附加到一个string中，在代码本身中构造了一个SQL查询，并将其传递到数据库以供执行。 我知道这不是一个推荐的方法，但是性能是我们关心的主要问题，我不知道当时有多less用户通常在excel表格中有logging。 所以，这是在Excel中的行不超过500-600的假设下开发的。 现在我们正面临另一个问题。 当用户上传巨大的Excel文件时，生成的SQL将超出Oracle查询长度限制（SQL查询为4kb，PL / SQL Execute为32kb），导致查询失败。 我现在正在计划的是将excel加载到临时数据库表中，并通过存储过程执行检查。 但是，我不能做每个logging插入，因为这将导致更多的数据库调用，这正是我想要消除的第一位。 我GOOGLE了一下，发现从VB.NET中通过sqlldr.exe加载，但也似乎不是一个正确的方法。 我有其他的select吗？

是否可以在Excel中的文本开头隐藏单引号（'）？

我有一个应用程序，当我点击运行报告数据将生成并导出到Excel。 我发布了一个关于在excel导出时转换为date的值的问题。 我的第一个问题是，我有一个列中的数据请求号是这样的值，例如这个08-20但是当我在Excel中导出它将成为一个像20-Aug的date所以我把一个单引号我的代码为识别为文本，而不是转换为date。 If arrColumn(intColCount2) = 29 Then strHTML += "<td>‘" & dr("vRequisition") & "</td>" End If 但是现在它在excel中performance得如此 我得到了我想要的第一个问题的输出，而不是将该值转换为date。 我想要做的是隐藏在Excel文本的开头的单引号（'），以便它只会显示这样 08-20 是否可以隐藏在Excel中的文本的开头单引号（'）？

如何声明全局variables以从任务pipe理器中杀死第二个EXCEL.EXE

以下代码在任务pipe理器中打开两个EXCEL.EXE。 当Form1closures时，我想从任务pipe理器中杀掉第二个打开的EXCEL.EXE。 Imports Microsoft.Office.Interop Public Class Form1 Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load 'Kill all EXCEL.EXE process from Task Manager For Each prog As Process In Process.GetProcessesByName("EXCEL") prog.Kill() Next Dim FirstxlApp As New Excel.Application 'Open first EXCEL.EXE in the Task Manager Dim datestart As Date = Date.Now Dim SecondxlApp As New […]

用特殊字符Preaprestring

我正在从excel工作表取名列，我得到的列名如下： Recorded by" & vbLf & "FO Staff 对于所有的excel列名我有一个列表在我的程序中反映所有在Excel中检查是否匹配。 不过只有那一栏给我提到了string。 问题是我不知道如何准备我的string有相同的文本比较。 简单地说，如何准备string来获得上面显示的string？ 如果可能的话解释。 编辑：没有提到一件事。 我将所有反映的值存储在xmlconfiguration文件中。 我序列化列名称（与Excel中相同的列值）。 我的程序反序列化XML文件并加载该项目的数组。 然后，该数组与excel列直接从excel列数组进行比较。

将值写入Excel单元格

我打算创build一个简单的function区，并设置单元格（A1）值为“Hello World！”的button。 在活动工作表中。 我有这个代码，但它返回一个错误，我不知道我在做什么错。 错误的屏幕截图： 码： Imports Microsoft.Office.Tools.Ribbon Imports Microsoft.Office.Interop.Excel Public Class Ribbon1 Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlBook = xlApp.ActiveWorkbook xlSheet = […]